地图中的谓词函数

Question

我最近一直在研究purrr 家庭函数，在阅读map_if 的文档时，我遇到了.p 参数的另一种定义形式。我无法理解的谓词函数。它说：

“或者，如果 .x 的元素本身就是对象列表， 表示内部列表中逻辑元素名称的字符串"

我想知道当我处理一个元素也是列表的列表时，您能否告诉我它的含义以及如何使用它。像这样的：

x <- list(a = list(foo = 1:2, bar = 3:4), b = list(baz = 5:6))

非常感谢一个简单的例子，因为我做了一些研究，但找不到任何迹象。

非常感谢您。

Answer 1

虽然我不完全确定你到底想了解什么，但以列表列表为例，我们需要考虑到这里只有map_if 可用，pmap_if 不可用。让我们再列出一个您建议的列表。

x <- list(a = list(foo = 1:2, bar = 3:4), b = list(baz = 5:6), c = list(bird = 7:10))

现在map_if 适用于.f，只要.p 是T。因此，如果我们想对列表 x 中的所有奇数索引列表取平均值，我们实际上必须再次使用嵌套的 map。

见

map_if(x, as.logical(seq_along(x) %% 2) , ~map(.x, ~mean(.x)))

$a
$a$foo
[1] 1.5

$a$bar
[1] 3.5


$b
$b$baz
[1] 5 6


$c
$c$bird
[1] 8.5

我们还可以在.p 中使用其他谓词函数。下面的示例产生相同的输出。

map_if(x, names(x) %in% c("a", "c") , ~map(.x, ~mean(.x)))

或者如果我们说x 被命名为这样的东西

x <- list(val1 = list(foo = 1:2, bar = 3:4), ind1 = list(baz = 5:6), val2 = list(bird = 7:10))

那么下面的语法会产生类似的结果

map_if(x, str_detect(names(x), "val") , ~map(.x, ~mean(.x)))

我希望这有点接近你可能想要了解的内容。

附：您也可以阅读 it。