将 table() function 应用于多个数据框中的相同列名 - r

Question

我正在尝试将 table() function 应用于多个数据帧中的同一列。 我确信有一种更有效的方法，而不是仅仅输入每一行代码并更改数据框。这就是我一直在做的事情。 （数据框是艾布拉姆、阿灵顿、布兰奇、卡森、钻石；列名称是 Admin_Supp)

table(abram$Admin_Supp)
table(arlington$Admin_Supp)
table(blanche$Admin_Supp)
table(carson$Admin_Supp)
table(diamond$Admin_Supp)

我试图玩 lapply() 但我想不通。 任何帮助将不胜感激~谢谢！

Answer 1

将从数据集中提取的列放在list ，并通过使用lapply遍历list来应用table

lapply(list(abram$Admin_Supp, arlington$Admin_Supp, blanche$Admin_Supp, 
  carson$Admin_Supp, diamond$Admin_Supp), table)

---

或者将数据集放在list ，通过循环提取列并应用table

lapply(list(abram, arlington, blanche, carson, diamond), function(x)
           table(x$Admin_Supp))

---

如果我们只对在全局环境中创建的data.frame对象感兴趣，我们还可以遍历环境并仅在它是 data.frame 时提取列

Filter(length, eapply(environment(), \(x) 
   if(is.data.frame(x)) table(x$Admin_Supp)))