框图显示平均值为一条线

Question

是否有可能创建一个箱形图，将平均值和中位数显示为R的标准箱图函数？我当前的解决方案显示平均值为十字架：

set.seed(1234)
values <- runif(10,0,1)
boxplot(values)
points(mean(values),col="red",pch=4,lwd = 4)

Answer 1

<md-chips ng-model="user.skills" readonly="true"> <md-chip-template>{{$chip.skill_title}}</md-chip-template> </md-chips> 的默认绘图使得框的宽度从boxplot的{​​{1}}变为0.8。

您可以使用以下代码绘制平均线：

1.2

Answer 2

为了完整起见，你也可以过度绘图：

set.seed(753)
df <- data.frame(y=rt(100, 4), x=gl(5, 20))
bx.p <- boxplot(y~x, df)
bx.p$stats[3, ] <- unclass(with(df, by(y, x, FUN = mean)))
bxp(bx.p, add=T, boxfill="transparent", medcol="red", axes=F, outpch = NA, outlty="blank", boxlty="blank", whisklty="blank", staplelty="blank")

通过@scs解释：

bxp$stats返回一个矩阵，其中包含每个箱图的下部晶须，下部铰链，中间，上部铰链和上部晶须的末端。上面的解决方案用平均值覆盖bx.p$stats[3, ]中指定的中位数。 bxp函数是绘制boxplot对象的函数。

结果：