如何在组箱图中绘制标签

Posted 2021-04-08

我有一个按类别分隔的箱线图，我需要在所有箱图中绘制第一个四分位数，中位数，第三个四分位数的值，但我不能。我有以下代码：

  a <- runif(10,1,100)
  b <-c("A","A","A","A","A","B","B","B","B","B")
  t <- cbind(a,b)     

  bp<- boxplot(a~b)   

我可以通过bp $ stats命令获取值，但我不能在每个箱图中绘图（三个因子/三个箱图），任何人都可以帮助我吗？

答案

如果我理解正确，您想在箱线图上绘制值。这可以使用函数text来实现：

bp <- boxplot(a~b)   
text(x = 1, y = bp$stats[,1] + 2, labels = round(bp$stats[,1], 2))
text(x = 2, y = bp$stats[,2] + 2, labels = round(bp$stats[,2], 2))

使用bp$stats值作为坐标，并通过添加2将它们推到顶部，这样就不会与图形重叠。应使用相同的值作为标签。

你在问题中提到了三个箱图，这是一个错误还是我不明白？