Aligner geom_text sur un geom_vline dans ggplot2

Question

J'ai utilisé vjust comme solution de contournement et d'élaborer une distance acceptable par une tentative et erreur. Mais cela prend parfois beaucoup de temps et change avec la taille de la police et l'échelle de l'axe.

Existe-t-il une meilleure méthode pour aligner le texte dans l'exemple automatique?

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

Une autre solution pour le cas d'une étiquette de ligne serait d'ajouter un saut de ligne avant/après et conserver la valeur par défaut = 0,5 vjust.

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