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

另外，如何仅添加该行的图例？

标签： rggplot2yaxis