用R中的向量索引命名列表

Question

如何索引作为值存储在命名列表中的向量的第二个元素？

我从这个开始：

hi <- list("1" = c("a","b"),
"2" = c("dog","cat"),
"3" = c("sister","brother")
)

并且希望最终得到一个命名列表，其中键加上矢量的第二个元素，即：

list("1" = "b",
"2" = "cat",
"3" = "brother"
)

Answer 1

你可以做：

lapply(hi, `[`, 2)
$`1`
[1] "b"
$`2`
[1] "cat"
$`3`
[1] "brother"

Answer 2

我们可以使用map

library(purrr)
map(hi, pluck, 2)
#$`1`
#[1] "b"
#$`2`
#[1] "cat"
#$`3`
#[1] "brother"