使用purrr从通用字母开头的多个列表中提取元素

Question

我有一份清单清单。每个列表中的一个元素的名称以＆＃34; n _＆＃34;开头。如何提取这些元素并将它们存储在单独的列表中？我可以使用map和starts_with的组合吗？

E.g：

m1 <- list(n_age = c(19,40,39),
       names = c("a", "b", "c"))

m2 <- list(n_gender = c("m","f","f"),
       names = c("f", "t", "d"))

nice_list <- list(m1, m2)

我希望以下内容能够发挥作用（它没有！）：

output <- map(nice_list, starts_with("n_"))

Answer 1

这个怎么样？

map(nice_list, ~.x[grep("n_", names(.x))])
#[[1]]
#[[1]]$n_age
#[1] 19 40 39
#
#
#[[2]]
#[[2]]$n_gender
#[1] "m" "f" "f"

或使用starts_with

map(nice_list, ~.x[starts_with("n_", vars = names(.x))])

或者为了展平嵌套的list，您可以

unlist(map(nice_list, ~.x[grep("n_", names(.x))]), recursive = F)
#$n_age
#[1] 19 40 39
#    
#$n_gender
#[1] "m" "f" "f"

Answer 2

你可以（ab）使用$：

的部分匹配

map(nice_list, `$`, "n_")

（我不推荐它。）

（我无法弄清楚为什么lapply(nice_list, `$`, "n_")不起作用（给出list(NULL, NULL)）。