R语言tidyverse批量替换数据框匹配列表的字符串为指定值

使用tidyverse操作R数据框时，需遍历整个数据框，将所有属于指定列表内的字符串统一替换为目标字符串。
现有示例数据与待匹配字符串列表定义如下：

df<- tribble(
  ~x, ~y,  ~z,
  "a", "95%",  "96%",
  "b", "99%",  "98%",
  "c", "astricks", "astricks"
)

high95 <- c("95%", "96%", "97%", "98%", "99%", "100%")

需求：将high95列表中包含的所有字符串，统一替换为">95%"。
原有尝试代码未得到预期结果：

df %>% str_replace(. %in% high95, ">95%")

注：因数值抑制规则会导致数据列转换为字符格式，需采用字符串处理的方式实现上述替换需求。

原有代码无法生效的核心问题：

• str_replace() 属于单字符向量处理函数，无法直接传入整个数据框作为处理对象
• 函数参数传参逻辑错误，%in% 生成的逻辑向量不能直接作为str_replace()的匹配规则参数传入

方案1：精确值匹配替换（性能最优） #

通过across()遍历所有列，对匹配列表内的值做精确判断替换，完全适配字符型列的处理场景：

library(tidyverse)

df_clean <- df %>%
  mutate(across(everything(), ~ if_else(.x %in% high95, ">95%", .x)))

方案2：字符串正则替换（符合纯字符串处理要求） #

如果需要严格使用字符串处理函数实现，可将待匹配值拼接为正则精确匹配模式，调用str_replace_all()完成替换：

df_clean <- df %>%
  mutate(
    across(
      everything(),
      ~ str_replace_all(
        .x,
        pattern = paste0("^(", paste(high95, collapse = "|"), ")$"),
        replacement = ">95%"
      )
    )
  )

两种方案运行后得到的结果一致：

# A tibble: 3 × 3
  x     y        z       
  <chr> <chr>    <chr>   
1 a     >95%     >95%    
2 b     >95%     >95%    
3 c     astricks astricks

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