ggplot2在scale_y_continuous函数提供了右侧y轴坐标sec.axis显示选项，但如果不同量纲的数据需要展示在同一面板上则需要对其进行转换。
通过 scale两组数据的最大值，达到转换数据的目的，最后在同一界面展示不同量纲的两组数据
library(ggplot2)
data(mtcars)
scaleFactor <- max(mtcars$cyl) / max(mtcars$hp)
ggplot(mtcars, aes(x=disp)) +
geom_smooth(aes(y=cyl), method="loess", col="blue") +
geom_smooth(aes(y=hp * scaleFactor), method="loess", col="red") +
scale_y_continuous(name="cyl", sec.axis=sec_axis(~./scaleFactor, name="hp")) +
theme(
axis.title.y.left=element_text(color="blue"),
axis.text.y.left=element_text(color="blue"),
axis.title.y.right=element_text(color="red"),
axis.text.y.right=element_text(color="red")
)
