R 更改抖动箱线图中所有异常值的形状

我环顾了一下网络，发现了很多关于抖动和改变异常值形状的东西，但似乎找不到关于这个特定问题的任何东西

我想要一个带有抖动数据点的黑白箱线图——我可以做到

我还想改变异常值的形状。虽然有多个案例的得分为4，但只有一个案例变为空心圆

我假设，如果某一特定级别的一个数据点被视为异常值，那么其他数据点也将被视为异常值

这是一个编码错误还是我在统计类中遗漏了什么？ 如果这是一个编码的东西，我如何让它们都是空的

显然，我的“声誉”必须是10才能获得附加图像！我希望没有它也能有意义

这是我的密码：

plot <- ggplot(phase2.3, aes(Group, Score))

plot + geom_point (position = position_jitter(w = 0.1, h = 0.2)) + 
 geom_boxplot (outlier.shape = 1) + xlab("Group") + theme_bw(20)

---

plot您可能需要自己计算哪些点超出范围。下面是
geom_boxplot
标准示例的扩展，该示例演示了如何使用
plyr
查找异常值

# load packages
require(plyr)
require(ggplot2)
# find outliers
df <- ddply(mtcars, "cyl", function(x){
  iqr <- quantile(x[,"mpg"], c(.25, .75)) # inter-quartile-range
  whisker <- iqr+c(-1.5, 1.5)*diff(iqr)   # whiskers-range
  x[,"shape"] <- ifelse(x[,"mpg"] < whisker[1] | x[,"mpg"]>whisker[2], 1, 16)
  return(x)
})
# plot
p <- ggplot(df, aes(factor(cyl), mpg))
p + geom_boxplot() # without jittering
# adding shape manualy
p + geom_boxplot(outlier.size=-Inf) + 
  geom_jitter(aes(shape=factor(shape))) + 
  scale_shape_manual(guide=FALSE, values=c("16"=16, "1"=1)) 

#加载包
需要（plyr）
需要（ggplot2）
#查找异常值
如果你给我们绘图的数据，你不需要附加图像！发布
dput（phase2.3）
的结果，以便我们可以将其复制/粘贴到R中（如果您无法共享数据或数据量大，请使用内置数据集或模拟数据进行编辑）。散点图（
geom_point
）点会抖动，但箱线图的异常值不会抖动（我认为没有直接的方法抖动它们）。单独看一个带有每个几何图形的绘图，可能会更清楚正在发生的事情。感谢您的帮助，但shadow提供了一个解决方案。非常好的解决方案，谢谢！但是我可以问一个调整吗？单个数据点显示在箱线图的前面，而不是后面。以前，我使用geom_point和geom_boxplot的顺序确保只能看到框之外的点。有什么办法可以调整吗？解决方案是对代码重新排序（Gracias mi Amigo！）：p+geom_jitter（aes（形状=因子（形状））+scale_形状手册（guide=FALSE，values=c（“16”=16，“1”=1））+geom_箱线图（outlier.size=-Inf）+geom_箱线图（outlier.size=-Inf）