访问R中列表的第一行

Question

例如，考虑R中的列表

A=list()
A[[1]]=c(1,2)
A[[2]]=c(3,4)

是否有可能返回一个向量，该向量给出列表中每个条目的第一个元素（这里是c(1,3) ）？

并作为扩展：如果列表的元素不仅仅是向量而是矩阵，那该怎么办？ 是否可以为每个矩阵获取包含第二行第一个元素的向量？

Answer 1

 A=list()
 A[[1]]=c(1,2)
 A[[2]]=c(3,4)
 A[[3]]=c(5,6)

 A
 # [[1]]
 # [1] 1 2

 # [[2]]
 # [1] 3 4

 # [[3]]
 # [1] 5 6

I.使用sapply()函数的第一个解决方案仅适用于第一个元素

 sapply(A,'[[',1)
 # [1] 1 3 5

For Getting让我们说出每个嵌套列表的第1，第3，第4个元素。 在此示例中不适用

 sapply(A,`[`,c(1,3,4))

II。 第二个解决方案使用for循环

 for(i in 1:length(A)){
 print (A[[i]][1])
 }
 # [1] 1
 # [1] 3
 # [1] 5

Answer 2

试试这个：

sapply(A, "[", 1) 

Answer 3

你也可以这样做：

unlist(lapply(A, "[[", 1))

# [1] 1 3

第二个要素：

unlist(lapply(A, "[[", 2))

# [1] 2 4

要为所有人这样做：

t(sapply(seq_along(A[[1]]), function(x) unlist(lapply(A, "[[", x))))

#     [,1] [,2]
#[1,]    1    3
#[2,]    2    4

Answer 4

不是最优雅，但您可以使用as.data.frame（）将列表转换为数据框，然后提取第一行。

A=list()
A[[1]]=c(1,2)
A[[2]]=c(3,4)
b<-as.vector(as.data.frame(A)[1,])
b

  c.1..2. c.3..4.
1       1       3