r - 使用 dplyr 平均排除异常值

Question

我想知道是否有一种方法可以使用 R 中的 dplyr 包来计算排除异常值的平均值？我试图做这样的事情，但没有成功:

library(dplyr)
w = rep("months", 4)
value = c(1, 10, 12, 9)
df = data.frame(w, value)
output = df %>% group_by(w) %>% summarise(m = mean(value, na.rm = T, outlier = T))

因此，在上面的示例中，输出应为 10.333(10、12 和 9 的平均值)而不是 8(1、10、12、9 的平均值)

谢谢!

Answer 1

一种方法是使用 outlier 包。

library(outliers) #containing function outlier
library(dplyr)

df %>%
    group_by(w) %>%
    filter(!value %in% c(outlier(value))) %>%
    summarise(m = mean(value, na.rm = TRUE))

#       w        m
#1 months 10.33333