如何将原data.frame中缺失的paper列回填到data.frame列表中

解决方案 #

你可以先从原始data中提取paper与关联字段的唯一映射表，再遍历列表做合并即可，避免原始数据重复行导致合并结果异常：

方案1：纯base R实现

# 先提取唯一映射关系，避免原始数据重复行干扰合并
key_map <- unique(data[, c("paper", "study", "sample", "comp")])
# 遍历列表合并回填paper列，同时调整列顺序和原始data一致
result <- lapply(LIST, function(x) {
  merge(x, key_map, by = c("study", "sample", "comp"), sort = FALSE)[names(data)]
})
# 验证结果是否符合预期：运行后返回TRUE
identical(result, DESIRED_LIST)

方案2：dplyr实现（适合tidyverse用户）

library(dplyr)
key_map <- distinct(data, paper, study, sample, comp)
result <- lapply(LIST, function(x) {
  left_join(x, key_map, by = c("study", "sample", "comp")) %>%
    select(all_of(names(data)))
})

原代码问题说明 #

你之前运行失败主要有两个原因：

• 变量名拼写错误：你代码中写的是LITS，实际你的列表变量名是LIST
• 直接合并全量原始data：原始data存在重复行，直接合并会导致结果生成多余重复行，提前做去重映射即可解决。

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