r - 将 count() 应用于数据框中的每个因子变量

Question

我可以使用purrr::map()来获取数据帧中每一列的平均值。我可以将任何 map 函数与 count() 结合使用来获取数据框中每个分类变量的计数吗？

library(dplyr)
library(purrr)

mtcars %>% map(mean)

mtcars %>% mutate(am = factor(am, labels = c("auto", "manual")),
         vs = factor(vs, labels = c("V", "S"))) %>% select_if(is.factor) %>% 
map(count)

Answer 1

快到了!只需要指定count中的数据即可:

mtcars %>% 
  mutate(
    am = factor(am, labels = c("auto", "manual")),
    vs = factor(vs, labels = c("V", "S"))
  ) %>% 
  select_if(is.factor) %>% 
  map(~count(data.frame(x = .x), x))