我有一个带有x和多个y列的数据框。我知道y1和y2相对熟悉（数量级相同），并且y2始终大于y1。尽管y3总是比y1和y2大一个数量级。
我想绘制一个双轴线图，其中y轴之一对应于y1和y2，另一个y轴对应于y3。
df = data.frame('date' = c(seq(as.Date('2019-01-01'), as.Date('2019-02-01'), 'day')))
df$y1 = runif(nrow(df))
df$y2 = runif(nrow(df)) + 1
df$y3 = runif(nrow(df)) + 100
奖金：我想自动缩放/划分数据，而不是像下面这样对缩放的y3轴进行硬编码：