r - 如何将管道送入不等式？

Question

这已经出现在多个实例中，我不知道当前的实例是否可以推广到我遇到的许多情况，但我希望答案可以带来一些启发。

最简单的版本是当我正在进行一些数据处理并想要对管道的结果进行评估时。一个简单的例子是:

> seq(9) %>% > 4
Error: unexpected '>' in "seq(9) %>% >"
> seq(9) %>% . > 4
Error in .(.) : could not find function "."

所需的输出将是一个逻辑向量

FALSE FALSE FALSE FALSE TRUE TRUE TRUE TRUE TRUE

在许多情况下，我想对某些管道输出进行评估，但必须对其进行分配，然后执行评估才能使其正常工作:

seq(9) -> vec
vec > 4

有没有办法完全在管道链内完成此类评估？

Answer 1

如果只想使用管道，则需要使用花括号。

seq(9) %>% {. > 4}

[1] FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE

如果您要通过管道传输此类内容，我建议使用 purrr，因为它会产生更具可读性的代码。

library(purrr)

map_lgl(seq(9), ~.x > 4)

[1] FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE