r - 如何将观察计数传递给构面标签？

Question

我想将每个方面的观察计数添加到每个方面的“标题”中。例如，我有这个:

library(tidyverse)    

mtcars %>% 
  ggplot(aes(x = cyl)) + geom_bar()+
  facet_wrap(~carb)

我想将下面函数的频率添加到每个标签

table(mtcars$carb)
 1  2  3  4  6  8 
 7 10  3 10  1  1 

因此第一行第一列的标签应该是1； n=7 第一行第二列 2; n=10 等等...

Answer 1

使用 tidyverse 的解决方案。我们可以创建一个更新的列来显示 carb 的计数，然后创建一个显示更新标签的新列。

library(tidyverse)

mtcars %>% 
  group_by(carb) %>%
  mutate(carb_count = n()) %>%
  ungroup() %>%
  mutate(carb_updated = paste0(carb, "; n=", carb_count)) %>%
  ggplot(aes(x = cyl)) + geom_bar()+
  facet_wrap(~carb_updated)