Question

假设我们有以下代码生成随机数并绘制一个boxplot：

set.seed(1)
a=rchisq(1000,2)
boxplot(a,ylim=c(-5,15))
abline(h=(summary(a))[2]-1.5*IQR(a),col="red")   # Wrong!
abline(h=1.5*IQR(a)+(summary(a))[5],col="red")  # OK! The red line and upper extreme cover each other.

我们如何绘制一条传递到下极端的线？

Answer 1

abline(h=summary(a)[1])  # ........

或者只是：

abline(h=min(a) )

如果阴影暗示，你不希望数据中存在极端情况，而是“极端的胡须”：

abline( h=boxplot.stats$stats[1] )

Answer 2

boxplot会返回其统计信息，因此如果您在调用它时将其保存为变量，则可以稍后再使用它：

b <- boxplot(a,ylim=c(-5,15))
abline(h=b$stats[1,],col="red")
abline(h=b$stats[5,],col="red")

我们如何在R中检测箱图中的下限和上限？

2 个答案: