用每个方面的观察次数注释 ggplot2 方面[重复]

Question

可能重复：
Creating a facet_wrap plot with ggplot2 with different annotations in each plot
Add text to a faceted plot in ggplot2 with dates on X axis

偶尔在 ggplot 中对数据进行分面时，我认为最好用落入每个方面的观察数量来注释每个方面。当刻面可能导致每个刻面的观察相对较少时，这一点尤其重要。

向该图的每个方面添加“n=X”的最佳/最简单方法是什么？

require(ggplot2)
mms <- data.frame(deliciousness = rnorm(100),
                  type=sample(as.factor(c("peanut", "regular")), 100, replace=TRUE),
                  color=sample(as.factor(c("red", "green", "yellow", "brown")), 100, replace=TRUE))


plot <- ggplot(data=mms, aes(x=deliciousness)) + geom_density() + facet_grid(type ~ color)

Answer 1

之前好像有人问过这个问题，但我一开始没看到它们是如何连接的。我在这里回答这个问题，但不接受它，以防有人有更优雅的东西。此外，n = foo 是一个很常见的情况，希望有人能从这个问题中得到一些用处，即使它有点重复。

require(ggplot2)
require(plyr)
mms <- data.frame(deliciousness = rnorm(100),
                  type=sample(as.factor(c("peanut", "regular")), 
                              100, replace=TRUE),
                  color=sample(as.factor(c("red", "green", "yellow", "brown")), 
                              100, replace=TRUE))


mms.cor <- ddply(.data=mms, 
                 .(type, color), 
                 summarize, 
                 n=paste("n =", length(deliciousness)))

plot <- ggplot(data=mms, aes(x=deliciousness)) + 
          geom_density() + 
          facet_grid(type ~ color) + 
          geom_text(data=mms.cor, aes(x=1.8, y=5, label=n), 
                    colour="black", inherit.aes=FALSE, parse=FALSE)

plot