ggplot 日本語

使用するフォント

fontbook  でフォント名称を探す。「"HiraKakuProN-W3"」を使えばよい。

フォント指定の方法

表題、軸名称、凡例名称その他テーマで日本語を表示するとき。
p <- p + theme_gray (base_family = "HiraKakuPro-W3")
グラフ内部で日本語を使用するとき
p <- p+annotate("text",label=pref_db[,1],x=df[,2], y=df[,1]+0.1,colour='black',family = "HiraKakuProN-W3",size=3)

サンプルコード

df <- data.frame(case_per_capita=as.vector(apply(mdf[,-48],2,sum) / pref_db$x2017),pop_density=pref_db$x2017/pref_db$size,sign=pref_db$x2017,r=pref_db[,1])
x1 <- df[,2]
y1 <- df[,1]
df <- cbind(df,lm=predict(nls(y1~a*x1^(1/4)+b,start=c(a=1,b=1),trace=TRUE)))
p <- ggplot(df, aes(x=pop_density))
p <- p + xlab("人口密度") + ylab("人口あたり件数") # 日本語
p <- p + geom_point(aes(y=case_per_capita,size=sign,color=r),alpha=1)
p <- p+annotate("text",label=pref_db[,1],x=df[,2], y=df[,1]+0.1,colour='black',family = "HiraKakuProN-W3",size=3) # 日本語
p <- p + geom_line(aes(y=lm))
p <- p + theme_gray (base_family = "HiraKakuPro-W3") # 日本語
p <- p + scale_color_hue(name="都道府県",labels=pref_db[,1]) # 日本語
p <- p + guides(size = guide_legend(title="人口"))  # 日本語
# don't forget to set "color=". otherwise fails to show up.
p <- p + geom_smooth(aes(x=pop_density,y=case_per_capita),method = "lm",se=F,color="red",size=0.5)
plot(p)

いいなと思ったら応援しよう!