Wersja rozwojowa ggplot2 (2.1.0.9001) stanowi przyjemny skrót do tworzenia osi pomocniczej, która jest duplikacją osi głównej gdyby oryginalna oś jest ciągła:
devtools::install_github("hadley/ggplot2")
library(ggplot2)
ggplot(mpg, aes(displ, cyl)) +
geom_point() +
scale_y_continuous(
sec.axis = dup_axis()
)
Jak można duplikować dyskretną oś?
ggplot(mpg, aes(displ, factor(cyl))) +
geom_point() +
...?
Odpowiedzi:
1 dla odpowiedzi № 1Biblioteka szkieletowa ma tę funkcję:
library(cowplot)
gpv <- ggplot(mpg, aes(displ, factor(cyl))) +
geom_point()
ggdraw( switch_axis_position( gpv, axis="y", keep="y"))
Nie zapomnij, że musisz print
grafika oparta na siatce podczas wysyłania do pliku:
png()
print(ggdraw(switch_axis_position(gpv, axis="y", keep="y")) )
dev.off()
#quartz
# 2