次要Y轴-美学长度必须为1或与数据相同

Question

不想开始讨论次要y轴。我知道这个错误已经很多了，但是如果主要y轴有48个y轴，而次要y轴只有一个y，我仍然不确定如何避免这种情况。

我的数据（pp）有49列（418行）-1.列用于日期（= x），而对于主要的y轴应绘制47列，但应绘制48列。用于中学。

p1 <- ggplot(pp, aes(x = Dates)) + 
       geom_line(aes(y = pp[, -which(names(pp) == "LI")])) + 
       geom_line(aes( pp[, which(names(pp) == "LI")]/5000)) + 
       scale_y_continuous( sec.axis = sec_axis(~.*5000, name = "LI"))

但是，我得到了错误

  

美学必须长度为1或与数据相同（418）：y，x