在这里制作双Y轴时，您能检查出什么问题吗？

问题描述

g <- ggplot(juho,aes(x = year,y= Nationwide)) +
geom_line(linetype = "solid",size = 1,colour = "black") +
geom_point(size =3,colour ="black") +
ggtitle("전체 사교육비 및 1인당 사교육비 연간 추이")

gg <- g + 
geom_line(data=juho,aes(x=year,y= Per * max(juho$Nationwide)/max(juho$Per))+
scale_y_continuous( sec.axis = sec_axis(~ . *  (max(juho$Per)/ max(juho$Nationwide)),name = 
"Percapita"))

gg

在制作双Y轴时，您能检查出什么问题吗？ 我看到了这个错误。

美学的长度必须为1或与数据（13）相同：x

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）