如何获取列表中每一项的第 n 个元素，它本身是一个未知长度的向量

Question

如果我们有一个列表，每个项目可以有不同的长度。例如：

l <- list(c(1, 2), c(3, 4,5), c(5), c(6,7))

(为了清楚起见，我们将列表中的对象称为"items"，列表中的对象称为"elements"。)

我们如何提取每个项目的第一个元素？在这里，我要提取：

1, 3, 5, 6

然后每个项目的第二个元素的相同问题：

2, 4, NA, 7

Answer 1

我们可以使用 sapply

创建一个函数

fun1 <- function(lst, n){
         sapply(lst, `[`, n)
   }
fun1(l, 1)
#[1] 1 3 5 6

fun1(l, 2)
#[1]  2  4 NA  7

Answer 2

data.table::transpose(l) 会给你一个列表，其中包含所有第一个元素、所有第二个元素等的向量。

l <- list(1:2, 3:4, 5:7, 8:10)
b <- data.table::transpose(l)
b
# [[1]]
# [1] 1 3 5 8
# 
# [[2]]
# [1] 2 4 6 9
# 
# [[3]]
# [1] NA NA  7 10

如果你不想要 NA，你可以这样做 lapply(b, function(x) x[!is.na(x)])

Answer 3

# the source list 
source_list <- list(c(1, 2), c(3, 4,5), c(5), c(6,7))

# the index of the elements you want 
k <- 1

# the results character vector 
x <- c()

for (item in source_list) {
     x <- append(x, item[k])
   }

print(x)
[1] 1 3 5 6

如何获取列表中每一项的第 n 个元素，它本身是一个未知长度的向量

How to get the nth element of each item of a list, which is itself a vector of unknown length

r

list

vector

sublist