Выровнять geom_text до geom_vline в ggplot2

Question

Я использовал vjust как обходное решение и разработал допустимое расстояние при попытке и ошибке. Но иногда это занимает много времени и изменяется с размером шрифта и шкалой осей.

Есть ли лучший способ выровнять текст в примере автоматически?

library(ggplot2) 

ggplot(data=mtcars, aes(x=hp, y=mpg))+ 
geom_point()+ 
theme_bw() + 
    geom_vline(xintercept=200, colour="grey") + 
    geom_text(aes(x=200, label="the strong cars", y=20), colour="blue", angle=90, vjust = 1.2, text=element_text(size=11))+ 
    geom_text(aes(x=200, label="the weak cars", y=20), colour="red", angle=90, vjust = -1, text=element_text(size=11)) 

ggsave(filename="geomline.png", width=5.5, height=2*3, dpi=300) 

Answer 1

Другое решение для случая одной линии меток можно было бы добавить разрыв строки перед/после и сохранить vjust по умолчанию = 0.5.

ggplot(data=mtcars, aes(x=hp, y=mpg)) + 
    geom_point() + 
    theme_bw() + 
    geom_vline(xintercept=200, colour="grey") + 
    geom_text(aes(x=200, label="\nthe strong cars", y=20), colour="blue", angle=90, text=element_text(size=11)) + 
    geom_text(aes(x=200, label="the weak cars\n", y=20), colour="red", angle=90, text=element_text(size=11))