ggplot2实现多组箱线图上添加均值点（线）

正文

library(ggplot2)

n <- 1000
df <- data.frame(var1=sample(LETTERS[1:3],n, T),
                  var2=sample(LETTERS[1:2],n,T),
                  var3=sample(LETTERS[1:3],n,T),
                  y=rnorm(n))

p1 <- ggplot(df, aes(x=var1, y=y)) +
  geom_boxplot(aes(fill=var2), position=position_dodge(.9)) +
  facet_wrap(~var3) +
  stat_summary(fun.y=mean, geom="point", aes(group=var2), position=position_dodge(.9), pch=4,color="black", size=4)

1.stat_summary函数可参照stat_summary_bin {ggplot2}
2.position=position_dodge(.9))适当调整该参数，保证符合每组箱型图的间距。
效果图如下，

如果箱线图没有分组，则将命令改为
stat_summary(fun.y=mean, geom=“point”,pch=4,color=“black”, size=4)

参考文献

【1】https://stackoverflow.com/questions/36099799/displaying-separate-means-within-fill-groups-in-ggplot-boxplot