Не желая начинать обсуждение вторичных осей Y.Я знаю, что эта ошибка много раз возникала, но я все еще не уверен, как ее избежать, если есть 48 y для первичной и только одна для вторичной оси y.
Мои данные (pp)имеет 49 столбцов (418 строк) - 1. столбец для дат (= x), и в то время как 47 столбцов должны быть построены для первичной оси Y, 48. (LI) должен использоваться для вторичного.
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