ggplot2のgeom_vlineにgeom_textを整列します

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

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