R语言循环遍历数据框列生成交叉表报错，求解决方案

你遇到的错误是因为paste0('df$', i)生成的是字符串（比如"df$var2"），不是数据框里的实际列数据，长度只有1，而df$class是长度为2的向量，table()要求所有参数长度一致，所以报错。

下面是几种可行的解决方法：

方法1：用方括号索引列（最推荐） #

直接通过列名提取对应列的向量，和df$class匹配：

df <- data.frame(class=c('A', 'B'),
                 var2=c(1, 0),
                 var3=c(0, 1))

for (i in colnames(df)[2:3]) {
  # 打印每列和class的交叉表
  print(table(df[[i]], df$class))
}

运行后会输出每列与class的交叉表：

A B
  0 0 1
  1 1 0
   
    A B
  0 1 0
  1 0 1

方法2：正确使用get()函数 #

如果想用get()，需要指定从数据框df中提取列，而不是构造带df$的字符串：

for (i in colnames(df)[2:3]) {
  print(table(get(i, envir = df), df$class))
}

这里get(i, envir = df)表示从df这个环境中提取名为i的列，避免在全局环境里找不存在的"df$var2"对象。

方法3：用lapply批量处理（无需循环） #

如果你不想写for循环，可以用lapply遍历指定列，批量生成交叉表：

result <- lapply(df[, 2:3], function(col_data) {
  table(col_data, df$class)
})

# 查看结果
print(result)

返回的result是一个列表，每个元素对应一列与class的交叉表。

内容的提问来源于stack exchange，提问作者Log On