将统计表添加到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中值等，作为标签或图表上类似图例的汇总表-这可能吗

---

感谢您的帮助，plotrix软件包可以正常工作

install.packages("plotrix")

library(plotrix)

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

addtable2plot(22,2,table)

install.packages（“plotrix”）
库（plotrix）
表我将此代码作为使用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)

库（gridExtra）
种子（1）
我的数据您可以使用
text
@Sam Gilbert手动添加它们。也许
addtable2plot
来自
库（plotrix）
也会有帮助。谢谢。两者都可以，但我更喜欢gridExtra的表格格式