列表中每个元素的X值

Question

如何获取列表中每个元素的x值。

示例：

list1 <- list(1:3,4:6)
list1
#[[1]]
#[1] 1 2 3
#
#[[2]]
#[1] 4 5 6

虚构的功能我正在寻找：

function(list1, 1)
# [1] 1 4
function(list2, 2)
# [1] 2 5

我该怎么做？

Answer 1

将sapply或lapply与[提取功能结合使用（有关详细信息，请参阅?Extract），如下所示：

> sapply(list1,"[",1)
[1] 1 4

...或列表输出：

> lapply(list1,"[",1)
[[1]]
[1] 1

[[2]]
[1] 4