如何将原data.frame的scale列补充到缺失该列的data.frame列表LIST中

核心逻辑是通过study、outcome、time三个公共字段，将原始数据集中的scale值匹配到列表的每个子数据框中。

基础R实现 #

# 生成唯一的scale匹配映射表，避免重复匹配产生冗余行
scale_mapping <- unique(data[, c("study", "outcome", "time", "scale")])

# 遍历列表的每个数据框做左连接，sort=FALSE保证原有行顺序不变
result <- lapply(LIST, function(df) {
  merge(df, scale_mapping, by = c("study", "outcome", "time"), sort = FALSE)
})

# 验证结果和预期一致
identical(result, DESIRED_LIST) # 输出为 TRUE

tidyverse 实现（依赖dplyr、purrr） #

library(dplyr)
library(purrr)

result <- LIST %>% 
  map(
    .f = left_join,
    y = data %>% select(study, outcome, time, scale) %>% distinct(),
    by = c("study", "outcome", "time")
  )

# 验证结果和预期一致
identical(result, DESIRED_LIST) # 输出为 TRUE

注意：如果你的原始数据中存在同一(study,outcome,time)组合对应多个scale的情况，需要先根据业务逻辑处理重复值，否则匹配后会出现重复行。

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