R 具有第二y轴的多面图形？

我已经使用

facet\u wrap

函数制作了multi-facet

ggplot

，但找不到可以为所有绘图的特定变量创建辅助y轴的内容

我试着在谷歌上搜索并找到了，但我不知道如何从这里转到多方面的情节

我融合了数据集，得到了不同的刻面图，但不知道如何为组中的特定变量放入第二个y轴

fig4bplot<-    ggplot(fig4b,aes(x=as.Date(time),y=value,group=variable,color=variable))+geom_line(size=2,alph    a=4/5)+facet_wrap(~ Area)+theme_bw()
fig4bplot<-fig4bplot + theme(legend.position="bottom",legend.direction   ="vertical")+opts(axis.text.x = theme_text(angle = 90))
fig4bplot<-fig4bplot+xlab("Time")+ylab("One-Step Ahead Squared Forecast Error")+theme(text  = element_text(size = 30),
axis.title =     element_text(size = 30),
axis.text.x = element_text(size = 20,))

---

Fig4Bplot我想我可以回答我自己的问题，但我对我的结果不满意。我结合我在这里看到的内容，首先制作一个组合图，然后垂直聚合更多的图。这可能是重复的，OP似乎已经解决了问题。我假设你已经回答了你的问题，但是我想让你找到另一个解决方案