Индексирование именованного списка с вектором в R

Question

Как бы вы проиндексировали второй элемент вектора, который хранится как значение в именованном списке?

Я начинаю с этого:

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

и хотел бы закончить с именованным списком с ключом плюс 2-й элемент вектора, т.е.:

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"