在ggplot2中复制离散轴

Question

ggplot2（2.1.0.9001）的开发版本提供了一个很好的简写，用于创建辅助轴，如果原始轴是连续的，则复制主轴：

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() +
  ...?

Answer 1

牛皮图书馆有这个设施：

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