r - 使用 ggplot2 对箱线图中的异常值数据应用抖动

Question

您知道如何将抖动仅应用于箱线图的异常值数据吗？这是代码:

ggplot(data = a, aes(x = "", y = a$V8)) +
geom_boxplot(outlier.size = 0.5)+
geom_point(data=a, aes(x="", y=a$V8[54]), colour="red", size=3) + 
theme_bw()+
coord_flip()

谢谢你!!

Answer 1

向您的数据集中添加了一个向量，以指示哪些点是异常值，哪些不是异常值。然后，设置 geom_boxplot不绘制任何异常值并使用 geom_point明确地绘制异常值。

我将使用 diamonds数据集来自 ggplot2为了显示。

library(ggplot2)
library(dplyr)

diamonds2 <-
  diamonds %>%
  group_by(cut) %>%
  mutate(outlier = price > median(price) + IQR(price) * 1.5) %>%
  ungroup

ggplot(diamonds2) +
  aes(x = cut, y = price) +
  geom_boxplot(outlier.shape = NA) +  # NO OUTLIERS
  geom_point(data = function(x) dplyr::filter_(x, ~ outlier), position = 'jitter') # Outliers