如何在R语言循环中修改指定列名？解决赋值报错问题

错误原因分析 #

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

1. 修改列名时，names("data", i)[5] 的写法完全错误，无法正确定位到动态命名的数据框；
2. paste0("nfk"), substr(data_files[i],9,14) 语法错误，paste0 的所有拼接参数必须放在同一个括号内。

方案1：修正原代码逻辑 #

如果坚持用assign创建单独的数据框对象，修改后的代码如下：

for(i in 1:length(data_files)) {
  # 提前提取需要拼接的子串
  sub_str <- substr(data_files[i], 9, 14)
  # 先读取数据到临时变量
  temp_df <- read.csv2(paste0("D:/Radar/Duerre/Files/NFK/", data_files[i]))
  # 修改第5列的列名
  names(temp_df)[5] <- paste0("nfk", sub_str)
  # 将修改后的数据框赋值到全局环境
  assign(paste0("data", i), temp_df)
}

• 先把数据读入临时变量，修改列名后再存入全局环境，避免直接操作动态命名对象的繁琐；
• 单独提取子串，让代码更简洁易读。

方案2：推荐用列表存储数据框（更规范） #

用assign创建大量data1、data2这类分散的对象会让工作环境混乱，后续操作也不便，推荐用列表统一管理：

# 初始化空列表用于存储所有数据框
data_collection <- list()

for(i in 1:length(data_files)) {
  sub_str <- substr(data_files[i], 9, 14)
  temp_df <- read.csv2(paste0("D:/Radar/Duerre/Files/NFK/", data_files[i]))
  names(temp_df)[5] <- paste0("nfk", sub_str)
  # 将数据框存入列表，保留原命名规则
  data_collection[[paste0("data", i)]] <- temp_df
}

后续调用某份数据时，直接用data_collection[["data1"]]即可，管理和批量操作效率更高。

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