是否有一个 R 函数可以将列表列表转换为向量列表列表？

Question

我有一个列表列表，我想将其转换为元素将是向量的列表列表。

具体来说，l: list of 180 elements、l[[1]]: list of 12 elements 和l[[1]][[1]]: list of 20 elements，每一个都有一个名字和一个值。如何得到一个12个元素的列表，其中每个元素是20个向量的列表，每个向量包含180个元素。

而不是调用 mapply(c,l[[1]][[1]]$id, l[[2]][[1]]$id, .... l[[180]][[1]]$id, SIMPLIFY=FALSE) 并为每个键重复此操作，有没有办法在循环中执行此操作？

例子：

> a<-list(1,'a',1.2)
> b<-list(2,'b',0.1)
> d<-list(3,'d',3)
> e<-list(4,'e',0.1)
> x<-list(a,b)
> y<-list(d,e)
> z<-list(x,y)

想要的输出：

#> [[1]]
#> [[1]][[1]]
#> [1] 1 3
#> 
#> [[1]][[2]]
#> [1] 'a' 'd'
#>
#> [[1]][[3]]
#> [1] 1.2 3
#>
#> [[2]][[1]]
#> [1] 2 4
#>
#> [[2]][[2]]
#> [1] 'b' 'e'
#>
#> [[2]][[3]]
#> [1] 0.1 0.1

有什么想法吗？

Answer 1

也许您可以尝试嵌套Map，如下所示

z <- Map(function(...) Map(c,...), x,y)

这样

> z
[[1]]
[[1]][[1]]
[1] 1 3

[[1]][[2]]
[1] "a" "d"

[[1]][[3]]
[1] 1.2 3.0


[[2]]
[[2]][[1]]
[1] 2 4

[[2]][[2]]
[1] "b" "e"

[[2]][[3]]
[1] 0.1 0.1

Answer 2

你可以嵌套lapply。

样本数据：

a <- list(1, 2, 3)
b <- list(a, a)
x <- list(b, b)
x
#> [[1]]
#> [[1]][[1]]
#> [[1]][[1]][[1]]
#> [1] 1
#> 
#> [[1]][[1]][[2]]
#> [1] 2
#> 
#> [[1]][[1]][[3]]
#> [1] 3
#> 
#> 
#> [[1]][[2]]
#> [[1]][[2]][[1]]
#> [1] 1
#> 
#> [[1]][[2]][[2]]
#> [1] 2
#> 
#> [[1]][[2]][[3]]
#> [1] 3
#> 
#> 
#> 
#> [[2]]
#> [[2]][[1]]
#> [[2]][[1]][[1]]
#> [1] 1
#> 
#> [[2]][[1]][[2]]
#> [1] 2
#> 
#> [[2]][[1]][[3]]
#> [1] 3
#> 
#> 
#> [[2]][[2]]
#> [[2]][[2]][[1]]
#> [1] 1
#> 
#> [[2]][[2]][[2]]
#> [1] 2
#> 
#> [[2]][[2]][[3]]
#> [1] 3

现在只需通过嵌套的lapply 函数调用unlist：

lapply(x, function(x) lapply(x, unlist))
#> [[1]]
#> [[1]][[1]]
#> [1] 1 2 3
#> 
#> [[1]][[2]]
#> [1] 1 2 3
#> 
#> 
#> [[2]]
#> [[2]][[1]]
#> [1] 1 2 3
#> 
#> [[2]][[2]]
#> [1] 1 2 3

^{由reprex package (v0.3.0) 于 2020 年 3 月 31 日创建}