如何交换R中连字符分隔列名里的两个数字位置？

问题原因 #

你之前的正则表达式没有正确匹配并捕获两个数字段，导致无法完成位置交换。需要精准匹配列名的固定前缀和两个数字分组。

正确实现代码 #

直接用sub()函数，通过正则分组捕获两个数字后互换位置：

# 假设你的数据框是df
colnames(df) <- sub("Data_sum-(\\d)-(\\d{1,2})", "Data_sum-\\2-\\1", colnames(df))

示例验证 #

如果用测试列名验证：

test_cols <- c("Data_sum-1-9", "Data_sum-1-10", "Data_sum-2-9", "Data_sum-2-10")
sub("Data_sum-(\\d)-(\\d{1,2})", "Data_sum-\\2-\\1", test_cols)

输出结果：

[1] "Data_sum-9-1"  "Data_sum-10-1" "Data_sum-9-2"  "Data_sum-10-2"

正则说明 #

• Data_sum-：匹配列名的固定前缀部分
• (\\d)：捕获第一个单个数字（对应原格式里的第一个数字），记为分组1
• -：匹配两个数字之间的分隔符
• (\\d{1,2})：捕获第二个1-2位数字（对应原格式里的第二个数字），记为分组2
• 替换字符串Data_sum-\\2-\\1：把分组2和分组1的位置互换，还原前缀和分隔符

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