R で フォント指定 ～少年サッカー データ分析～

windowsFonts(HGKAI = windowsFont("HG正楷書体-PRO"))

# ggplot2 パッケージを使用
library(ggplot2)
# ヒストグラムを描画
g <- ggplot(d)
g <- g + geom_histogram(
             aes(
                 x=d$"自チームの10分あたりのTOUCH数", 
                 y= ..density.., 
                 colour= d$"勝敗", 
                 fill=d$"勝敗"
             ), 
             binwidth=5, 
             alpha=0.3
         )
g <- g + xlab("10分あたりのボールタッチ回数")
g <- g + ylab("確率密度")
g <- g + labs(colour="凡例", fill="凡例")
g <- g + theme_bw(base_size = 12, base_family = "HGKAI")
print(g)