overdraw punti medi della raggruppate grafico a scatole con ggplot2

Question

ho un raggruppate grafico a scatole con ggplot2 come questo

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

e voglio amplificare i punti medi. Ho provato questo

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

ma, non ottengo i punti medi sopra le caselle di ogni gruppo.

Cosa devo fare per ottenere questo?

Answer 1

È necessario impostare la posizione su position_dodge() e width su 0,75: i punti verranno quindi posizionati come i grafici a scatole.

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))