2012-03-05 1 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("*", side=3, line=0, at=2, cex=1.2) 
+0

(+1)@chl:あなたの解決策はきれいです。 –

5

あなたはプロット上のカスタムの場所に簡単な記号を追加するためにtext()を使用することができます。

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

enter image description here

EDIT:@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

に「複数の箱ひげ図では動作しません、または私は何かが欠けていますそのようなあなたは、作図領域の外側に星を入れてmtextを使用することができますか? – chl

+0

(+1)おかしい、私はそれを見落とした。 – chl

関連する問題