假设您有以下数据集:
trt <- ifelse(runif(100)<0.5,"drug","placebo")
inj.site <- ifelse(runif(100)<0.5,"ankle","wrist")
relief <- 20 + 0.5*(inj.site=="ankle") + 0.5*(trt=="drug") + rnorm(100)
to.analyze <- data.frame(trt,inj.site,relief)
现在,我们的想法是制作一个箱线图,x 轴上有损伤部位,并排治疗箱:
bplot <- ggplot(to.analyze,aes(inj.site,relief,fill=trt)) + geom_boxplot(position="dodge")
很容易。但现在我想在盒子顶部添加原始数据点。如果我没有带有 的盒子position="dodge"
,这很容易:
bplot + geom_point(aes(colour=trt))
但是,这会在框之间绘制点,并且向position="dodge"
此几何图形添加 a 似乎不起作用。如何调整它以便在框上绘制点?
奖励:与使用stat_summary(blah,y.fun=mean,shape="+")
过度绘制均值的情况相同,这具有相同的问题。