如何用for循环将含48个元素的列表转换为合并DataFrame？

你的循环代码存在问题：每次循环都会用bda和当前列表元素转换的bd重新合并，覆盖之前的df，最终只会得到最后一次合并的结果，没有累积所有列表元素的数据。以下是两种正确的实现方式：

方式一：修正for循环 #

初始化df为仅包含UNIQUE_CODE的基础数据框，然后在循环中逐步将每个列表元素合并到df中：

library(dplyr)

# 初始化基础数据框
df <- bda %>% select(UNIQUE_CODE)

# 遍历列表并累积合并
for (i in seq_along(mi_lista)) {
  bd <- as.data.frame(mi_lista[[i]])
  # 明确指定连接键，避免自动匹配列名出错
  df <- df %>% left_join(bd, by = "UNIQUE_CODE")
}

方式二：用purrr+dplyr简化实现（无需手动写循环） #

借助purrr::reduce函数，可以更简洁地完成批量合并：

library(dplyr)
library(purrr)

# 将初始数据框与列表元素（转成DataFrame）批量左连
df <- c(list(bda %>% select(UNIQUE_CODE)), map(mi_lista, as.data.frame)) %>%
  reduce(left_join, by = "UNIQUE_CODE")

注意事项 #

• 确保每个列表元素转换为DataFrame后，都包含UNIQUE_CODE列，否则左连接会失败
• 若连接键列名不一致，需在left_join的by参数中明确指定对应关系（比如by = c("UNIQUE_CODE" = "CODE")）
• 使用seq_along(mi_lista)替代1:length(mi_lista)，避免列表为空时出现错误的序列

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