时间戳

首页 > 解决方案 > 使用 map 和 pluck 从嵌套列表中获取值

r - 使用 map 和 pluck 从嵌套列表中获取值

问题描述

我有以下讨厌的嵌套列表

编辑：更新包括value_I_dont_want

mylist <- list(
  list(
    nested_1 = list(
      nested_2 = list(
        list( value_I_want = "a", value_I_dont_want = "f"),
        list( value_I_want = "b", value_I_dont_want = "g")
      )
    )
  ),
  list(
    nested_1 = list(
      nested_2 = list(
        list( value_I_want = "c", value_I_dont_want = "h"),
        list( value_I_want = "d", value_I_dont_want = "i"),
        list( value_I_want = "e", value_I_dont_want = "j")
      )
    )
  )
)

我想得到所有value_I_want的

我知道我可以在 for 循环中使用以下代码

mylist[[x]]$nested_1$nested_2[[y]]$value_I_want

但我想提高我的地图技能。我了解当列表是单级时如何使用map_chr，但我没有找到很多关于从非常嵌套的列表中提取的资源。我也知道我可以使用[[但没有找到合适的文档？

任何帮助表示赞赏！

标签： rpurrrpluck

解决方案

如果我们需要'yay's

library(purrr)
library(dplyr)
map(mylist, ~ .x$nested_1$nested_2 %>% unlist%>% grep("^yay", ., value = TRUE))

或者使用循环后pluck基于键'value_I_want'提取元素listmap

map(mylist, ~ .x$nested_1$nested_2 %>% 
                     map(pluck, "value_I_want") )

推荐阅读