Возможный дубликат:
Создание графика facet_wrap с ggplot2 с различными аннотациями в каждом сюжете
Добавить текст в гранжевой график в ggplot2 с датами по оси X
Иногда, когда данные огранки в 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)