我想获取一个多面直方图,并在每幅图上添加文本,以指示该多面中的观测总数。因此,对于carb = 1,总计数为7,而carb = 2则总计数为10,依此类推。
p <- ggplot(mtcars, aes(x = mpg, stat = "count",fill=as.factor(carb))) + geom_histogram(bins = 8)
p <- p + facet_grid(as.factor(carb) ~ .)
p
我可以使用table函数来执行此操作,但是对于更复杂的方面,我该如何快速执行呢?