R语言中能否在colnames函数内使用循环批量重命名数据框列名？

需求说明 #

存在一批遵循统一命名规则的问卷字段变量，此前采用手动逐个修改列名的方式效率极低，需要通过批量处理逻辑配合colnames()函数自动生成符合规则的变量名，替代冗余的手动枚举写法。

示例测试数据 #

structure(list(PCL.01.01.t1 = 1, PCL.01.02.t1 = 1, PCL.01.03.t1 = 1, 
    PCL.01.04.t1 = 1, PCL.01.05.t1 = 1, PCL.01.06.t1 = 1, PCL.01.07.t1 = 1, 
    PCL.01.08.t1 = 1, PCL.01.09.t1 = 1, PCL.01.10.t1 = 1, PCL.01.11.t1 = 1, 
    PCL.01.12.t1 = 1, PCL.01.13.t1 = 1, PCL.01.14.t1 = 1, PCL.01.15.t1 = 1, 
    PCL.01.16.t1 = 1, PCL.01.17.t1 = 1), class = "data.frame", row.names = c(NA, 
-1L)) -> data_MUENSTER

待优化的冗余写法 #

当前代码可正常运行，但需要手动枚举所有待修改列名和目标列名，维护成本高、易出错：

colnames (data_MUENSTER) [colnames(data_MUENSTER) %in% c("PCL.01.01.t1", "PCL.01.02.t1", "PCL.01.03.t1", "PCL.01.04.t1", "PCL.01.05.t1", "PCL.01.06.t1",
"PCL.01.07.t1", "PCL.01.08.t1", "PCL.01.09.t1", "PCL.01.10.t1", "PCL.01.11.t1", "PCL.01.12.t1", "PCL.01.13.t1","PCL.01.14.t1", "PCL.01.15.t1","PCL.01.16.t1", "PCL.01.17.t1")] <- c("PCL.01.01", "PCL.01.02", "PCL.01.03", "PCL.01.04", "PCL.01.05", "PCL.01.06", "PCL.01.07", "PCL.01.08","PCL.01.09", "PCL.01.10", "PCL.01.11", "PCL.01.12", "PCL.01.13", "PCL.01.14",
"PCL.01.15", "PCL.01.16", "PCL.01.17")

批量重命名实现方案 #

观察重命名规则：所有待修改列的统一特征是列名末尾带有.t1后缀，重命名仅需删除该后缀即可，无需手动枚举所有列名，也不需要编写显式循环，直接通过字符串正则替换即可一行完成：

# 全局替换：删除所有列名末尾的.t1后缀
colnames(data_MUENSTER) <- sub("\\.t1$", "", colnames(data_MUENSTER))

代码说明 #

• sub()是R内置的字符串替换函数，第一个参数为匹配规则，第二个参数为替换内容，第三个参数为待处理的字符向量
• 匹配规则\\.t1$中：
  • \\.用于匹配英文点号，因为点号在正则中是特殊字符，需要加双斜杠转义
  • $表示匹配字符串的末尾位置，只会删除列名结尾的.t1，不会误匹配列名中间位置出现的相同字符
• 该写法不受题项数量限制，后续PCL题项增减只要命名规则不变，代码无需修改即可正常运行。

如果数据框中还存在其他带.t1后缀、不需要修改的列，可以增加前缀筛选逻辑，仅处理PCL开头的列：

# 先筛选出所有PCL开头、末尾带.t1后缀的列位置
target_cols <- grepl("^PCL.*\\.t1$", colnames(data_MUENSTER))
# 仅对筛选出的目标列做后缀删除操作
colnames(data_MUENSTER)[target_cols] <- sub("\\.t1$", "", colnames(data_MUENSTER)[target_cols])

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