如何在R语言中批量替换列名空格为下划线？求R代码方案

下面是几种常用的实现方式，根据你的数据处理习惯选择即可：

1. Base R 原生实现 #

直接通过colnames()结合gsub()替换，无需额外安装包：

# 假设你的数据框名为 df
colnames(df) <- gsub(pattern = " ", replacement = "_", x = colnames(df))

gsub()会将列名中所有空格替换为下划线，一次性完成批量修改。

2. Tidyverse (dplyr) 风格实现 #

如果你习惯使用tidyverse生态，dplyr的rename_with()函数更适合管道化操作：

library(dplyr)

# 管道式修改（推荐，代码可读性更强）
df <- df %>% 
  rename_with(.fn = ~ gsub(" ", "_", .x))

# 非管道式写法
df <- rename_with(df, ~ gsub(" ", "_", .x))

.x代表每个列名，匿名函数会遍历所有列名完成替换。

3. Data.table 高效实现 #

如果处理的是data.table对象，使用setnames()可以高效修改列名（无需复制数据）：

library(data.table)

# 假设你的data.table对象名为 dt
setnames(dt, new = gsub(" ", "_", colnames(dt)))

# 完整参数写法（可选）
setnames(dt, old = colnames(dt), new = gsub(" ", "_", colnames(dt)))

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