选择嵌套列表的第一个元素

Question

假设我有一个这样的列表：

x = list(list(1,2), list(3,4), list(5,6))

我想要一个只包含嵌套列表的第一个元素的列表。我可以通过这样返回另一个列表来做到这一点

x1 = lapply(x, function(l) l[[1]])

这个有捷径符号吗？

Answer 1

对于示例列表，您只需执行以下操作：

unlist(x)[ c(TRUE,FALSE) ]

但这取决于每个子列表正好有2个元素。

如果有不同数量的元素，则可以先执行sapply来计算长度，然后计算相应的第一个元素位置（请参见cumsum），然后从未列出的列表中选择这些值。但到那时，公认的答案可能要简单得多。

如果所有子列表的长度相同（但可能不同于2），那么您可以执行以下操作：

do.call( rbind, x)[,1]

或者其他一些对普通物体的投射。但我怀疑这是否会像lappy方法那样有效。

Answer 2

另一种可能性是使用nicepurrr库：

library(purrr)
map(x, 1)

Answer 3

这不是什么捷径，但你可以做到：

lapply(x, `[[`, 1)
# [[1]]
# [1] 1
#
# [[2]]
# [1] 3
#
# [[3]]
# [1] 5