从多个数据帧中总结一个向量

Question

我有五个数据框，其中包含不同数量的向量。矢量 Q10 存在于所有数据帧中（字符；值 = "Yes" 或 "No"）。我目前以这种方式检查此变量的内容：

table(mon1$Q10)
table(tue1$Q10)
table(wed1$Q10)
table(thr1$Q10)
table(fri1$Q10)

我怎样才能更快地做到这一点？我可以使用循环，但这似乎也没有效率。我想应用函数包含答案（我已将我的数据框放入名为 svylist 的列表中），但我还没有计算出来。

结果输出应显示每个数据帧的 "Yes" 和 "No" 值的计数。单个 table 会很出色，但即使是上面重复的 table() 函数的输出也能正常工作。

Answer 1

将所有数据帧合并到一个列表中，然后使用 sapply 访问它们：

days1<-list(mon=mon1,tue=tue1,wed=wed1,thr=thr1,fri=fri1)
sapply(days1, function(x) table(x$Q10))

使用两个数据帧的演示，因为我很懒：

  mon tue
n    2   1
y    2   3

summarizing a vector from multiple data frames