R语言如何批量替换数据框指定字符并支持多规则转换

原代码错误原因 #

你之前的代码没有得到预期结果，核心是逻辑偏差：if_else(str_detect(匹配规则), 替换值, 原值)的逻辑是「只要单元格包含匹配字符，就把整个单元格内容替换成指定值」，并不是替换单元格内部的匹配字符片段，所以才会出现所有含′的单元格都变成单个'的问题。
做字符串局部替换要使用专门的字符串替换函数，不要用条件判断做整格赋值。

基础需求实现：全局替换′为' #

用stringr::str_replace_all做全匹配替换即可，这个函数会扫描字符串内所有符合匹配规则的片段做替换，保留其余内容不变，代码如下：

library(tidyverse)

df %>%
  mutate(
    across(
      .cols = everything(),
      .fns = ~ str_replace_all(.x, "′", "'")
    )
  )

运行后即可得到所有列的′字符替换为'的结果，和你预期的效果一致（你贴的预期结果中第4行S列首字符未替换应为输入笔误，上述代码会替换所有匹配的′字符）。

扩展多规则替换方案 #

str_replace_all支持直接传入命名格式的替换规则向量，可以同时执行多条替换规则，还可以搭配across的列选择功能，区分「全列生效规则」和「指定列生效规则」，适配你提到的额外替换需求：

• 全列生效规则：:替换为^、AA替换为aa
• 仅S列生效规则：@替换为a

完整代码如下：

df %>%
  mutate(
    # 所有列通用替换规则
    across(
      .cols = everything(),
      .fns = ~ str_replace_all(.x, c(
        "′" = "'",
        ":" = "^",
        "AA" = "aa"
      ))
    ),
    # 仅S列生效的替换规则
    across(
      .cols = S,
      .fns = ~ str_replace_all(.x, c(
        "@" = "a"
      ))
    )
  )

后续新增替换规则时，只需要在对应规则向量中新增"待匹配字符" = "替换后字符"的键值对即可，不需要调整整体代码结构，维护成本很低。

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