如何在中位数，第一四分位数和最后四分位数的箱线图上放置值？

Question

如何在boxplot上放置值并控制其宽度？

X<-c(1,2,,3,4,4,5,5,6,6,6,6,6,7)

我需要为min，max，1st quartile，median和last quartile写入值。我该怎么把它放在那里？

Answer 1

您可以使用horizontal = TRUE获取水平箱图和axes = FALSE来移除轴。 staplewex = 1将订书钉宽度设置为与框宽

相同

然后，您可以使用fivenum返回用于创建箱线图的统计信息，并将其用作文本标签，摆弄y值，直到您拥有所需内容

boxplot(X, horizontal = TRUE, axes = FALSE, staplewex = 1)
text(x=fivenum(X), labels =fivenum(X), y=1.25)

请注意，我为示例数据3中缺少的值插入了X

Answer 2

mnel提供的答案是完美的，假设 - 在示例中 - 没有异常值。在那种情况下，下部和上部晶须等于最小值和最大值。但是，如果存在异常值且我们未在boxplot函数中指定 range = 0 ，则我们无法为标签获取正确的值。相反，我们可以使用：

text(x=boxplot.stats(X)$stats, labels = boxplot.stats(X)$stats, y = 1.25)

让我们看一个例子：

<强>水平

X <- c(1,2,3,3,4,4,5,5,6,6,6,6,10,15)
boxplot(X, horizontal = TRUE, axes = FALSE, staplewex = 1)

1. 错误的值text(x = fivenum(X), labels = fivenum(X), y = 1.25)



1. 正确值：text(x = boxplot.stats(X)$stats, labels = boxplot.stats(X)$stats, y = 1.25)



<强>垂直

在text内切换x和y的参数。

boxplot(X, axes = FALSE, staplewex = 1)
text(y = boxplot.stats(X)$stats, labels = boxplot.stats(X)$stats, x = 1.25)

Answer 3

我在尝试理解boxplot四分位数标签并与汇总函数值进行比较时遇到了一些问题，所以我想与您分享。

有时，使用fivenum或stats比较r汇总函数值，boxplot中的四分位数标签会有差异。这仅在偶数数据集上发生。

例如（使用文字（x = boxplot.stats（X）$ stats，labels = boxplot.stats（X）$ stats，y = 1.25））：

product<-c(3,12,20,25,30,35,70,70,80,150)

summary(product)
Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
3.00   21.25   32.50   49.50   70.00  150.00 

boxplot(product,horizontal=TRUE,col="grey",staplewex=1,axes=FALSE)
text(x = boxplot.stats(product)$stats, labels = boxplot.stats(product)$stats, y = 1.25)

BoxplotFiveNum

正如您在图片中看到的那样，值不匹配。

在这种情况下，您可以使用分位数功能：

text(x=quantile(produto),labels=quantile(produto),y=1.25)

BoxplotQuantile

现在您应该获得与摘要函数中列出的值相同的值。否则只需忽略汇总函数并使用fiveNum值。这种差异是由于统计人员之间缺乏普遍协议而产生的。

谷歌搜索会显示分位数计算的差异。

Answer 4

boxplot(X, axes = FALSE, staplewex = 1)
text(y = boxplot.stats(X)$stats, labels = boxplot.stats(X)$stats, x = 1.25)

如何在多个Boxplot中执行此操作

示例数据：

a <- data.frame(
    Rank = c(1,2,3,1,2,3,1,2,3,3,2,1,3,2,1,2,1,3,3,3,1,1,2,2,1,3 ),
    Time = c(1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3), 
    Value = c(5,10,15,20,30,50,70,80,100,5,7,9,11,15,17,19,17,19,100,200,300,400,500,700,1000,200))

boxplot(a$Value[a$Rank==1] ~ a$Time[a$Rank==1])