r - 使用 ggplot2 在分组箱线图中过度绘制平均点

Question

我有一个像这样 ggplot2 的分组箱线图

p <- qplot(factor(cyl), mpg, data=mtcars, geom="boxplot", fill=factor(gear)) 

我想 overdraw 平均点。我试过这个

p+ stat_summary(fun.y=mean, colour="red", geom="point")

但是，我没有得到每组框的平均分。


我该怎么做才能得到这个？

Answer 1

您应该将位置设置为 position_dodge()和 width到 0.75 - 所以点的放置方式与箱线图相同。

qplot(factor(cyl), mpg, data=mtcars, geom="boxplot", fill=factor(gear)) +
  stat_summary(fun.y=mean, colour="red", 
             geom="point",position=position_dodge(width=0.75))