R：按名称组合嵌套列表元素

假设我有一个列表结构，其中有data.frames嵌套在每个元素中。

l <- list(A = list(D = data.frame(V1 = seq(3), V2 = LETTERS[1:3]),
                   E = data.frame(V1 = seq(3), V2 = LETTERS[4:6])),
          B = list(D = data.frame(V1 = seq(3), V2 = LETTERS[7:9]),
                   E = data.frame(V1 = seq(3), V2 = LETTERS[10:12])))

$A
$A$D
  V1 V2
1  1  A
2  2  B
3  3  C

$A$E
  V1 V2
1  1  D
2  2  E
3  3  F


$B
$B$D
  V1 V2
1  1  G
2  2  H
3  3  I

$B$E
  V1 V2
1  1  J
2  2  K
3  3  L

我想找到一种方法来结合D and E data.frames分别来自父列表元素（A,B）所以输出将是这样的：

$D
  V1 V2
1  1  A
2  2  B
3  3  C
4  1  G
5  2  H
6  3  I

$E
  V1 V2
1  1  D
2  2  E
3  3  F
4  1  J
5  2  K
6  3  L

我可以通过循环来完成此任务，但我正在尝试找到更高效/优雅的东西。

out <- vector("list", length(list))
for(i in c("D","E")){
  out[[i]] <- do.call("rbind", lapply(l, function(x) x[[i]]))
}

我们压平嵌套list到一个单一的list有 4 个元素（l1), then split'l1' 由 'l1' 的名称替换前缀部分后最多. using sub。然后我们rbind嵌套的list using do.call.

l1 <- do.call('c', l)
lapply(split(l1,sub('.*\\.', '', names(l1))),
                      function(x) do.call(rbind, x))

这也可以通过以下方式完成purrr and dplyr

library(purrr)
library(dplyr)
transpose(l) %>%
          map(bind_rows)
#$D
#Source: local data frame [6 x 2]

#     V1    V2
#  (int) (chr)
#1     1     A
#2     2     B
#3     3     C
#4     1     G
#5     2     H
#6     3     I

#$E
#Source: local data frame [6 x 2]

#     V1    V2
#  (int) (chr)
#1     1     D
#2     2     E
#3     3     F
#4     1     J
#5     2     K
#6     3     L