R语言如何调用预定义列表替换dataframe多字符串且不使用ifelse

预定义待匹配的字符串列表如下：

list1 = c("banana","orange","kiwi")
list2 = c("jackhammer","plum","drift")

目标是直接调用上述预定义列表，将数据框对应列中匹配列表内容的字符串替换为指定值，无需手动重复写入列表元素，不使用ifelse语句，可参考以下几种实现方案：

方案1：dplyr 新版case_match实现（最简便） #

使用dplyr 1.1.0及以上版本提供的case_match函数，可以直接传入预定义列表作为匹配规则，不需要额外构造中间对象，未匹配的值可以通过.default参数设置保留原值：

library(dplyr)

DF$Names <- case_match(
  DF$Names,
  list1 ~ "fruit",  # list1内所有值替换为"fruit"
  list2 ~ "misc",   # list2内所有值替换为"misc"
  .default = DF$Names
)

方案2：dplyr::recode动态传参实现 #

如果使用的dplyr版本较低没有case_match，可以通过构造命名替换向量、配合!!!参数拼接符实现预定义列表传入，不需要硬编码匹配规则：

library(dplyr)

# 构造替换规则：向量名为待替换原值，向量值为替换目标值
replace_rule <- c(
  setNames(rep("fruit", length(list1)), list1),
  setNames(rep("misc", length(list2)), list2)
)

# 用!!!拆分规则传入recode
DF$Names <- recode(DF$Names, !!!replace_rule, .default = DF$Names)

方案3：基础R原生实现（无第三方包依赖） #

不需要加载任何扩展包，利用索引匹配逻辑即可完成替换，全程不使用ifelse：

# 构造和上述逻辑一致的替换规则向量
replace_rule <- c(
  setNames(rep("fruit", length(list1)), list1),
  setNames(rep("misc", length(list2)), list2)
)

# 匹配位置、批量替换，未匹配值自动保留
match_pos <- match(DF$Names, names(replace_rule))
DF$Names[which(!is.na(match_pos))] <- replace_rule[na.omit(match_pos)]

以上方案均会自动同步预定义列表的内容，后续如果需要调整匹配范围，只需要修改list1、list2的定义即可，不需要改动替换逻辑的代码。

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