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

How to turn a vector into a list with known nest structure in R?

提问人:Chp 提问时间:9/5/2022 最后编辑:ThomasIsCodingChp 更新时间:9/5/2022 访问量:42

问:

我想将 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) )
r 列表 数据操作

评论


答:

4赞 GKi 9/5/2022 #1

您可以使用 .relist

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