在R中如何将数据框数值编码列重新编码为对应文本值列

核心思路：你已经有了命名的映射向量，只需通过键值索引就能批量匹配，无需循环遍历，效率很高，适配长数据集场景。

方法1：基础R实现（无需额外安装包） #

直接利用R命名向量的索引特性，先把你的映射向量键值互换，让编码作为索引名、树种名作为对应值，直接用数值编码列索引即可：

# 你的原始数据
treeco <- c(4, 3, 4, 5, 3, 2, 2, 1, 4)
spcode <- c("oak" = 1, "ash" = 2, "elm" = 3, "beech" = 4, "hazel" = 5)

# 键值互换，生成「编码=树种名」的索引向量
sp_map <- setNames(names(spcode), spcode)

# 生成结果数据框
result <- data.frame(
  treeco = treeco,
  spcode = sp_map[as.character(treeco)]
)
# 重置行名，和预期输出格式一致
rownames(result) <- NULL

运行后输出的result完全符合你给出的预期结果：

treeco spcode
1      4  beech
2      3    elm
3      4  beech
4      5  hazel
5      3    elm
6      2    ash
7      2    ash
8      1    oak
9      4  beech

方法2：dplyr管道流实现（适合tidyverse生态的操作场景） #

如果你日常使用dplyr处理数据框，可以用recode函数批量匹配：

library(dplyr)

# 构建原始数据框
df <- data.frame(treeco = treeco)

# 传入映射关系生成新列
df <- df %>%
  mutate(spcode = recode(treeco, !!!setNames(names(spcode), spcode)))

得到的df和上述基础R的输出完全一致。

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