ggplot2 - 关于错位的框图问题

Question

我正在制作以下挑战：

1. 我正在尝试进行“分组”框图 - 但看起来框图未显示在相应的x轴组附近。所以要看每个情节属于哪个群体并不容易。
2. 我正在尝试为“均值”值添加一个图标，现在它是一个三角形。然而，这些并没有随着分组的箱图一起移动。
3. 我不希望平均值的三角形图标显示在图例中 - 我无法弄清楚如何删除它。
4. 每当我尝试添加文字时，我只想要一个中间值或均值的值 - 不是重复50倍。

箱线图



library(ggplot2)
library(ggthemes)
library(RColorBrewer)  
library(reshape2)

ggplot(tips, aes(x = day, y = total_bill, fill=sex)) +  #grouping factor, y variable
       geom_boxplot(position = position_dodge(width = 1.2)) + # how to color
       labs(title ='Barchart Plot', x=' xaxis label',y='ylabel') +
       scale_fill_brewer(palette="Dark2")+ #use Dark2, Paired, Set1
       theme(axis.text.x = element_text(colour="black",size=14,angle=45,
                                        hjust=.5,vjust=.5,face="bold"),
             axis.text.y = element_text(colour="grey20",size=16,angle=45,
                                        hjust=1,vjust=0,face="plain"),
             axis.title.x = element_text(colour="grey20",size=12,angle=45,
                                         hjust=.5,vjust=0,face="plain"),
             axis.title.y = element_text(colour="blue",size=16,angle=90,
                                         hjust=0.5,vjust=.5,face='bold')) +
       stat_summary(fun.y=mean, geom="point", shape=17, size=4) +
       theme_base() +
       geom_text(label='just the mean or median please - number only')