Jam*_*mes 39
abline(h=mean(x))
对于水平线(如果水平定向箱线图,则使用v而不是垂直方向的h),或
points(mean(x))
一点.使用参数pch更改符号.您可能希望对它们进行着色以提高可见性.
请注意,在绘制箱线图后会调用它们.
如果使用公式接口,则必须构造均值向量.例如,从第一个示例?boxplot:
boxplot(count ~ spray, data = InsectSprays, col = "lightgray")
means <- tapply(InsectSprays$count,InsectSprays$spray,mean)
points(means,col="red",pch=18)
如果数据包含缺失值,则可能需要用tapply函数的最后一个参数替换function(x) mean(x,na.rm=T)
Jyo*_*rya 12
用ggplot2:
p<-qplot(spray,count,data=InsectSprays,geom='boxplot')
p<-p+stat_summary(fun.y=mean,shape=1,col='red',geom='point')
print(p)
