R语言中如何将数据集数值替换为预定义字符值

先模拟示例数据集方便测试：

# 模拟输入数据
data1 <- data.frame(id = c(1, 2, 3), cat = c("A", "B", "C"))
data2 <- data.frame(v1 = c(1, 2, 3, 1), v2 = c(2, 3, 1, 2), score = c(85, 92, 78, 88))

方法一：基础R原生实现 #

通过构建映射向量，批量替换目标列：

# 创建id到cat的映射向量
cat_mapping <- setNames(data1$cat, data1$id)

# 复制原数据集并替换v1、v2列
data3 <- data2
data3$v1 <- cat_mapping[as.character(data3$v1)]
data3$v2 <- cat_mapping[as.character(data3$v2)]

说明：将数值转成字符索引是为了避免数值类型不匹配导致的索引错误，确保映射准确。

方法二：tidyverse工具链实现（更简洁灵活） #

适合习惯tidy风格的用户，支持动态映射和批量处理：

library(dplyr)

# 方式1：手动指定替换规则（适合类别少的场景）
data3 <- data2 %>%
  mutate(across(c(v1, v2), ~ recode(., "1" = "A", "2" = "B", "3" = "C")))

# 方式2：基于data1动态构建映射（适合类别多或后续可能变动的场景）
cat_mapping <- data1$cat
names(cat_mapping) <- data1$id

data3 <- data2 %>%
  mutate(across(c(v1, v2), ~ cat_mapping[as.character(.)]))

补充处理：缺失值处理 #

如果data2的v1/v2存在data1中未定义的id值，替换后会生成NA，可以用以下方式填充：

# 基础R方式
data3$v1 <- ifelse(is.na(data3$v1), "未知", data3$v1)
data3$v2 <- ifelse(is.na(data3$v2), "未知", data3$v2)

# tidyverse方式
data3 <- data3 %>%
  mutate(across(c(v1, v2), ~ replace_na(., "未知")))

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