如何依据另一数据框的列名重命名数据框中的因子值？

步骤1：构建subject与列名的映射关系 #

先把宽格式的newsubjects转换为长格式，过滤掉NA值，得到每个subject对应的目标列名：

library(dplyr)
library(tidyr)

# 创建映射表
subject_map <- newsubjects %>%
  pivot_longer(cols = everything(), names_to = "new_name", values_to = "sub") %>%
  filter(!is.na(sub))

步骤2：批量替换subject值 #

提供两种高效的批量替换方法：

方法一：左连接替换 #

通过left_join将映射关系合并到原数据框，完成替换：

subjects_updated <- subjects %>%
  left_join(subject_map, by = "sub") %>%
  select(sub = new_name) # 替换原列并保留列名

方法二：recode批量替换 #

先把映射表转为命名向量，再配合非标准求值批量替换：

# 转换为命名向量（命名为旧subject值，对应值为目标列名）
name_mapping <- setNames(subject_map$new_name, subject_map$sub)

# 批量替换
subjects_updated <- subjects %>%
  mutate(sub = recode(sub, !!!name_mapping))

你之前代码的问题分析 #

1. setNames参数顺序错误：正确顺序是setNames(新值, 旧值)，你写反了；
2. 只调用了newsubjects$one一列，没有覆盖所有subject的映射关系，导致替换范围不全。

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