在R语言中批量移除多个数据框的列名指定前缀

针对你需要批量移除多个数据框列名中x__前缀的需求，这里提供两种实用方法：

方法一：基础R实现（无需额外包） #

这种方法适合不想加载第三方包的场景，通过循环批量处理目标数据框：

# 定义需要处理的数据框名称（如果有100多个，可按规律自动获取，见下方补充）
target_dfs <- c("df1", "df2", "df3")

# 循环处理每个数据框
for(df_name in target_dfs) {
  # 获取当前数据框
  current_df <- get(df_name)
  # 替换列名开头的x__前缀（^表示匹配字符串起始位置）
  colnames(current_df) <- sub("^x__", "", colnames(current_df))
  # 将修改后的数据框重新赋值回原名称
  assign(df_name, current_df)
}

补充：自动获取目标数据框名称 #

如果你的100余个数据框有统一命名规律（比如都是df开头），可以用ls()自动筛选，不用手动输入所有名称：

# 自动获取全局环境中所有以df开头的数据框名称
target_dfs <- ls(pattern = "^df")

方法二：tidyverse工具链实现 #

如果你习惯用dplyr等tidyverse包，可结合purrr实现更简洁的批量处理：

library(purrr)
library(dplyr)

# 目标数据框名称，同样可自动获取
target_dfs <- c("df1", "df2", "df3")

# 批量处理并重新赋值
map(target_dfs, function(df_name) {
  get(df_name) %>%
    rename_with(~sub("^x__", "", .x)) %>%  # 对所有列名执行前缀替换
    assign(df_name, ., envir = .GlobalEnv)  # 将结果存回原数据框名称
})

验证结果 #

处理完成后，你可以通过colnames()查看修改后的列名：

colnames(df1)  # 输出: "a" "b" "c"
colnames(df2)  # 输出: "d" "e" "f"
colnames(df3)  # 输出: "g" "h" "i"

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