R语言中循环为列表内数据框命名遇赋值错误，求解决方案

错误原因解析 #

你遇到的target of assignment expands to non-language object错误，本质是因为eval(parse(text = temp))返回的是原列表的临时副本，而非原变量本身。R的赋值语法要求左侧必须是可被直接赋值的对象（比如变量名），临时副本不属于这类“可赋值的语言对象”，因此无法完成赋值操作。同时，即使语法通过，修改副本的名称也不会影响原列表。

正确实现方式 #

方法1：使用get()和assign()操作原变量 #

这种方式直接针对全局环境中的原变量进行修改，逻辑清晰：

name.vector <- c("A", "B")
for (i in 1:8) {
  # 生成目标列表的变量名
  temp_name <- paste0("d.list", sprintf("%02d", i))
  # 获取原列表对象
  current_list <- get(temp_name)
  # 为列表元素命名
  names(current_list) <- name.vector
  # 将修改后的列表赋值回原变量
  assign(temp_name, current_list)
}

方法2：批量收集列表后统一处理（更符合R风格） #

避免使用parse/eval这类容易出错的字符串解析操作，先把所有目标列表收集到一个大列表中，批量修改后再放回全局环境：

name.vector <- c("A", "B")
# 批量获取所有目标列表
all_lists <- mget(paste0("d.list", sprintf("%02d", 1:8)))
# 为每个子列表设置名称
all_lists_named <- lapply(all_lists, function(x) {
  names(x) <- name.vector
  x
})
# 将修改后的列表放回全局环境
list2env(all_lists_named, .GlobalEnv)

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