R语言修改get()引用对象报错原因及列名批量修改方案

报错核心原因是：get()返回的是对象的值副本，不是原对象的可修改引用。R中赋值运算符的左侧必须是合法的左值（即能定位到环境中某个变量存储位置的表达式），names(get(df))只会先计算get(df)的结果值，无法关联到全局环境里原dataframe的存储位置，因此赋值操作找不到可写入的目标对象，触发参数非法报错。<<-是向上层级环境搜索变量的赋值运算符，也无法解决左侧不是合法左值的问题。

方案1：get+assign组合（兼容原有遍历逻辑） #

先将目标对象读取到临时变量修改，再写回原环境，符合你原本的遍历实现思路：

# 提取全局环境中所有后缀为.dat的dataframe对象名
df_names <- ls(pattern = "\\.dat$", envir = .GlobalEnv)

for (df in df_names) {
  # 读取目标对象到临时变量
  tmp_df <- get(df, envir = .GlobalEnv)
  # 筛选含双点的目标列
  problem_cols <- grepl("\\.\\.", names(tmp_df))
  if (any(problem_cols)) {
    # 提取双点前的有效前缀作为新列名
    new_names <- sub("^(.*)\\.\\..*$", "\\1", names(tmp_df))
    names(tmp_df)[problem_cols] <- new_names[problem_cols]
    # 将修改后的对象写回全局环境，覆盖原对象
    assign(df, tmp_df, envir = .GlobalEnv)
  }
  rm(tmp_df)
}

方案2：批量列表处理（更简洁） #

将所有目标对象批量读取到列表统一处理，再一次性写回环境，避免循环内反复调用get/assign：

# 批量读取所有.dat结尾的dataframe到列表
df_list <- mget(ls(pattern = "\\.dat$", envir = .GlobalEnv), envir = .GlobalEnv)
# 批量处理所有dataframe的列名
df_list <- lapply(df_list, function(x) {
  names(x) <- sub("^(.*)\\.\\..*$", "\\1", names(x))
  return(x)
})
# 批量写回全局环境覆盖原对象
list2env(df_list, envir = .GlobalEnv)

• 若列名存在多个双点，可调整正则规则匹配需求：如仅需移除最后一个双点后的内容，将正则改为"^(.*)\\.\\.[^.]*$"即可
• 执行修改前建议先打印待修改的列名校验规则正确性，避免误改：可在修改逻辑前加入print(names(tmp_df)[grepl("\\.\\.", names(tmp_df))])预览目标列

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