Question

假设我有两个向量，如下所示：

set.seed(123)
x <- rnorm(10, 0, 1)

y <- rnorm(10, 0, 1)

xy <- list(x,y)

示例（只是为了澄清这是一个示例）：我想选择x和y（来自xy）和商店的元素他们在一个新的名单。

例如，

> xy
[[1]]
 [1] -0.56047565 -0.23017749  1.55870831  0.07050839  0.12928774  1.71506499  0.46091621
 [8] -1.26506123 -0.68685285 -0.44566197

[[2]]
 [1]  1.2240818  0.3598138  0.4007715  0.1106827 -0.5558411  1.7869131  0.4978505 -1.9666172
 [9]  0.7013559 -0.4727914

对于第一个元素，我可以这样做：

list1 <– list(-0.56047565, 1.2240818 ).

但是，我如何为所有元素执行此操作？也就是说，如何选择列表中的每两个元素并将其存储在新列表中。例如，

list1 <– list(-0.56047565, 1.2240818 ).
list2 <- list(-0.23017749, 0.3598138).
...
...
list10 <– list(-0.44566197, -0.4727914).

请帮忙吗？

Answer 1

您可以使用lapply：

lapply(xy, function(x) x[1])
#[[1]]
#[1] -0.5604756
#
#[[2]]
#[1] 1.224082

或

lapply(xy, "[[", 1)

更新

为您可以执行的所有元素执行此操作：

stopifnot(length(xy[[1]]) == length(xy[[2]]))
lst <- lapply(1:length(xy[[1]]), function(i) lapply(xy, "[[", i));
str(lst);
#List of 10
# $ :List of 2
#  ..$ : num -0.56
#  ..$ : num 1.22
# $ :List of 2
#  ..$ : num -0.23
#  ..$ : num 0.36
# $ :List of 2
#  ..$ : num 1.56
#  ..$ : num 0.401
# $ :List of 2
#  ..$ : num 0.0705
#  ..$ : num 0.111
# $ :List of 2
#  ..$ : num 0.129
#  ..$ : num -0.556
# $ :List of 2
#  ..$ : num 1.72
#  ..$ : num 1.79
# $ :List of 2
#  ..$ : num 0.461
#  ..$ : num 0.498
# $ :List of 2
#  ..$ : num -1.27
#  ..$ : num -1.97
# $ :List of 2
#  ..$ : num -0.687
#  ..$ : num 0.701
# $ :List of 2
#  ..$ : num -0.446
#  ..$ : num -0.473

这会将x和y中的成对元素存储在list list中。因此，您的list0将与lst[[1]]，list1到lst[[2]]对应，依此类推。

stopifnot(...)行检查xy[[1]]和xy[[2]]是否具有相同数量的元素。

Answer 2

data.table解决这个问题的方法。

要说我真的喜欢data.table，一个简单的转置会解决这个问题。

require(data.table)

head(xy)
[[1]]
 [1] -0.56047565 -0.23017749  1.55870831  0.07050839  0.12928774  1.71506499  0.46091621 -1.26506123 -0.68685285 -0.44566197

[[2]]
 [1]  1.2240818  0.3598138  0.4007715  0.1106827 -0.5558411  1.7869131  0.4978505 -1.9666172  0.7013559 -0.4727914

transpose(xy)
[[1]]
[1] -0.5604756  1.2240818

[[2]]
[1] -0.2301775  0.3598138

[[3]]
[1] 1.5587083 0.4007715

[[4]]
[1] 0.07050839 0.11068272

[[5]]
[1]  0.1292877 -0.5558411

[[6]]
[1] 1.715065 1.786913

[[7]]
[1] 0.4609162 0.4978505

[[8]]
[1] -1.265061 -1.966617

[[9]]
[1] -0.6868529  0.7013559

[[10]]
[1] -0.4456620 -0.4727914

顺便说一句，如果您希望按照您的意愿创建列表1到10，那么您可以编写一个简单的for循环：

    for (i in 1:10){
  eval(parse(text=paste0('list.',i,'<-unlist(transpose(xy)[',i,'])')))
}

如何从不同向量列表中提取元素并将它们存储在列表中

2 个答案:

更新