применить count () к каждой факторной переменной в кадре данных

Question

Я могу использовать purrr::map(), чтобы получить среднее значение для каждого столбца в dataframe.Могу ли я использовать любую из функций карты в сочетании с 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))

Answer 2

Вы можете использовать функцию 'table' вместо count:

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

#$`vs`

 #V  S 
#18 14 

#$am

  #auto manual 
    #19     13