批量重命名列表中DataFrame指定列：为非前三列添加年份后缀

你的代码无效的核心原因是：在R中，通过SECCIONES_year[[i]][,4:end_column]提取子集时，会创建原DataFrame的副本，修改副本的列名不会同步到原列表中的DataFrame对象。必须直接操作原DataFrame的完整列名向量才能生效。

修正后的代码 #

for (i in names(SECCIONES_year)) {
  # 提取年份（根据列表元素名称格式调整截取逻辑）
  year <- substr(i, nchar(i)-3, nchar(i))
  # 获取当前DataFrame的所有列名
  all_colnames <- colnames(SECCIONES_year[[i]])
  # 为第4列及以后的列名添加年份后缀
  all_colnames[4:length(all_colnames)] <- paste(all_colnames[4:length(all_colnames)], year, sep = "")
  # 将修改后的列名赋值回原DataFrame
  colnames(SECCIONES_year[[i]]) <- all_colnames
}

关键说明 #

• 直接操作完整列名向量all_colnames，修改指定位置的元素后重新赋值给原DataFrame，才能真正改变列表中存储的DataFrame的列名。
• 年份截取部分：原代码中substr(i, nchar(i)-4, nchar(i))可能会多截取无效字符（比如元素名是"2010"时，nchar(i)-4等于0，会导致截取错误），调整为nchar(i)-3可准确获取最后4位年份数字。如果列表元素名称格式不同（比如"SECCIONES_2010"），可根据实际情况调整截取的起始位置。
• 若想用setNames实现，需将返回的新对象重新赋值回列表：

  for (i in names(SECCIONES_year)) {
    year <- substr(i, nchar(i)-3, nchar(i))
    df <- SECCIONES_year[[i]]
    new_colnames <- colnames(df)
    new_colnames[4:length(new_colnames)] <- paste(new_colnames[4:length(new_colnames)], year, sep = "")
    SECCIONES_year[[i]] <- setNames(df, new_colnames)
  }
  

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