如何在R语言中检测特定词并替换整串？支持多文件批量操作

单数据框高效替换方法 #

你之前用的精确匹配只针对"121 Texas"，遇到"234 Texas"这类相似格式的内容就没法覆盖，而且逐个处理dataframe效率太低。用正则表达式可以一次性搞定所有带Texas的目标字符：

基础R实现

# 遍历数据框所有列，仅对字符型列做替换
df[] <- lapply(df, function(col) {
  if (is.character(col)) {
    # 把所有"XXX Texas"格式的内容替换成"Texas"，XXX可以是任意字符
    gsub(".*\\sTexas$", "Texas", col)
    # 要是只要字符串包含Texas就全替换成纯Texas，改成：gsub(".*Texas.*", "Texas", col)
  } else {
    col # 非字符列保持原样
  }
})

tidyverse风格实现（更简洁）

如果你习惯用dplyr系列工具，代码可读性更强：

library(dplyr)
library(stringr)

df <- df %>%
  mutate(across(where(is.character), ~str_replace(.x, ".*\\sTexas$", "Texas")))

多文件批量处理流程 #

把替换逻辑封装成函数，批量完成「读取文件→替换字符→保存结果」的全流程，不用逐个手动操作：

示例（以CSV文件为例）

# 1. 设置文件所在文件夹路径
setwd("你的文件存放路径")

# 2. 获取文件夹下所有CSV文件的完整路径
all_csv <- list.files(pattern = "\\.csv$", full.names = TRUE)

# 3. 定义处理函数
process_csv <- function(file_path) {
  # 读取文件
  data <- read.csv(file_path, stringsAsFactors = FALSE)
  # 执行字符替换
  data[] <- lapply(data, function(col) {
    if (is.character(col)) {
      gsub(".*\\sTexas$", "Texas", col)
    } else {
      col
    }
  })
  # 生成处理后的文件名（原文件名后加"_处理后"）
  output_name <- sub("\\.csv$", "_处理后.csv", file_path)
  # 保存处理后的文件
  write.csv(data, output_name, row.names = FALSE)
  # 返回处理后的数据（可选）
  return(data)
}

# 4. 批量执行处理
all_processed_data <- lapply(all_csv, process_csv)

如果处理的是Excel文件，只需要把read.csv换成readxl::read_excel，write.csv换成writexl::write_xlsx，记得先安装依赖包：install.packages(c("readxl", "writexl"))。

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