你知道如何将抖动应用于箱线图的异常值数据吗?代码如下:
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()
谢谢你!!
发布于 2017-05-24 04:43:17
向数据集添加了一个向量,以指示哪些点是异常值,哪些不是异常值。然后,将geom_boxplot
设置为不绘制任何异常值,并使用geom_point
显式绘制异常值。
我将使用ggplot2
中的diamonds
数据集进行说明。
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
https://stackoverflow.com/questions/44141193
复制相似问题