R循环迭代列生成新列时遇对象未找到错误求助

错误原因分析 #

你的代码存在两个核心问题：

1. 循环逻辑错误：你需要的是三组列一一对应计算（如第1、13、25列生成Responseto1，第2、14、26列生成Responseto2…），但三重嵌套循环会遍历所有11×11×11=1331种组合，完全不符合需求，还会导致重复赋值。
2. 索引与列操作错误：
   • 数据框取单个列向量时，df[j]返回的是单列数据框，应改用df[[j]]或df[,j]（更适合向量比较）；
   • df$Responseto[i]是试图修改Responseto列的第i行，但你实际需要创建的是Responseto1到Responseto11这样的新列，写法完全错误。

正确解决方案 #

方案1：基础R单循环（直观易理解） #

利用三组列索引的同步关系（j = i+12，k = i+24），用单个循环完成批量处理：

for (i in 1:11) {
  # 计算对应组的另外两个列索引
  j <- i + 12
  k <- i + 24
  # 构建新列名称
  new_col_name <- paste0("Responseto", i)
  # 应用OR逻辑并赋值给新列
  df[[new_col_name]] <- ifelse(
    df[[i]] == "Mentioned" | df[[j]] == "Mentioned" | df[[k]] == "Mentioned",
    "Mentioned",
    "Not"
  )
}

方案2：向量化操作（R语言推荐，效率更高） #

用mapply实现批量映射，避免循环的冗余：

# 定义三组列的索引集合
group1 <- 1:11
group2 <- 13:23
group3 <- 25:35

# 定义单组列的处理函数
calc_mention <- function(c1, c2, c3) {
  ifelse(
    df[[c1]] == "Mentioned" | df[[c2]] == "Mentioned" | df[[c3]] == "Mentioned",
    "Mentioned",
    "Not"
  )
}

# 批量生成新列并赋值
new_cols <- paste0("Responseto", 1:11)
df[new_cols] <- mapply(calc_mention, group1, group2, group3)

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