r - dplyr:将函数table()应用于data.frame的每一列

Question

使用dplyr将函数table()应用于data.frame的每一列

我经常使用plyr将表函数应用于数据框的每一列，如下所示:

library(plyr)
ldply( mtcars, function(x) data.frame( table(x), prop.table( table(x) ) )  )

是否可以在dplyr中这样做？

我的尝试失败了:

mtcars %>%  do( table %>% data.frame() )
melt( mtcars ) %>%  do( table %>% data.frame() )

Answer 1

您可以尝试以下不依赖tidyr包的方法。

mtcars %>% 
   lapply(table) %>% 
   lapply(as.data.frame) %>% 
   Map(cbind,var = names(mtcars),.) %>% 
   rbind_all() %>% 
   group_by(var) %>% 
   mutate(pct = Freq / sum(Freq))