r - 如何使用 map 对列表进行子集化？

Question

我有以下列表:

list(list(list(name = 'John'), list(name=c("Jack", "Kate"))))
[[1]]
[[1]][[1]]
[[1]][[1]]$name
[1] "John"


[[1]][[2]]
[[1]][[2]]$name
[1] "Jack" "Kate"

我只想提取名称列表。我知道我可以使用

list(list(list(name = 'John'), list(name=c("Jack", "Kate"))))%>% map(list(1, 'name'))

从第一个元素中提取名称。但是我如何从每个元素中提取 name 来得到这个:

#[[1]]
#[1] "John"

#[[2]]
#[1] "Jack" "Kate"

更新:我刚刚意识到我可以使用flatten()，但是我该如何使用具有正确索引的 map 来做到这一点？

Answer 1

您可以在此处使用 modify_depth、pluck 和 flatten，所有函数均来自 purrr

your_list <- list(list(list(name = 'John'), list(name=c("Jack", "Kate"))))

library(purrr)
modify_depth(your_list, .depth = 2, .f = pluck, "name") %>% 
 flatten()
#[[1]]
#[1] "John"

#[[2]]
#[1] "Jack" "Kate"