r - 从列表中提取相同的索引元素

Question

这个问题是R list get first item of each element的延伸.

a <- c(1,2,3)
b <- c(11,22,33)
c <- c(111,222,333)
d <- list(a,b,c)

> sapply(d, function(x) x[1])
  [1]   1  11 111

上面的代码提取每个列表的第一个元素。我的问题是我如何概括它以获得一个列表，该列表提取所有相同的索引元素并将它们存储在一个列表中。

我想要的输出:

[[1]]
[1]   1  11 111

[[2]]
[1]   2  22 222

[[3]]
[1]   3  33 333

Answer 1

以下内容可能有帮助

sapply(1:3, function(k) sapply(d, function(x) x[k]),simplify = F)

或

Map(function(k) sapply(d, function(x) x[k]), 1:3)