如何在第三级命名列表中绑定 data.frames？

Question

第 1 层的列表 "l_start" 是一个命名列表，它本身嵌套第 2 层的命名列表（"l1"、"l1a"），在第 3 级依次包含 2-3 data.frames（a、b 和可能的 c）。

目标是根据名称在第 3 层绑定数据框（如果可用）以获得 "l_finish" （首选 data.table & rlist 解决方案，但 purrr 或 base 也可以）

# Level 2
l1 <- 
  # Level 3
  list(a = data.frame(matrix(1:4, ncol=2)),
       b = data.frame(matrix(1:4, ncol=2)),
       c= data.frame(matrix(1:4, ncol=2)))

# Level 2
l1a <- 
  # Level 3
  list(a = data.frame(matrix(1:6, ncol=2)),
       b = data.frame(matrix(1:6, ncol=2)))


# Level 1 "l_start"
l_start <- 
  list(l1, l1a)
names(l_start) <- c("l1", "l1a")

"l_finish" 的外观

l_finish <- 
  list(l1_1a = list(a = rbind(l1$a, l1a$a),
                 b = rbind(l1$b, l1a$b)))

希望最终产品"l_finish" 请注意，c 被删除，因为不在两个列表中

l_finish
#> $l1_1a
#> $l1_1a$a
#>   X1 X2
#> 1  1  3
#> 2  2  4
#> 3  1  4
#> 4  2  5
#> 5  3  6
#> 
#> $l1_1a$b
#>   X1 X2
#> 1  1  3
#> 2  2  4
#> 3  1  4
#> 4  2  5
#> 5  3  6

很接近，但无法完全实现这些

Rbind 发生在我的示例之上一级

列表中只有一个df名称，不能有多个

Answer 1

一个purrr解决方案：

library(purrr)
cols <- intersect(names(l_start[[1]]), names(l_start[[2]]))

map(l_start, `[`, cols) %>% transpose() %>% map(bind_rows)

#$a
#  X1 X2
#1  1  3
#2  2  4
#3  1  4
#4  2  5
#5  3  6

#$b
#  X1 X2
#1  1  3
#2  2  4
#3  1  4
#4  2  5
#5  3  6

我们select列表中的常用名称使用intersect，transpose它们并绑定行。

如何在第三级命名列表中绑定 data.frames？

How to rbind data.frames across third level of named lists?

bind

r

nested-lists

data.table

很接近，但无法完全实现这些