r - 如何在R中将向量转换为具有已知嵌套结构的列表？

Question

我想将 x 维向量转换为具有 x 元素的嵌套列表。嵌套列表应具有与已知列表相同的嵌套结构。有没有简单的方法可以做到这一点？

例如要变换的向量为

vector <- rnorm(10)

而已知结构的列表是

list <- list( list(rnorm(2),rnorm(2)),
              list(rnorm(3),rnorm(3)) )

[[1]]
[[1]][[1]]
[1] -1.113833  1.158779

[[1]][[2]]
[1]  0.09773685 -1.62518666


[[2]]
[[2]][[1]]
[1] -1.134478 -1.091703 -0.109145

[[2]][[2]]
[1] -0.5181986 -1.9268952 -0.8527101

另一个类似的情况是我可能知道每个子列表的长度

length_list <- list( list(2,2), list(3,3) )

Answer 1

您可以使用重新列出。

x <- 1:10
lst <- list( list(rnorm(2),rnorm(2)),
              list(rnorm(3),rnorm(3)) )

relist(x, lst)
#[[1]]
#[[1]][[1]]
#[1] 1 2
#
#[[1]][[2]]
#[1] 3 4
#
#
#[[2]]
#[[2]][[1]]
#[1] 5 6 7
#
#[[2]][[2]]
#[1]  8  9 10

或者对于其他情况，使用rapply创建一个列表。

x <- 1:10
length_list <- list( list(2,2), list(3,3) )

relist(x, rapply(length_list, rep, x=0, how="list"))
#[[1]]
#[[1]][[1]]
#[1] 1 2
#
#[[1]][[2]]
#[1] 3 4
#
#
#[[2]]
#[[2]][[1]]
#[1] 5 6 7
#
#[[2]][[2]]
#[1]  8  9 10