2012-03-05 18 views

回答

4

如果您事先知道,您可以使用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) 
+0

(+1)@chl:您的解決方案很整齊(呃)。 – 2012-03-05 23:05:47

5

您可以使用text()簡單的符號添加到自定義位置上的情節:

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

enter image description here

編輯:在回答@chl建議,這裏是一系列箱線圖的上述應用:

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

enter image description here

+0

這不會」多箱線的工作,還是我失去了一些東西? – chl 2012-03-05 20:53:54

+0

(+1)有趣的是,我忽略了這一點。 – chl 2012-03-05 21:30:12

相關問題