Combining line and column plots with secondary axis in ggplot facet

Question

I am trying to combine observed vs predicted values of different models as lines, along with % error as columns, using a secondary axis. I think I am close to achieving this bu