r - 如何在箱线图中添加星号来表示重要性？

Question

我试图在箱线图中的框的顶部或底部包含一个星号，表示执行自变量 t 检验评估后的重要性。如何将其添加到我的图表中？

Answer 1

您可以使用text()将简单符号添加到绘图上的自定义位置：

boxplot(c(1:10),ylim=c(0,12),axes=F)
text(11,"*",cex=2)

编辑：作为对@chl 建议的回复，这里是带有一系列箱线图的上述应用程序：

boxplot(count ~ spray,data = InsectSprays,axes=F,ylim=c(0,30))
text(c(25,23,-10,-10,-10,27),"*",cex=2)

Answer 2

text()如果事先知道，可以在相应的位置使用和书写；例如，

dfrm <- data.frame(y=rnorm(100, mean=10), x=gl(4, 25))
dfrm$y[dfrm$x==2] <- dfrm$y[dfrm$x==2]+2
boxplot(y ~ x, data=dfrm, ylim=c(min(dfrm$y)-.5, max(dfrm$y)+.5))
text(x=2, y=max(dfrm$y[dfrm$x==2]), "*", pos=3, cex=1.2)

适应x=2您的需求。

或者您可以使用mtext将星星放在绘图区域之外，例如

mtext("*", side=3, line=0, at=2, cex=1.2)