如何执行制表循环？

问：

我需要将许多分类变量制成表格。我正在使用提问者库中的函数 freq 来做到这一点。我的数据帧叫做esp。

我创建一个对象，其分类变量如下：

symp <- c("asthma", "flu", "cough", "sivilance", "fever")

我使用库foreach将symp中的所有变量制成表格：

library(foreach)

foreach(esp[symp]) %do% questionr::freq(i, cum = TRUE, total = TRUE, na.last = T)

但是，它没有奏效，结果如下：

[[1]]
      n   % val% %cum val%cum
3     1 100  100  100     100
Total 1 100  100  100     100

[[2]]
      n   % val% %cum val%cum
3     1 100  100  100     100
Total 1 100  100  100     100

[[3]]
      n   % val% %cum val%cum
3     1 100  100  100     100
Total 1 100  100  100     100

[[4]]
      n   % val% %cum val%cum
3     1 100  100  100     100
Total 1 100  100  100     100

[[5]]
      n   % val% %cum val%cum
3     1 100  100  100     100
Total 1 100  100  100     100

我需要每个变量的表格。

如何在不重复代码的情况下将所有变量制成表格？

谢谢