Duplikovanie diskrétnej osi v ggplot2 - r, ggplot2

Vývojová verzia ggplot2 (2.1.0.9001) poskytuje peknú skratku pre vytvorenie sekundárnej osi, ktorá je duplicitou primárnej osi ak pôvodná os je spojitá:

devtools::install_github("hadley/ggplot2")
library(ggplot2)

ggplot(mpg, aes(displ, cyl)) +
geom_point() +
scale_y_continuous(
sec.axis = dup_axis()
)

Ako možno zdvojenú os oddeliť?

ggplot(mpg, aes(displ, factor(cyl))) +
geom_point() +
...?

odpovede:

Cowplot knižnica má toto zariadenie:

library(cowplot)
gpv <- ggplot(mpg, aes(displ, factor(cyl))) +
geom_point()
ggdraw( switch_axis_position( gpv, axis="y", keep="y"))

Nezabudni, že to potrebuješ print Grafická karta založená na mriežke pri odosielaní do súboru:

png()
print(ggdraw(switch_axis_position(gpv, axis="y", keep="y")) )
dev.off()
#quartz
#     2