R语言使用For循环按索引批量重命名数据框列的问题咨询

原代码错误原因 #

• 循环遍历对象错误：for (i in Total[,30:37])遍历的是第30到37列的单元格数值，不是你需要的列索引值，因此names(Total)[i]的索引完全不符合预期
• 赋值内容为固定字符串：右侧"SimRac(1:8)"是纯文本，不会自动生成编号序列，所有匹配到的列都会被赋值为同一个错误字符串

最优解决方案（无需循环） #

R原生支持向量化操作，直接一行代码即可完成需求，性能远高于循环写法：

names(Total)[30:37] <- paste0("SimRac", 1:8)

正确的for循环写法（如果必须使用循环） #

如果要按原有思路用for循环实现，需要遍历编号序列，写法如下：

for (i in 1:8) {
  names(Total)[29 + i] <- paste0("SimRac", i)
}

通用批量重命名工具函数 #

针对后续有多组量表需要重命名的需求，可以封装成通用函数，每次调用只需传参即可，完全消除冗余代码：

# 封装函数：传入数据框、起始列、结束列、列名前缀即可自动按规则重命名
rename_scale_cols <- function(df, start_col, end_col, prefix) {
  col_count <- end_col - start_col + 1
  names(df)[start_col:end_col] <- paste0(prefix, seq_len(col_count))
  return(df)
}

# 调用示例1：重命名30-37列为SimRac1~SimRac8
Total <- rename_scale_cols(Total, 30, 37, "SimRac")

# 调用示例2：重命名其他量表，比如10-15列为焦虑量表题项Anx1~Anx6
Total <- rename_scale_cols(Total, 10, 15, "Anx")

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