当赋值规则存储在另一tibble时，如何替换现有tibble中的数据为新值？

方案1：Tidyverse生态简洁实现（中小数据量首选） #

先将赋值规则转换为命名查找向量，再批量替换所有列，代码可读性高，兼容tidyverse工作流：

library(tidyverse)
# 构造旧值→新值的命名映射向量
lookup <- setNames(assignment_rule$new, assignment_rule$old)

# 批量替换所有列的匹配值
new_data <- old_data %>%
  mutate(across(everything(), ~recode(., !!!lookup)))

优势：未出现在赋值规则中的值会默认保留原值，不会生成NA，无需额外处理边界情况。

方案2：data.table高性能实现（大数据量首选） #

如果数据量超过10万行，使用data.table的二进制搜索匹配方案，执行速度和内存占用都远优于逐值匹配和向量索引方案：

library(data.table)
# 转换为data.table格式（原地修改无额外拷贝）
setDT(old_data)
setDT(assignment_rule)

# 遍历所有列批量替换
for (col in names(old_data)) {
  old_data[assignment_rule, on = setNames("old", col), (col) := new]
}

# 可选：转换回tibble格式
new_data <- as_tibble(old_data)

优势：千万行级数据也可在秒级完成替换，内存占用仅为tidyverse方案的1/3左右。

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