R ggplot2 - eiichiromomma/CVMLAB GitHub Wiki
R) ggplot2
(ggplot2で日本語を使うときの話を色々。
PDFに保存(Mac)
ggsaveの中でfamilyを指定すれば良い。
ggsave("filename.pdf",width=24,height=15,units="cm",ml,family="Japan1GothicBBB")
PNGに保存(Mac)
Wordに貼り付ける場合はdpiとサイズを決め打ちしてPNGで保存した方がトラブルが少ない。ただし下記の指定をするとPDFで表示されないので注意。
軸等のthemeで指定できるタイトル
Macで使えるフォントを指定すれば良い。表示も有効になる。theme_greyが嫌だったら他のthemeを選ぶ。ちなみにtheme()を同居させたい場合にはtheme_greyはthemeの前に入れる。
theme_grey(base_family = "HiraKakuProN-W3")
geom_text
個別に指定する。一括もできるかも?
geom_text(family = "HiraKakuProN-W3",中身
###gridExtra gridExtraでarrangeしている場合にmain等のタイトルはgp=gpar(fontfamily="HiraKakuProN-W3")を入れる。下は3つのグラフp1,p2,p3を横に並べて,その上にタイトルを置いている。
grid.arrange(main=textGrob("日本語タイトル",gp=gpar(fontfamily = "HiraKakuProN-W3")),heights=c(1,20),
arrangeGrob(p1,p2,p3,ncol=3,widths=c(6,7,7)))
保存
familyでフォントを指定する
ggsave("filename.png",width=15,height=15,units="cm",dpi=300,family="HiraKakuProN-W3")
縦書き
そんなグラフ書くなというのが正解なのだがQiitaにあった関数を借用。やることは一文字ずつ改行を入れるだけ。これ以外の方法は見付からなかった。
convertTXT <- function(x){
res <- paste(collapse="\n", unlist(strsplit(split="", x)))
return(res)
}
を定義しておいて,軸タイトルのリストをlapplyでconvertTXTに食わせる。