ggplot2に縦書き文字を書くには？

Question

ggplot2に、Tの上にSが付いた垂直のSTOP記号など、下向きの直立文字を使用してテキスト注釈を書く方法はありますか？

私の特定のアプリケーションは、数ヶ月のカレンダーの抽出を行い、月の名前を垂直に書いたが、直筆で書くことです。私が使用している場合

annotate("text", x=2, y=3, label= "October", angle = -90) 

文字も同様に回転します。ありがとうございました。

Answer 1

ladder <- function(x) paste(strsplit(toupper(x), split = "")[[1]], sep = "", collapse="\n") 

qplot(1,1, geom="blank") + 
    annotate("text", label=ladder("why not"), x=1, y=1)