Agregando un eje y secundario, escala uno de los ejes y originales. Este tema no es nuevo. Se ha tocado veces, por ejemploen este hilo de grupos de google ggplot2. Siguiendo el consejo de Hadley, intenté agregar el eje y secundario porgeom_vline, geom_segment ygeom_text. Pero, todavía es feo.

Así que pediría tu ayuda para hacerlo perfecto. Creo que muchos usuarios de ggplot2 estarían interesados en este tema y preferirían sus conocimientos o contribuciones. Gracias por adelantado

#########################################
# what I have gotten.
library(ggplot2)

# build up a box plot
p <- ggplot(mtcars, aes(factor(cyl), mpg)) 

# add the secondary y axis on right side of the plot
p + geom_boxplot() + geom_vline(xintercept = 3.5) + 
 geom_segment(aes(x=3.49, y=c(7,14,21,28), xend = 3.52, yend = c(7,14,21,28))) +
 geom_text(aes(x=3.55, y=c(7,14,21,28), label=c(7,14,21,28)))