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