以下是代码:plot10 <- ggplot(subjectivedata1_1, aes(x = factor(number), y=standardscore, fill=sex)) +geom_boxplot()+scale_fill_discrete(name="sex")+labs(x="item number",y="standard score")+scale_color_discrete(name="sex")> plot10> plot10 <- plot10+stat_boxplot(geom = "errorbar",width = 0.1)> plot10尝试过调换geom_boxplot和stat_boxplot的位置,但是还是不行,依然很丑.......大神救命,作业......医学生,不是很会r在努力了