如何在ggplot2的右侧放置转换的比例？

Question

我正在创建一个图表，显示湖泊水位随时间的变化。我在下面附加了一个简单的示例。我想在绘图的右侧添加一个比例尺（刻度线和注释），以英尺为单位显示标高。我知道ggplot2不允许使用两种不同的比例尺（请参阅具有2个y轴，左侧为一个y轴，右侧为另一个y轴的图），但是由于这是相同比例的变换，因此有一种方法可以做这个？我宁愿继续使用ggplot2，而不必还原到plot（）函数。

library(ggplot2)

LakeLevels<-data.frame(Day=c(1:365),Elevation=sin(seq(0,2*pi,2*pi/364))*10+100)

p <- ggplot(data=LakeLevels) + geom_line(aes(x=Day,y=Elevation)) + 

  scale_y_continuous(name="Elevation (m)",limits=c(75,125)) 

p