一般的な列の複数の類似したデータセットの頻度テーブル

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 

より正確には、上記の2つの出力を1つのコマンドで取得する方法です。

Answer 1

我々はlist内のオブジェクトを保持し、lapply

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

---

それとも別のオプションlist

内のオブジェクトを保持した後 tidyverseあると listをループすることにより、必要な列の tableを取得

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

---

私たちが名付けlist

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