如何在R中的列表列表中展平一个元素

问题描述

我看到可能有一些问题与这个主题有些相关，但我想通过一个简单的例子来问它。我有一个列表列表，我想展平其中一个列表，以便它的组件与其他列表处于同一级别。考虑以下简化示例：

library(tidyverse)

bb <- list(3,5)
names(bb) <-  c("L1","L4")

bb
$L1
[1] 3

$L4
[1] 5

现在构建一个由两个新列表和 bb 组成的列表，其中 bb 更深一层。

cc <- list(c(1:3),c(4:6),bb)
names(cc) <-  c("firstlist","2ndlist","LofL")

cc
$firstlist
[1] 1 2 3

$`2ndlist`
[1] 4 5 6

$LofL
$LofL$L1
[1] 3

$LofL$L4
[1] 5

我现在想将这个例子中我命名为“LofL”的列表“bb”展平。

我想要的输出如下。

ccdesired <- list(c(1:3),3,5)
names(ccdesired) <- c("firstlist","L1","L4")

ccdesired
$firstlist
[1] 1 2 3

$`2ndlist`
[1] 4 5 6

$L1
[1] 3

$L4
[1] 5

显然我手工构建了 ccdesired，但我想知道是否有一个函数或代码来展平名为“LofL”的列表，以便它在保持名称的同时像 ccdesired 一样结构化。函数“flatten”是一个明显的选择，但我似乎无法让它工作。

感谢任何帮助！

解决方法

这是一个不太优雅的解决方案：

bb <- list(3,5)
names(bb) <-  c("L1","L4")
cc <- list(c(1:3),c(4:6),bb)
names(cc) <-  c("firstlist","2ndlist","LofL")
cc
#> $firstlist
#> [1] 1 2 3
#> 
#> $`2ndlist`
#> [1] 4 5 6
#> 
#> $LofL
#> $LofL$L1
#> [1] 3
#> 
#> $LofL$L4
#> [1] 5

x <- list()
for(i in 1:length(cc))
  x <- c(x,if (is.list(cc[[i]])) unlist(cc[[i]]) else cc[i])
x
#> $firstlist
#> [1] 1 2 3
#> 
#> $`2ndlist`
#> [1] 4 5 6
#> 
#> $L1
#> [1] 3
#> 
#> $L4
#> [1] 5