如何在ggplot中添加辅助y轴？

Question

我是R的新手。我有两个站（1和2）。每个站有两个变量（a和b）。我想用ggplot绘制这些变量随时间的变化。

我尝试使用此代码绘制数据 （您可以从此链接获取数据 https://goo.gl/t6fvAJ）

data1 <- read.csv("Stations1.csv", sep=",", header=T)
names(data1)
data1$Date<-as.Date(data1$X, format="%d/%m/%Y")
library(ggplot2)
ggplot(data1, aes(x=Date, y=Y, group=Var)) +   
geom_line() + theme_bw() + facet_wrap(~station, ncol=4, scales="free_y") + xlab("Date")+ylab("")

我无法看到变量“b”中的变化，因为它的变化幅度不同于变量“a”

我需要在ggplot2中添加辅助Y轴，这样我就可以随着时间的推移显示变量“b”的变化。

有没有办法在ggplot2中执行此操作？