使用循环将线条添加到 R 中的直方图

【问题标题】：Using a loop to add lines to a Histogram in R使用循环将线条添加到 R 中的直方图
【发布时间】：2017-12-13 23:49:36
【问题描述】：

我需要使用abline() 在直方图中观察到的十个最常见值中的每一个处添加一条黄色垂直虚线。我认为最好的方法是使用循环，但是当我尝试时它不起作用。在不编写 10 行重复代码的情况下，最好的方法是什么？

【问题讨论】：

请提供reproducible example。
请阅读How Do I Ask a Good Question?

【解决方案1】：

如果您从hist 捕获返回，则它包含计算此值所需的所有信息。 counts 会让你挑出十个最高的酒吧。黄线几乎看不见，所以我将它们绘制成红色，但如果需要，您可以将颜色更改为黄色。

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")

【讨论】：