如何从带有 purrr 的嵌套列表中选择具有相同名称的元素？

Question

require(purrr)

list <- list( 
  node = list(a = list(y = 1, t = 1), b = list(y = 1, t = 2)),
  node = list(a = list(y = 1, t = 3), b = list(y = 1, t = 4))) 

如何使用 purrr 选择所有“t”值？

Answer 1

如果您知道要从中提取信息的级别，则可以使用modify_depth。

您想为嵌套列表拉出t，这是第 2 级。

modify_depth(list, 2, "t")

$node
$node$a
[1] 1

$node$b
[1] 2


$node
$node$a
[1] 3

$node$b
[1] 4

purrrmodify 系列函数返回与输入相同类型的对象，因此您需要 unlist 来获取向量而不是列表。

Answer 2

这里有一些使用来自purrr 的函数的想法。感谢@cderv 的精彩建议。

这是第一个。 pluck的用法与$类似。

list %>% flatten() %>% transpose() %>% pluck("t")
$a
[1] 1

$b
[1] 2

$a
[1] 3

$b
[1] 4

这是第二个。

list %>% flatten() %>% map("t") 
$a
[1] 1

$b
[1] 2

$a
[1] 3

$b
[1] 4

最后，如果我们想要一个向量，如果我们知道t 中的元素都是数字，我们可以使用map_dbl。

list %>% flatten() %>% map_dbl("t")
a b a b 
1 2 3 4

Answer 3

与purrr::map

map(list, ~map(.x, ~.x$t))

输出仍然是列表列表

$node
$node$a
[1] 1

$node$b
[1] 2


$node
$node$a
[1] 3

$node$b
[1] 4

unlist

转成矢量

unlist(map(list, ~map(.x, ~.x$t)))

输出

node.a node.b node.a node.b 
     1      2      3      4