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