Как повернуть только текст в аннотации в ggplot?

У меня такой сюжет:

fake = data.frame(x=rnorm(100), y=rnorm(100))

ggplot(data=fake, aes(x=x, y=y)) + geom_point() + theme_bw() +
  geom_vline(xintercept=-1, linetype=2, color="red") +
  annotate("text", x=-1, y=-1, label="Helpful annotation", color="red")

enter image description here

Как бы я повернуть только аннотированный текст на 90 градусов, так что параллельно опорной линию?

Ответ 1

Просто скажите, какой угол вам нужен.

ggplot(data = fake, aes(x = x, y = y)) + 
    geom_point() +
    theme_bw() +
    geom_vline(xintercept = -1, linetype = 2, color = "red") +
    annotate(geom = "text", x = -1, y = -1, label = "Helpful annotation", color = "red",
             angle = 90)

В ?geom_text вы можете видеть, что angle является возможной эстетикой, и annotate передает его, как и любой другой аргумент geom_text (например, x, y, label и color уже используется).