r - 提取元素名称相似的嵌套列表元素

Question

我有一个嵌套列表，由一个函数产生。顶部元素名称在更下方的元素名称中重复。

$`1`
$`1`$`1`
[1] 0 0 0 0 0 0 0 1 0

$`1`$`2`
[1] 0 0 0 0 0 0 0 0 0

$`2`
$`2`$`1`
[1] 0 0 0 1 1 0 0 0 0

$`2`$`2`
[1] 0 1 0 0 0 1 0 0 0

有没有一种方法可以使用应用函数(或其他函数)来提取元素和子元素名称匹配的向量。例如。 $1$1 和 $2$2。我有一个巨大的列表(4000 个元素和 4000 个子元素)，因此效率是必须的。

或者 - 我已经通过使用 ‘melt()’ 找到了摆脱这种困惑的方法，但是对于我的集合的大小来说它太消耗了。但是，如果有人知道如何复制该效果 - 提供一个包含 3 列的数据框，一列用于元素名称，一列用于子元素名称，一列用于向量 - 这也将有效。

问候和感谢:)

Answer 1

这是获取所需向量列表的一种方法:

lapply(names(dat), function(x) dat[[x]][[x]])

在数据框中:

do.call("rbind",
        lapply(names(dat),
               function(x) data.frame(element = x,
                                      subelement = x,
                                      values = dat[[x]][[x]])
        )
)