仿型離散軸在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

的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