Die Entwicklungsversion von ggplot2 (2.1.0.9001) bietet eine nette Abkürzung zum Erstellen einer Sekundärachse, die eine Kopie der Primärachse ist.wen die ursprüngliche Achse ist stetig:

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

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

Wie kann eine diskrete Achse dupliziert werden?

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