向 ggplot2 绘图添加辅助 y 轴 - 使其完美

添加辅助 y 轴，缩放原始 y 轴之一。这个话题并不新鲜。例如，它已被触动过多次在这个 ggplot2 谷歌组线程上 http://groups.google.com/group/ggplot2/browse_thread/thread/b48984c4f660eb5a?pli=1。按照哈德利的建议，我尝试通过以下方式添加辅助 y 轴geom_vline, geom_segment, and geom_text。但是，它仍然很丑。

所以我想请求你的帮助来使其完美。我认为许多 ggplot2 用户会对这个主题感兴趣，并且更喜欢您的专业知识或贡献。提前致谢。

#########################################
# 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)))

为了避免黑客攻击，您可以使用facet_grid反而。根据您的数据，您可以很好地对其进行自定义，以使其成为更通用的辅助轴。

 library(ggplot2)
 ggplot(mtcars, aes(factor(cyl), mpg)) + 
   geom_boxplot() + 
   facet_grid(cyl ~., scales = "free")