ggplot2 的开发版本 (2.1.0.9001) 提供了一个很好的速记方法，用于创建与主轴重复的辅助轴if原始轴是连续的：
devtools::install_github("hadley/ggplot2")
library(ggplot2)
ggplot(mpg, aes(displ, cyl)) +
geom_point() +
scale_y_continuous(
sec.axis = dup_axis()
)
如何复制离散轴？
ggplot(mpg, aes(displ, factor(cyl))) +
geom_point() +
...?
switch_axis_position 现在已被弃用，实际上已经消失了。自 ggplot2 更新以来 ggdraw 出现问题
过时的材料：
Cowplot 库 具有 曾经拥有该功能：
library(cowplot)
gpv <- ggplot(mpg, aes(displ, factor(cyl))) +
geom_point()
ggdraw( switch_axis_position( gpv, axis="y", keep="y"))
不要忘记你需要print发送到文件时基于网格的图形：
png()
print(ggdraw(switch_axis_position(gpv, axis="y", keep="y")) )
dev.off()
#quartz
# 2
