管道里面dplyr点::过滤

Question

我从dplyr使用％>％margritr奋力管的东西的功能过滤器内的另一个理由。

我会认为这应该工作：

library(dplyr) 
library(margritr) 

d <- data.frame(a=c(1,2,3),b=c(4,5,6)) 
c(2,2) %>% filter(d, a %in% .) 

但我得到这个：

# Error in UseMethod("filter_") : 
# no applicable method for 'filter_' applied to an object of class "c('double', 'numeric')" 

我希望它在相同的方式工作，因为这：

filter(d, a %in% c(2,2)) 
# a b 
# 1 2 5 

我在做什么错？

Answer 1

管道被设计为当你传递它时围绕它的第一个参数组成函数。当你想规避这种行为时，你可以生成一个更加灵活的匿名环境。你用花括号来做这件事，就像你在写一个函数一样。

5 %>% 
    {filter(iris, Sepal.Length == .)} 

为什么这个作品，写{somefunctions(x, y)}相当于写function(...) {somefunctions(x, y)}。所以上面的函数忽略了它的参数，只是在它的环境中评估变量。 .代名词是由管道定义的，它在全球环境中搜索其他变量（如iris）。

Answer 2

它默认管道的第一个参数。围绕它的唯一方法是命名明确的第一个参数：

c(2,2) %>% 
    filter(.data = d, a %in% .) 

但看起来这并不能很好地工作：

a b 
1 2 5 
Warning message: 
In (~.) & (~a %in% .) : 
    longer object length is not a multiple of shorter object length 

附：你不需要明确地加载magrittr，因为%>%已经在dplyr