La versión de desarrollo de ggplot2 (2.1.0.9001) proporciona una buena abreviatura para crear un eje secundario que es una duplicación del eje primarioSi El eje original es continuo:

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

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

¿Cómo se puede duplicar un eje discreto?

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