共同列多個相似數據集的頻率表

Question

如何獲取多個數據集的頻率表msleep,msleep_sub共用列vore？我想知道是否可以通過將列名傳遞給apply家庭功能來實現。

library(msleep) 
head(msleep) 
msleep_sub <- msleep %>% group_by(genus) %>% filter(n() ==1) 
table(msleep$vore) 
# carni herbi insecti omni 
#  14  27  5  20 
table(msleep_sub$vore) 
# carni herbi insecti omni 
#  19  32  5  20 

更確切地說，如何使用單個命令獲得上述兩個輸出。

Answer 1

我們一直在list的對象，並通過該list與lapply

lapply(list(msleep, msleep_sub), function(x) table(x$vore)) 

---

循環得到所需的列table還是其他選項保持物體在list

後 tidyverse

library(tidyverse) 
list(msleep, msleep_sub) %>% 
      map(~table(.$vore)) 

---

如果我們需要一個名爲list

mget(ls(pattern = "msleep")) %>% 
        map(~table(.$vore))