在 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

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