R数据框中如何高效批量将数值变量重编码为对应字符值

我们在处理类似var1这类数值变量转字符值的重编码需求时，如果映射存在明确规律，完全不需要手动编写逐条的映射语句，以下是基于你提供的测试场景的多种实现方式：

基础测试数据 #

library(tidyverse)
# 构造测试数据集
(dat <- data.frame(var1 = rep(1:4,2), id = 1:8))

# 原始手动逐条映射写法（可实现需求但不够灵活）
mutate(dat, var1 = recode(var1,`1`="W",`2`="X",`3`="Y",`4`="Z"))

批量实现方案 #

方案1：命名映射向量+!!!注入recode() #

适合映射规则需要复用、或映射表从外部读取的场景，只需维护映射向量即可：

# 构造映射向量：名称为原数值，值为目标字符
map_vec <- setNames(LETTERS[27 - (4:1)], as.character(1:4))
# 批量注入完成重编码
mutate(dat, var1 = recode(var1, !!!map_vec))

方案2：使用case_match()直接向量匹配 #

dplyr 1.1.0及以上版本支持，适合映射可以直接用等长向量对应表达的场景，写法更简洁：

mutate(dat, var1 = case_match(var1, 1:4 ~ LETTERS[27 - (4:1)]))

方案3：直接通过索引计算转换 #

如果映射逻辑可以通过原数值直接计算得到目标值的索引，性能最优，写法最简短：

# 1对应W(LETTERS第23位)、4对应Z(LETTERS第26位)，直接通过原数值+22得到索引
mutate(dat, var1 = LETTERS[var1 + 22])

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