r - dplyr 汇总多列并输出多个数据帧

Question

我希望能够分别汇总多个列，并为每个汇总输出一个单独的数据框。现在，我正在手动执行此操作:

例子:

manufacturer = mpg %>% 
  select(manufacturer) %>% 
  group_by(manufacturer) %>% 
  summarise(
    count = n()
  )

model = mpg %>% 
  select(model) %>% 
  group_by(model) %>% 
  summarise(
    count = n()
  )

## etc. for each column of mpg.

有没有办法在某种循环中自动执行此操作？我希望数据框名称成为列名。

Answer 1

我们可以遍历列名

library(dplyr)
library(purrr)
lst1 <- map(setNames(names(mpg), names(mpg)),  
  ~ mpg %>% 
      select(all_of(.x)) %>% 
      group_by(across(all_of(.x))) %>%
      summarise(count = n()) )

最好将其保存在列表中。如果我们想要不同的对象，请使用 list2env

list2env(lst1, .GlobalEnv)