如何根据ggplot geom_boxplot中的手动阈值去除异常值

Question

我有以下脚本：

library(tidyverse)
ggplot(mpg, aes(class, hwy)) + geom_boxplot(outlier.shape = NA) + geom_jitter(width = 0.2)

它像这样产生 plot ：

如上图plot所示。 我想删除hwy值 <= 10 的异常值。

Answer 1

在数据中有hwy <= 10的行。 出于演示目的，让我们删除hwy <= 15的行。 您可以从 plot 的数据中删除行。

plt<- ggplot(mpg, aes(class, hwy)) + geom_boxplot(outlier.shape = NA) + geom_jitter(width = 0.2)
plt$data <- subset(plt$data, hwy > 15)
plt

Answer 2

我会过滤数据框，如下所示：

ggplot(mpg %>% filter(hwy >= 10), aes(class, hwy)) + geom_boxplot(outlier.shape = NA) + geom_jitter(width = 0.2)