如何根據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)