R语言：bind_rows处理含空列表的嵌套列表时如何保留正确索引

问题的核心在于bind_rows()默认会跳过空列表元素，所以你的.id索引无法对应原列表的位置。要解决这个问题，我们需要先把空列表转换成结构与其他非空data.frame一致的全NA行，再进行合并。

具体步骤： #

1. 提取所有非空元素的列名（确保列名统一，避免后续合并时列缺失）
2. 编写处理函数：将空列表转为含所有列名的全NA data.frame；对非空元素，补充缺失的列并设为NA
3. 处理整个列表后再用bind_rows()合并，此时.id会正确对应原列表的位置

代码实现（用dplyr和purrr简化操作）： #

library(dplyr)
library(purrr)

# 1. 获取所有非空元素的列名并取并集
all_columns <- myList %>%
  keep(~ !is_empty(.x)) %>%  # 筛选非空元素
  map(colnames) %>%          # 提取每个元素的列名
  reduce(union)              # 合并所有列名，去重

# 2. 处理列表中的每个元素
processed_list <- myList %>%
  map(function(element) {
    if (is_empty(element)) {
      # 空列表转为含所有列名的全NA tibble
      tibble(!!!set_names(rep(NA, length(all_columns)), all_columns))
    } else {
      # 非空元素：转为tibble，补充缺失的列并设为NA
      element %>%
        as_tibble() %>%
        mutate(!!!set_names(rep(NA, length(setdiff(all_columns, colnames(.x)))),
                           setdiff(all_columns, colnames(.x))))
    }
  })

# 3. 合并处理后的列表，保留原索引
df <- bind_rows(processed_list, .id = "id")

效果验证： #

运行后你会得到期望的结果：

id _index _type _id
1  1 alias_fr triplet Q9327
2  1 alias_fr triplet Q3122270
3  2 NA       NA      NA
4  3 alias_fr triplet Q17009

（注：如果你的非空data.frame结构完全一致，步骤2里补充列的部分可以简化，直接把空列表转为和非空元素列名相同的全NA行即可）

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