将数据点添加到箱形图中答案

【问题标题】：adding data points to a box plot将数据点添加到箱形图中
【发布时间】：2019-02-03 21:35:17
【问题描述】：

想知道是否有人可以提供帮助。我们创建了一个箱形图，我们很高兴能够展示不同社区的香农指数。

到目前为止我们使用的代码是：

wood <- c(1.2424533,1.3321779,1.0549202,2.0253262,0.7963116)
grass <- c(0.9743148,1.0397208,0.6931472,0,0.6365142)
scrub <- c(0,0.6365142,0.6931472,1.0397208,1.0986123,1.760146,
          1.4648164,0.6365142,1.2148897)

t.test(wood, grass, var.equal=T) ##t = -0.79206, df = 10, p-value = 0.4467 

t.test(wood, scrub, var.equal=T)

t.test(scrub, grass, var.equal=T)

lab <- c("Woodland","Grassland","Scrub")

boxplot(wood, grass, scrub, xlab="Treatment", ylab="Shannon Index", 
  col=c("darkolivegreen2", "darkolivegreen3", "darkolivegreen4")) 

posn <- c(1,2,3)
axis(side=1, at = posn, labels = lab)

现在我们想要在同一图表中每个单独的箱形图顶部的点？

提前谢谢你！

【问题讨论】：

标签： r boxplot

【解决方案1】：

这和你想象的一样吗？
实际数据点绘制在箱线图的顶部。

wood <- c(1.2424533, 1.3321779, 1.0549202, 2.0253262, 0.7963116)
grass <- c(0.9743148, 1.0397208, 0.6931472, 0, 0.6365142)
scrub <- c(0, 0.6365142, 0.6931472, 1.0397208, 1.0986123, 1.760146, 
          1.4648164, 0.6365142, 1.2148897)

gr <- list(Woodland=wood, Grassland=grass, Scrub=scrub)

bp <- boxplot(gr, xlab="Treatment", ylab="Shannon Index", outcex=0,
  col=c("darkolivegreen2", "darkolivegreen3", "darkolivegreen4")) 

points(stack(gr)[,2:1], pch=21, bg="grey")

【讨论】：