R语言如何在数据框多列中批量替换多个字符为对应指定值

已有类似问题的解决方案，但我希望在同类需求中减少冗余操作。
参考示例如下：

df <- data.frame(name = rep(letters[1:3], each = 3), foo=rep(1:9),var1 = letters[1:3], var2 = rep(3:5, each = 3))

生成的df结构如下：

df
  name foo var1 var2
1    a   1    a    3
2    a   2    a    3
3    a   3    a    3
4    b   4    b    4
5    b   5    b    4
6    b   6    b    4
7    c   7    c    5
8    c   8    c    5
9    c   9    c    5

我需要实现的替换规则为a替换为1、b替换为2、c替换为3，尝试了以下两种写法均无法生效：

df[,c(4,6)] <- lapply(df[,c(4,6)], function(x) replace(x,x %in% "a", 1), 
                                                             replace(x,x %in% "b", 2),
                                                             replace(x,x %in% "c", 3))

以及：

z<- c("a","b","c")
y<- c(1,2,3)
df[,c(1,3)] <- lapply(df[,c(1,3)], function(x) replace(x,x %in% z, y))

请问正确的实现方法是什么？

• 第一种写法问题：
  1. 列索引越界：示例df仅包含4列，代码中选取的c(4,6)包含不存在的列，操作无效果
  2. 函数语法错误：自定义函数的执行逻辑没有用大括号包裹，后续的replace语句被识别为lapply的额外参数，不会被执行
• 第二种写法问题：
  replace函数要求替换值的长度与匹配到的元素长度一致，直接传入长度为3的y向量会触发循环匹配，最终得到错误结果

方法1：Base R 实现（无需加载额外包） #

利用命名向量作为查找表匹配替换，语法简洁效率高：

# 构建查找表，键为要替换的原值，值为替换后的值
lookup <- c("a" = 1, "b" = 2, "c" = 3)
# 对需要替换的第1、3列执行批量替换
df[, c(1,3)] <- lapply(df[, c(1,3)], function(x) lookup[x])

如果你的数据框中字符列存为factor类型，先转为字符型即可：

df[, c(1,3)] <- lapply(df[, c(1,3)], function(x) lookup[as.character(x)])

方法2：dplyr 实现（可读性更高） #

用recode函数直接指定替换规则，适合规则复杂的场景：

library(dplyr)
df <- df %>%
  # 指定要替换的列，配置替换规则
  mutate(across(c(name, var1), ~recode(., "a" = 1, "b" = 2, "c" = 3)))

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