R列表获取每个元素的第一项

Question

对于某人来说，这应该很容易回答，但我在任何地方找不到答案都没有成功。

我试图从R中的列表返回列表中每个元素的第一项。

> a
[1] 1 2 3
> b
[1] 11 22 33
> c
[1] 111 222 333
> d <- list(a = a,b = b,c = c)
> d
$a
[1] 1 2 3

$b
[1] 11 22 33

$c
[1] 111 222 333

根据上面列表d的构造，我想返回一个带有三个值的向量：

return  1 11 111

Answer 1

你可以做到

 output <- sapply(d, function(x) x[1])

如果您不需要名字

 names(output) <- NULL

Answer 2

sapply(d, "[[", 1)应该可以解决问题。

一点解释：

sapply：迭代列表中的元素
[[：是子集函数。所以我们要求sapply在每个列表元素上使用子集函数 1：是传递给“[[”

的参数

事实证明，“[”或“[[”）可以用传统的方式调用，这可能有助于说明这一点：

x <- 10:1
"["(x, 3)
 # [1] 8