Ggplot с двумя осями у не отображается правильно

Question

Привет, я хочу показать на том же графике график и линию. Они имеют одинаковую ось X, но разные оси Y.

Просто барплот выглядит так:

и когда я использую это:

ggplot()+ geom_line(data=avdischarge, aes(x= monthyr, y= Avdischarge))+
  geom_bar(data= melt, aes(x=monthyr, y= value, fill= Compound ), stat= "identity")+
  scale_y_continuous("Average discharge", sec.axis = sec_axis(~./100, name = "Concentration"))

Я получаю этот сюжет:

Что я могу сделать, чтобы барплот появился в качестве первой картинки? а не как мелочь под geom_line?

Кроме того, как я могу добавить только легенду линии?