r - 如何过滤，然后管道并使用 sum 函数？

Question

例如，以下将不起作用:

data(mpg)

filter(mpg, manufacturer =="audi") %>%
    sum(.$cty)

但是，以下将起作用:

data(mpg)

x <- filter(mpg, manufacturer =="audi")

sum(x$cty)

如果可能的话，我想让这一切都在管道流动中工作。

Answer 1

您可以使用 pull将列作为向量，然后使用 sum .

library(dplyr)

mpg %>%
  filter(manufacturer =="audi") %>%
  pull(cty) %>%
  sum
#[1] 317

您的尝试不起作用，因为管道将 LHS 的输出作为 RHS 中函数的第一个参数发送。因此，数据帧作为 sum 中的第一个参数被传递.如果您使用 {} 它将起作用周围。

filter(mpg, manufacturer =="audi") %>% {sum(.$cty)}