在ggplot2中复制离散轴答案

【问题标题】：Duplicating Discrete Axis in ggplot2在ggplot2中复制离散轴
【发布时间】：2017-03-01 06:51:53
【问题描述】：

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

【问题讨论】：

stackoverflow.com/questions/42322303/…

标签： r ggplot2

【解决方案1】：

switch_axis_position 现在已被弃用，实际上已经不复存在。 Issues with ggdraw since ggplot2 update

过时的材料： 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

【讨论】：

switch_axis_position 现在已弃用，实际上已不复存在。 stackoverflow.com/questions/42322303/…
我认为这个问题和答案应该保留。我只是想添加一条评论，这样如果有人来到这篇文章（通过搜索关键字——比如我！！），那么他们就会意识到为什么这个功能不再存在了。我仍在尝试找出一种复制离散 y 轴的方法。
我认为编辑问题将节省未来用户的时间。