3.5. 確率密度曲線を重ね書き
geom_densityで確率密度曲線を描画します。
# ggplot2 パッケージを使用 library(ggplot2) # ヒストグラムを描画 g <- ggplot(d, aes( x=d$"自チーム.10分あたりのTOUCH数", y=..density.. ) ) g <- g + geom_histogram( binwidth=5 ) # 確率密度曲線を描画 g <- g + geom_density() # タイトルを変更 g <- g + labs(title="10分あたりのボールタッチ回数") g <- g + xlab("ボールタッチ") g <- g + ylab("確率密度") print(g)