plotly R subplot / highlight, size an color problem

Question

I am doing a subplot with a linked barchart and line chart (code below) and I am having a few issues:

library(readr)
library(dplyr)
library(plotly)
library(cr