2014-10-17 29 views
1

我已經在同一幅圖創建了兩個盒狀圖,按代碼下面添加統計的一個表的箱線圖中的R

a = c(1,1,1,2,2,2,2,2,5,5,5,5,5,6,5,4,7) 

b = c(1,1,2,2,2,2,2,2,5,5,5,5,5,6,5,3,8) 

boxplot( a 
     , b 
     , names = c("Category a", "Category b") 
     , staplewex = 1 
     , horizontal = TRUE) 

我想也添加的重要的數據點,Q1中值等,如標籤或圖表上類似於圖例的彙總表 - 這可能嗎?

感謝

+0

,你可以將它們添加手動使用'text' – user20650 2014-10-17 08:33:35

+1

@Sam吉爾伯特或許''從圖書館addtable2plot'(plotrix)'還可以幫助。 – akrun 2014-10-17 08:35:02

回答

0

我提供使用gridExtra將該代碼作爲另一種方法:

library(gridExtra) 
set.seed(1) 
mydata <- data.frame(a=1:50, b=rnorm(50)) 
mytable <- cbind(sites=c("site 1","site 2","site 3","site 4"), mydata[10:13,]) 
k <- ggplot(mydata,aes(x=a,y=b)) + geom_point(colour="blue") + 
    geom_point(data=mydata[10:13, ], aes(x=a, y=b), colour="red", size=5) + 
    annotation_custom(tableGrob(mytable), xmin=35, xmax=50, ymin=-2.5, ymax=-1) 
+0

謝謝。兩者都可以工作,但我更喜歡gridExtra的表格格式 – 2014-10-17 12:07:10

1

感謝您的幫助plotrix包工程!

install.packages("plotrix") 

library(plotrix) 

table <- sapply(as.data.frame(cbind(a,b)),summary) 

addtable2plot(22,2,table)