R语言如何通过部分字符串匹配将多数据框指定列重命名为Growth

你的需求核心是定位到包含指定公共子串的列后，直接修改整个列的名称，而非修改列名字符串的局部内容，不需要用gsub做局部替换，可参考以下通用方案：

单数据框通用处理（适配你正在使用的data.table语法） #

# 定义可复用的重命名函数
rename_growth_col <- function(df, match_key = "Growth Level Judgement", new_colname = "Growth") {
  # 匹配包含指定子串的列名
  target_col <- grep(match_key, names(df), value = TRUE)
  # 匹配到唯一目标列时执行重命名，避免多匹配/无匹配时报错
  if (length(target_col) == 1) {
    setnames(df, old = target_col, new = new_colname)
  }
  return(df)
}

# 调用示例，直接传入对应数据框即可
apple_df <- rename_growth_col(apple_df)
mango_df <- rename_growth_col(mango_df)

批量处理所有5个数据框 #

不需要逐个调用函数，可一次性完成所有数据框的重命名：

# 存入所有需要处理的数据框名称
all_dfs <- c("apple_df", "mango_df", "banana_df", "potato_df", "tomato_df")

# 批量执行重命名操作
invisible(lapply(all_dfs, function(x) {
  current_df <- get(x)
  target_col <- grep("Growth Level Judgement", names(current_df), value = TRUE)
  if (length(target_col) == 1) {
    setnames(current_df, old = target_col, new = "Growth")
  }
  assign(x, current_df, envir = .GlobalEnv)
}))

其他语法适配 #

如果你后续使用基础R或tidyverse，也可以用对应简洁写法：

• 基础R写法：

names(apple_df)[grepl("Growth Level Judgement", names(apple_df))] <- "Growth"

• dplyr写法：

library(dplyr)
apple_df <- apple_df %>%
  rename_with(~"Growth", .cols = contains("Growth Level Judgement"))

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