R ggplot2

(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に食わせる。