При добавлении вторичной оси y масштабируется одна из исходных осей y. Эта тема не нова. Это было затронуто несколько раз, например в этой ветке групп ggplot2 . Следуя совету Хэдли, я попытался добавить вторичную ось y с помощью geom_vline
, geom_segment
и 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)))