R语言中高效将不等长命名日期向量列表转为数据框

我有一个包含日期类型命名向量的列表，目标是将其转换为列名与向量名匹配的数据框，由于列表中各向量长度不一致，结果需要自动填充NA值。

原始数据示例 #

d5 <- list(structure(c(event13 = 1797, event17 = 7006, event3 = -6796
), class = "Date"), structure(c(event3 = 5984, event14 = 7175, 
event11 = -4031, event20 = 8612, event2 = 5158, event5 = 1002, 
event8 = -382, event15 = 4367, event11 = 2960), class = "Date"), 
    structure(c(event7 = 4394, event13 = -1389, event9 = -4407
    ), class = "Date"), structure(c(event5 = 7729), class = "Date"), 
    structure(c(event4 = -3384, event10 = 1288, event10 = 7502, 
event5 = -5100, event9 = -3177, event8 = -4027, event11 = -3554, 
event16 = 9484, event3 = 1386), class = "Date"), structure(c(event10 = -6906, 
event3 = 6966, event8 = -975, event14 = -3286, event12 = 744, 
event11 = 7111, event15 = 9576, event12 = 2223, event9 = 10771
    ), class = "Date"), structure(c(event16 = 8764), class = "Date"), 
    structure(c(event15 = 9795, event14 = 7681, event2 = -1728, 
event14 = 10876), class = "Date"), structure(c(event13 = -1341, 
event11 = 1202), class = "Date"), structure(c(event3 = -666, 
event1 = -4192, event9 = 8808, event4 = -1765), class = "Date"))

问题：do.call(rbind)的异常结果 #

尝试用as.data.frame(do.call(rbind, d5))转换时，会出现数据错位和警告：

as.data.frame(do.call(rbind, d5))
   event3 event14 event11 event20 event2 event5 event8 event15 event11
1    1797    7006   -6796    1797   7006  -6796   1797    7006   -6796
2    5984    7175   -4031    8612   5158   1002   -382    4367    2960
3    4394   -1389   -4407    4394  -1389  -4407   4394   -1389   -4407
4    7729    7729    7729    7729   7729   7729   7729    7729    7729
5   -3384    1288    7502   -5100  -3177  -4027  -3554    9484    1386
6   -6906    6966    -975   -3286    744   7111   9576    2223   10771
7    8764    8764    8764    8764   8764   8764   8764    8764    8764
8    9795    7681   -1728   10876   9795   7681  -1728   10876    9795
9   -1341    1202   -1341    1202  -1341   1202  -1341    1202   -1341
10   -666   -4192    8808   -1765   -666  -4192   8808   -1765    -666
Warning message:
In (function (..., deparse.level = 1)  :
  number of columns of result is not a multiple of vector length (arg 8)

这是因为rbind仅按位置拼接元素，不会根据名称匹配列，导致数据错位。以下是两种高效解决方案，无需手动补NA或排序。

解决方案1：tidyverse工具链实现 #

利用purrr和tibble自动按名称匹配列，同时生成ID列标记原始列表元素：

library(tidyverse)

# 将每个向量转为单行tibble后合并，自动补全NA
result <- map_dfr(d5, ~as_tibble_row(.x), .id = "ID")

# 查看结果
result

该方法会自动识别所有唯一event列名，缺失位置填充NA，.id参数生成的ID列对应原始列表的元素索引。

解决方案2：Base R原生实现 #

无需额外包，先收集所有唯一列名，再逐个处理向量填充对应值：

# 获取所有唯一的event列名
all_events <- unique(unlist(lapply(d5, names)))

# 为每个向量生成对应行，缺失列填NA
result_base <- lapply(d5, function(vec) {
  row <- setNames(rep(NA, length(all_events)), all_events)
  row[names(vec)] <- vec
  row
})

# 合并为数据框并添加ID列
result_base <- as.data.frame(do.call(rbind, result_base))
result_base$ID <- seq_len(nrow(result_base))
# 调整列顺序，将ID列放在最前面
result_base <- result_base[, c("ID", all_events)]

注意：如果同一个向量中存在重复名称的元素（比如示例中的event11、event10），上述方法会保留最后一个值。若需保留所有重复值并转为多行，可使用unnest_longer（tidyverse方式）或额外处理重复名称的向量。

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