r - 将列表的索引添加到 bind_rows？

Question

我有这个数据:

dat=list(structure(list(Group.1 = structure(3:4, .Label = c("A","B", "C", "D", "E", "F"), class = "factor"), Pr1 = c(65, 75)), row.names = c(NA, -2L), class = "data.frame"),NULL, structure(list( Group.1 = structure(3:4, .Label = c("A","B", "C", "D", "E", "F"), class = "factor"), Pr1 = c(81,4)), row.names = c(NA,-2L), class = "data.frame"))

我想结合使用 bind_rows(dat)但保持索引号作为变量
输出包括 Type([[1]] and [[3]])

  type   Group.1     Pr1
1   1      C          65
2   1      D         75
3   3      C         81
4   3      D          4

Answer 1

数据表解决方案

使用 rbindlist()来自 data.table -package，它具有内置的 id 支持，尊重 NULL df。

library(data.table)
rbindlist( dat, idcol = TRUE )

   .id Group.1 Pr1
1:   1       C  65
2:   1       D  75
3:   3       C  81
4:   3       D   4

dplyr - 部分解决方案

bind_rows 也有 ID 支持，但它“跳过”空元素...

bind_rows( dat, .id = "id" )

  id Group.1 Pr1
1  1       C  65
2  1       D  75
3  2       C  81
4  2       D   4

请注意，来自 dat 的第三个元素的 ID 变为 2，而不是 3。