ggplot(data = data2, aes(x = type , y = exp,fill=cluster,color = cluster)) +
stat_compare_means(aes(group=cluster), label = “p.signif”) + ### 显示显著性检验
geom_boxplot(width=0.5,position=position_dodge(0.9),outlier.shape = NA)+ #绘制箱线图

stat_compare_means(label.y = 25) + ### 添加总体的检验

scale_fill_manual(values = c(“#FFFFFF”, “#FFFFFF”))+ #设置box的填充的颜色
scale_color_manual(values = c(“#00676B”, “#BC3C28”))+ # 设置box的描边颜色
theme_bw()+ #背景变为白色

ylim(0,20) +

theme(axis.text.x=element_text(angle = 45,hjust = 1,colour=”black”,size=16), #设置x轴刻度标签的字体显示倾斜角度为15度，并向下调整1(hjust = 1)，字体簇为Times大小为20
axis.text.y=element_text(size=16,colour=”black”), #设置y轴刻度标签的字体簇，字体大小，字体样式为plain
axis.title.y=element_text(size = 20,colour=”black”), #设置y轴标题的字体属性
legend.text=element_text( colour=”black”, #设置图例的子标题的字体属性
size=16),
legend.title=element_text( colour=”black”, #设置图例的总标题的字体属性
size=18),
panel.grid.major = element_blank(), #不显示网格线
panel.grid.minor = element_blank())+ #不显示网格线
xlab(“”) +
ylab(“”) #设置y轴的标题