r - 在 ggplot2 中箱线图的每个框的 x 轴上添加样本总数

Question

我可以用经典的箱线图来做到这一点。这里我们使用内置数据:PlantGrown 为例。

attach(PlantGrowth)    
boxplot(weight~group,data=PlantGrowth,xaxt="n")
PlantGrowthSum=ddply(PlantGrowth,.(group),summarise,sum=length(weight))

> PlantGrowthSum
   group sum
1  ctrl  10
2  trt1  10
3  trt2  10

axis(1,1:3,paste(PlantGrowthSum$group,"(",PlantGrowthSum$sum,")",sep=""))

这里有个问题，ggplot2怎么样？

library(ggplot2)
bp <- ggplot(data=PlantGrowth, aes(x=group, y=weight, fill=group))
    + geom_boxplot()
    +theme(axis.text.x=element_blank())
    +theme(axis.text.x=1:3)
bp

但是失败了。关于应该设置哪个参数的任何线索？

Answer 1

由于在本例中 x 值是离散的，因此您应该使用 scale_x_discrete() 来设置 x 轴的标签。

bp <- ggplot(data=PlantGrowth, aes(x=group, y=weight, fill=group))+
geom_boxplot()
bp+scale_x_discrete(labels=paste(PlantGrowthSum$group,"(",PlantGrowthSum$sum,")",sep=""))

有关 ggplot2 绘图的比例和其他元素的更多信息和示例可以在 ggplot2 文档 site 中找到。 。