2012-03-05 12 views

Trả lời

4

Bạn có thể sử dụng text() và viết tại vị trí tương ứng, nếu bạn biết điều đó trước; ví dụ:

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) 

Thích ứng x=2 để phù hợp với nhu cầu của bạn.

Hoặc bạn có thể sử dụng mtext để đưa ngôi sao bên ngoài khu vực âm mưu, giống như trong

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

(+1) @chl: Giải pháp của bạn gọn gàng (er). –

5

Bạn có thể sử dụng text() để thêm các biểu tượng đơn giản đến vị trí tùy chỉnh trên cốt truyện:

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

enter image description here

EDIT: Trong thư trả lời để @chl gợi ý, đây là ứng dụng trên với một loạt các boxplots :

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

Điều đó sẽ không' làm việc với nhiều boxplots, hay tôi thiếu cái gì? – chl

+0

(+1) Hài hước, tôi đã bỏ qua điều đó. – chl