如何使用 R 中的管道运算符找到数据框一列的平均值？

如何解决如何使用 R 中的管道运算符找到数据框一列的平均值？

我正在为我的一门课做作业。我们必须使用管道操作符来获得体积大于 13 的树木的平均高度。

所以最初，我尝试了：

df <- trees

df %>% filter(Volume > 13) %>% mean(Height)

问题是，然后我收到一条警告消息

Warning message:
In mean.default(.,Height) :
  argument is not numeric or logical: returning NA

我无法弄清楚 Height 为何不是数字（对我来说它很明显看起来像一个数字列表），所以我无法完成这个问题。

有人可以帮我吗？我一直在测试不同的变体，但无济于事。

解决方法

我们可以在mean内得到summarise

library(dplyr)
df %>% 
   filter(Volume > 13) %>%
   summarise(Mean = mean(Height))

---

mean 需要 vector，如果我们需要在 summarise pull 之外执行此操作，则“高度”为 vector

df %>%
  filter(Volume > 13) %>%
  pull(Height) %>%
  mean

或使用 .$Height

df %>%
    filter(Volume > 13) %>%
    .$Height %>%
    mean

---

可以使用 iris 数据重现警告

data(iris)
iris %>%
  mean(.$Sepal.Length)
#[1] NA

警告信息： 在 mean.default(.,.$Sepal.Length) 中： 参数不是数字或逻辑：返回 NA

它与管道无关。如果输入是 data.frame，则返回 NA，因为期望是 vector

mean(iris['Sepal.Length'])
#[1] NA

警告信息： 在 mean.default(iris["Sepal.Length"]) 中： 参数不是数字或逻辑：返回 NA

iris %>%
  .$Sepal.Length %>%
  mean
#[1] 5.843333