2.6. ラグプロットを追加
rug関数でラグプロットを描画します。
# ヒストグラムを描画 hist( d$"自チーム.10分あたりの得失点", freq=FALSE, main="自チームの10分あたりの得失点", xlab="得失点" ) lines( density(d$"自チーム.10分あたりの得失点"), col="red" ) rug(d$"自チーム.10分あたりの得失点")
rug関数でラグプロットを描画します。
# ヒストグラムを描画 hist( d$"自チーム.10分あたりの得失点", freq=FALSE, main="自チームの10分あたりの得失点", xlab="得失点" ) lines( density(d$"自チーム.10分あたりの得失点"), col="red" ) rug(d$"自チーム.10分あたりの得失点")