两个等价命令在r中给出不同的返回

Question

为什么以下两个命令不返回相同的输出？

x <- sample(0:1, 50, replace = TRUE, prob = c(0.5, 0.5))
  sum(x==1)

sample(0:1, 50, replace = TRUE, prob = c(0.5, 0.5)) %>%
  sum(.==1)

2命令中的第一个总是给我正确的答案（大约25左右），第二个命令返回一个太高的数字，比如52。我对这里的管道操作员理解错了什么？

Answer 1

另一种方法是将逻辑操作移到sample（）函数

sample(c(0:1) == TRUE, 
       size = 50, 
       replace = TRUE, 
       prob = c(0.5, 0.5)) %>%
  sum

你会问为什么--求和函数会求和它接收到的所有值，而不仅仅是第一个向量。当进行管道处理时，它将最后一步的输出转换为sum(...)中的第一个参数，因此，通过同时提供x==1，您提供了两个向量，实质上是表示sum(x,x==1)。例如，您可以在sum(c(1，1，1)，c(1，1，1))中看到这一点（它返回6，将两个向量中的所有值求和），或者在您的代码中看到：

set.seed(1)
x <- sample(0:1, 
            size = 50, 
            replace = TRUE, 
            prob = c(0.5, 0.5))
sum(x, x==1)

set.seed(1)
sample(0:1, 
       size = 50, 
       replace = TRUE, 
       prob = c(0.5, 0.5)) %>%
  sum(x==1)

此外，如果x<-c(1,0,1,0,1,1)，则sum(x,x==1)或x%>%sum(x==1)有效

sum(c(1, 0, 1, 0, 1, 1), as.numeric(c(TRUE, FALSE, TRUE, FALSE, TRUE, TRUE)))