R语言按部分匹配规则实现字符串对应替换的方法咨询

之前的实现方案结果不符合预期、运行报错，核心问题如下：

• 第一种方案把匹配模式、替换值都用|拼成了单个字符串，str_replace会把这个整串作为统一替换值，不会根据匹配到的不同子串对应匹配替换目标，因此所有命中的内容都会被替换为log(brain)|I(body^2)。
• 第二种mapply方案传参逻辑错位：pr_r长度为2，和per列表的长度不匹配，循环时替换值和数据块无法一一对应，自然得不到正确结果。
• 后续列名替换的代码存在两个错误：一是setNames的匹配模式和替换值写反了，二是str_replace_all调用时重复传入待处理向量，导致参数错误。

直接用stringr::str_replace_all支持的命名向量映射规则即可实现多对子串的一一对应替换，不需要写多层嵌套循环，逻辑简洁不易出错。

第一步：加载依赖、定义替换映射 #

注意命名向量的规则：向量的名称是待匹配的子串，向量的元素值是替换后的目标内容，顺序不要写反。

library(tidyverse)
# 单元格值替换映射：匹配brain/body，替换为对应公式
val_replace <- setNames(
  c('log(brain)', 'I(body^2)'),
  c('brain', 'body')
)

# 列名替换映射：匹配log(X1)/log(X8)，替换为对应短名，括号是正则特殊字符加转义更稳妥
col_replace <- setNames(
  c('X1', 'X8'),
  c('log\\(X1\\)', 'log\\(X8\\)')
)

第二步：批量处理列表中的所有数据框 #

先替换单元格值，再替换列名即可：

result <- lapply(per, function(df) {
  # 替换所有列的单元格值
  df <- df %>% mutate(across(everything(), ~str_replace_all(.x, val_replace)))
  # 替换列名
  names(df) <- str_replace_all(names(df), col_replace)
  return(df)
})

运行后得到的result完全符合预期：单元格中所有brain被替换为log(brain)、body被替换为I(body^2)，列名中log(X1)被替换为X1、log(X8)被替换为X8。

注：如果不需要做正则模糊匹配，只是固定字符串完全匹配替换，也可以直接用dplyr::recode函数，逻辑和命名向量映射一致，不需要转义特殊字符。

内容的提问来源于stack exchange，提问作者Dollar Tune-bill