R语言动态拼接dataframe列名进行赋值时报错该如何解决？

错误原因 #

R的$运算符不支持直接传入动态生成的字符串作为列名，paste返回的字符串无法被识别为合法的赋值目标对象，因此会抛出非语言对象的报错。

最优实现方案：使用[[方括号索引 #

该方案可读性高、适用场景广，[[原生支持直接传入字符串格式的列名：

# 单个动态列赋值
a <- 0
df[[paste0("PEA_", a)]] <- 1

如果需要批量给多个后缀的列赋值，可直接用循环实现：

# 批量给PEA_0、PEA_180两个列赋值
suffix_vec <- c(0, 180)
for (suffix in suffix_vec) {
  df[[paste0("PEA_", suffix)]] <- 1
}

以上代码效果和硬编码的df$PEA_0 <- 1、df$PEA_180 <- 1完全一致。

替代方案（非特殊场景不推荐） #

如果一定要模拟$调用的写法，可以将拼接后的字符串解析为R可执行表达式后运行：

a <- 0
eval(parse(text = paste0("df$PEA_", a, " <- 1")))

该方案调试难度高，存在潜在的代码注入风险，日常使用不建议选择。

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