如何在R语言中用数据集A的文本值为数据集B的变量设置标签？

先模拟你的两个数据集，方便直接测试代码：

# 模拟数据集A
dataset_A <- data.frame(
  obs = 1:3,
  col1 = c("dem_it1", "dem_it2", "dem_it3"),
  col2 = c("Age", "Gender", "Race")
)

# 模拟数据集B
dataset_B <- data.frame(
  dem_it1 = c(25, 30, 35),
  dem_it2 = c("Male", "Female", "Male"),
  dem_it3 = c("White", "Black", "Asian")
)

方法1：Base R + Hmisc包（常用统计标签工具） #

Hmisc包的label()函数是R中设置变量标签的常用方式，步骤如下：

# 若未安装Hmisc，先执行安装
# install.packages("Hmisc")
library(Hmisc)

# 将数据集A转换为命名向量：col1的值作为列名，col2的值作为对应标签
label_mapping <- setNames(dataset_A$col2, dataset_A$col1)

# 遍历数据集B的列，匹配并设置标签
for(col_name in colnames(dataset_B)) {
  if(col_name %in% names(label_mapping)) {
    label(dataset_B[[col_name]]) <- label_mapping[col_name]
  }
}

# 验证标签是否设置成功
sapply(dataset_B, label)

方法2：Tidyverse风格（dplyr + purrr） #

如果习惯用tidyverse系列工具，可以用更简洁的管道式写法：

library(dplyr)
library(purrr)

# 构建标签映射向量
label_mapping <- setNames(dataset_A$col2, dataset_A$col1)

# 批量设置标签
dataset_B <- dataset_B %>%
  modify_at(names(label_mapping), function(col) {
    label(col) <- label_mapping[cur_column()]
    col
  })

# 查看结果
map_chr(dataset_B, label)

方法3：Base R原生实现（不依赖第三方包） #

如果不想额外安装包，直接用base R的attr()函数设置标签属性：

# 构建标签映射向量
label_mapping <- setNames(dataset_A$col2, dataset_A$col1)

# 遍历设置标签
for(col_name in colnames(dataset_B)) {
  if(col_name %in% names(label_mapping)) {
    attr(dataset_B[[col_name]], "label") <- label_mapping[col_name]
  }
}

# 验证标签
sapply(dataset_B, function(x) attr(x, "label"))

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