p1<-ggplot(data)+geom_boxplot(aes(x = month, y = 休息,fill=as.factor(month)),alpha=0.3,outlier.colour="red", outlier.shape=18, outlier.size=6,varwidth = TRUE) + scale_y_continuous(name = "休息时长(单位:(分钟)")+ scale_x_discrete(limits=4:5,name = "月龄") +scale_fill_manual(values=c("red", "blue")) +theme_bw() + theme(plot.title = element_text(size = 14, face =  "bold"),text = element_text(size = 12), axis.title = element_text(face="bold"),axis.text.x=element_text(size = 11))+theme(plot.title = element_text(hjust = 0.5))+labs(fill="月龄")+theme(legend.position="none")这是代码