如何基于共享sample变量循环为R语言reference表匹配添加数据？

我有一个包含样本列表及已有数值（Value1）的reference数据表：

reference <- data.frame(sample=letters[1:5], Value1=1:5)

> reference
  sample Value1
1      a      1
2      b      2
3      c      3
4      d      4
5      e      5

需要向该表添加分属各样本的其他数据（Value2至Value4），每个样本的数据为一个独立的myinput数据框：

myinput_a <- data.frame(sample="a", Value2=3, Value3=5, Value4=9)

myinput_a
  sample Value2 Value3 Value4
1      a      3      5      9

myinput_b <- data.frame(sample="b", Value2=5, Value3=0, Value4=2)
myinput_c <- data.frame(sample="c", Value2=7, Value3=1, Value4=3)

这些myinput与reference共享sample变量，需将数据匹配到对应行，期望得到如下结果（未添加数据的样本对应值为NA）：

myoutput <- data.frame(sample=letters[1:5], Value1=1:5, Value2=c(3,5,7,NA,NA), Value3=c(5,0,1,NA,NA), Value4=c(9,2,3,NA,NA))

> myoutput
  sample Value1 Value2 Value3 Value4
1      a      1      3      5      9
2      b      2      5      0      2
3      c      3      7      1      3
4      d      4     NA     NA     NA
5      e      5     NA     NA     NA

实际场景中样本和数值数量极大，因此希望通过循环实现。但困惑的是：添加第一个样本时需追加列，后续样本则是补充对应行数据，恳请指导该如何设计实现方案！

方法1：先合并输入再匹配（高效推荐） #

无需循环逐个处理，先把所有myinput数据合并为整体，再与reference做左连接，大数据量下效率远高于循环：

# 将所有myinput数据框存入列表
input_list <- list(myinput_a, myinput_b, myinput_c)

# 合并所有输入数据
combined_input <- do.call(rbind, input_list)

# 左连接到参考表，自动匹配sample并填充NA
myoutput <- merge(reference, combined_input, by = "sample", all.x = TRUE)

方法2：循环处理（满足循环需求） #

如果一定要用循环，核心逻辑是先初始化新增列，再逐个填充对应样本的数据：

# 将所有myinput数据框存入列表
input_list <- list(myinput_a, myinput_b, myinput_c)

# 第一步：初始化新增列
if (length(input_list) > 0) {
  # 提取第一个输入数据的新增列（排除sample列）
  new_cols <- setdiff(names(input_list[[1]]), "sample")
  # 给参考表添加这些列，初始值设为NA
  reference[new_cols] <- NA
}

# 第二步：循环填充每个样本的数据
for (input_df in input_list) {
  # 找到当前样本在参考表中的行索引
  row_idx <- which(reference$sample == input_df$sample)
  # 获取需要填充的列名
  fill_cols <- setdiff(names(input_df), "sample")
  # 填充对应行的数值
  reference[row_idx, fill_cols] <- input_df[fill_cols]
}

# 更新后的reference即为最终结果
myoutput <- reference

额外技巧 #

如果myinput数据框是按myinput_前缀命名的，可以自动批量获取，不用手动列列表：

# 自动获取所有以myinput_开头的数据框
input_list <- mget(ls(pattern = "^myinput_"))

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