两个y轴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下面的小东西？

此外，如何添加行的图例？