如何在R ggplot2 facet_wrap中的要素标题下添加文本或值？

Question

例如，

ggplot(mpg, aes(displ, hwy)) + 
    geom_point() + 
    facet_wrap(~class, nrow = 4)  

通过因子产生曲线。我怎样才能在每个标题（2seater，compact，midsize，minivan等）下添加文本或数​​值，如观测值的手段和数量？我认为这与贴标签有关，但我似乎无法使其工作。

Answer 1

我使用的是iris作为例子，因为只有3个组（而不是6个类的mpg），并且没有涉及mpg示例中由“2seater”创建的奇怪问题。 （i）创建汇总统计数据。在这种情况下，正数：

ann_text <- iris %>% 
      group_by(Species) %>% 
      summarise(n=n()) 

（二）创建自定义标签

sp.labels <- c(
    setosa = paste0("setosa\n(n=", ann_text[ann_text$Species=="setosa", "n"],")"), 
    versicolor = paste0("versicolor\n(n=", ann_text[ann_text$Species=="versicolor", "n"],")"), 
    virginica = paste0("virginica\n(n=", ann_text[ann_text$Species=="virginica", "n"],")") 
) 

（三）情节与自定义标签：

ggplot(iris, aes(Petal.Length, Sepal.Length)) + 
    geom_point() + 
    facet_wrap(~Species, 
      labeller=labeller(
       label_wrap_gen(width=10), 
       Species=sp.labels)) 

待办事项参考construct labelling specification作为进一步的例子。