如何在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作爲進一步的例子。