r - ggplot2 中高级 fiddle 图的中位数和四分位数

Question

这个问题是对这里提出的问题的答案的扩展:Median and quartile on violin plots in ggplot2 .

该解决方案效果很好，但如何扩展它以在使用 fill='foo' 等选项时也考虑 fiddle 图的位置

例子:

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) 添加到stat_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))