问题描述
我正在为我的一门课做作业。我们必须使用管道操作符来获得体积大于 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