2017-12-13 4 views
-1

ヒストグラムで観察される10個の最も頻繁な値のそれぞれに黄色の破線の垂直線を追加するには、abline()を使用する必要があります。私はこれを行う最善の方法はループであると思うが、試してみるとうまくいかなかった。 10の繰り返しコードを書くことなくこれを行う最善の方法は何ですか?ループを使用してヒストグラムにラインを追加するR

+0

[再現例](http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example)を提供してください。 –

+0

[よくある質問をするにはどうすればよいですか?](https://stackoverflow.com/help/how-to-ask) – chb

答えて

0

戻り値をhistから取得する場合は、これを計算するために必要なすべての情報が含まれています。 countsは、あなたが10の高いバーを選ぶことを可能にします。黄色の線はほとんど見えないので、赤でプロットしていますが、必要に応じて色を黄色に変更することもできます。

set.seed(2017) 
Samp = sample(30, 1000, replace=TRUE) 
HSamp = hist(Samp, breaks=30) 
ToMark = tail(order(HSamp$counts), 10) 
abline(v=ToMark+0.5, lty=2, col="red") 

Lined histogram

関連する問題