geom_text öğesini ggplot2 içinde bir geom_text ile hizalayın

Question

Geçici çözüm olarak vjust kullandım ve kabul edilebilir mesafeyi deneme ve hata ile detaylandırıyorum. Ancak bu bazen çok zaman alıcıdır ve yazı tipi boyutu ve eksen ölçeği ile değiştirir.

Örnekte bulunan metni otomatik olarak hizalamak için daha iyi bir yöntem var mı?

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

bir satır etiketlerinin durum için başka bir çözüm/önce sonra bir satır sonu eklemek ve = 0.5 varsayılan vjust tutmak olacaktır.

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