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