如何移除R语言DataFrame列名中的指定冗余字符串？

你可以通过正则表达式匹配并替换列名中的冗余前缀，以下是两种可行的批量处理方法：

示例数据 #

先还原你的示例DataFrame：

X..Age <- c(23, 34, 24, 10)
..Region <- c("A", "B","C","D")
X.span.style..display.none..Salary <- c(100,200, 300, 400)
X.....code <- c(14, 12, 13, 15)

DF <- data.frame(X..Age, ..Region,  X.span.style..display.none..Salary, X.....code)

方法1：基础R原生实现 #

使用gsub函数，将需要移除的前缀模式合并为正则表达式（注意转义.——正则中.代表任意字符，需用\\.匹配实际点号）：

# 定义所有需要移除的前缀模式
remove_patterns <- c(
  "X\\.\\.", 
  "\\.\\.", 
  "X\\.span\\.style\\.\\.display\\.none\\.\\.", 
  "X\\.\\.\\.\\.\\."
)
# 合并为单个正则表达式，用|分隔多个匹配规则
combined_pattern <- paste(remove_patterns, collapse = "|")
# 批量替换列名
colnames(DF) <- gsub(combined_pattern, "", colnames(DF))

执行后列名将变为："Age" "Region" "Salary" "code"

方法2：使用stringr包（更简洁直观） #

stringr包的str_remove_all支持直接传入多个匹配模式，代码可读性更强：

library(stringr)

colnames(DF) <- str_remove_all(
  colnames(DF), 
  regex("X\\.\\.|\\.\\.|X\\.span\\.style\\.\\.display\\.none\\.\\.|X\\.\\.\\.\\.\\.")
)

两种方法都能快速处理50列的DataFrame，无需手动修改每一列名。

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