R语言如何在循环中将列名作为参数构建交叉表

API 探路者

2026-10-18

问题原因解析

第一种myDataSet$i写法错误：R中$运算符后接的列名是字面匹配，不会将变量i解析为你存储的列名字符串，相当于你一直在尝试调取数据集中不存在的i列，自然无法得到正确结果。
第二种myDataSet[[i]]的取值逻辑是正确的，无法正常运行基本是两个常见原因：
- 你没有将verdict列从遍历的列名向量中排除，出现了verdict和自身做交叉表的无效运算，甚至触发报错
- R的for循环默认不会自动打印内部运算结果，你没有主动加print()语句的话，控制台看不到输出，会误以为代码没有运行

可行解决方案

方案1：循环直接打印所有交叉表

适合只需要快速查看数据探索结果的场景：

# 第一步：先排除verdict列本身，避免无效运算
x <- setdiff(names(myDataSet), "verdict")

for (i in x){
  cat("===== 列名：", i, " 与verdict的交叉表 =====\n")
  # 主动打印交叉表，useNA参数设置为展示缺失值，方便完整探索数据
  print(table(myDataSet[[i]], myDataSet[["verdict"]], useNA = "ifany"))
  cat("\n")
}

方案2：将交叉表存储为列表供后续调用

适合需要后续对交叉表做进一步计算的场景：

x <- setdiff(names(myDataSet), "verdict")
# 初始化空列表存储结果
crosstab_result <- list()

for (i in x){
  crosstab_result[[i]] <- table(myDataSet[[i]], myDataSet[["verdict"]], useNA = "ifany")
}

# 后续调用示例：查看名为gender的列与verdict的交叉表
# crosstab_result[["gender"]]

更简洁的向量化写法（无需显式写for循环）

用lapply实现和方案2完全一致的效果：

x <- setdiff(names(myDataSet), "verdict")
crosstab_result <- lapply(x, function(col) {
  table(myDataSet[[col]], myDataSet[["verdict"]], useNA = "ifany")
})
names(crosstab_result) <- x