如何在R中使用单独的Y轴使用一个y轴和一个折线图组合条形图？

Question

我有兴趣创建一个包含条形图和折线图的整体图，每个图都在不同的Y轴上。例如，我的天气数据包含我的研究地点的降水和温度的历史（1990-2013）和当前（2014）数据。我想将历史与当前降水数据绘制成条形图，然后将历史与当前温度数据绘制为线图，所有这些都在同一图表中。降水Y轴的范围为0-150，而温度y轴的范围为0-20。我已经能够绘制第一个图形（降水条形图）没有问题。我对于如何在条形图上绘制温度线图表感到困惑？ 任何帮助将非常感激。以下是我的条形图的代码。

precip.bar <- ggplot(data=weather, aes(x=Date, y=Precip, fill=Period))+
geom_bar(position="dodge", colour="black", stat="identity", width=1)+
scale_fill_manual(values=c("#000000", "#D3D3D3"))+
xlab("Date") + ylab("Precipitation (mm)") +
ggtitle("Slug Creek SNOWTEL Data") +
theme_bw()
precip.bar