如何在R语言for循环中动态访问列表子对象并赋值？

方法一：使用列表索引（推荐） #

无需借助eval和parse，直接通过字符串索引访问列表元素，代码更安全易读：

seed <- 500
# 遍历con1到con9的元素名
for(con_name in paste0("con", 1:9)){
  results[[con_name]]$seednum <- seed
}

如果results的元素顺序恰好是con1到con9，也可以通过索引循环：

seed <- 500
for(x in 1:9){
  con_name <- paste0("con", x)
  results[[con_name]]$seednum <- seed
}

方法二：修正eval+parse的写法 #

如果一定要用eval和parse，需要将整个赋值语句转为字符串解析执行，之前的写法错误在于仅解析了左边的元素路径，未包含完整赋值逻辑：

seed <- 500
for(x in 1:9){
  eval(parse(text = paste0("results$con", x, "$seednum <- ", seed)))
}

说明 #

优先推荐方法一，因为eval+parse存在代码可读性差、易出错、调试困难的问题，而列表索引是R中操作列表元素的标准方式，更符合语言习惯。

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