如何将list2中同名DataFrame按列绑定到嵌套列表的对应元素？

原代码的问题 #

1. 返回值错误：你在lapply的匿名函数最后写了;z，这导致每次迭代都返回z（也就是1、2、3），所以最终得到的是1:3的列表，完全没保留合并后的DataFrame结果。
2. 索引错误：list_of_list[z]返回的是长度为1的嵌套列表，不是你要操作的子列表，应该用list_of_list[[z]]来直接提取子列表内容。
3. 变量名笔误：代码里的Countries应该是list2，否则会因为找不到变量报错。

正确实现代码 #

首先确保加载dplyr包（因为要用bind_cols）：

library(dplyr)

方法一：用lapply + Map匹配名字合并

result <- lapply(list_of_list, function(sublist) {
  # 按子列表的名字，从list2中取出对应DataFrame，和子列表元素一一合并
  Map(function(x, y) bind_cols(x, y), sublist, list2[names(sublist)])
})

方法二：显式遍历名字（更直观）

result <- lapply(list_of_list, function(sublist) {
  # 遍历子列表的每个名字，合并对应DataFrame
  merged_list <- lapply(names(sublist), function(df_name) {
    bind_cols(sublist[[df_name]], list2[[df_name]])
  })
  # 给合并后的子列表保留原名字
  setNames(merged_list, names(sublist))
})

验证结果 #

运行后可以查看合并后的结果，比如result[[1]]$df1，会包含原df1的A、B列，加上df4的C、D列，行数保持10行，符合需求。

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