ggplot2 中高级小提琴图的中位数和四分位数

Question

这个问题是对这里提出的问题的答案的扩展：ggplot2 中小提琴图的中位数和四分位数。

该解决方案效果很好，但是在使用诸如 fill='foo' 之类的选项时，如何扩展它以同时考虑小提琴图的位置

例子：

require(ggplot2)

median.quartile <- function(x){
  out <- quantile(x, probs = c(0.25,0.5,0.75))
  names(out) <- c("ymin","y","ymax")
  return(out) 
}

ggplot(data=mtcars,aes(x=factor(cyl),y=drat, fill=factor(am)))+
    geom_violin() +
    stat_summary(fun.y=median.quartile,geom='point')

此处的汇总统计数据混杂，因为它没有考虑由于填充星体映射造成的位移。

这可以解决吗？

提前 - 谢谢！

Answer 1

您应该添加position = position_dodge(width = 0.9)tostat_summary()以确保根据填充值对点进行躲避。

ggplot(data=mtcars,aes(x=factor(cyl),y=drat, fill=factor(am)))+
  geom_violin() +
  stat_summary(fun.y=median.quartile,geom='point',
               position = position_dodge(width = 0.9))