R语言ggpubr包绘制带检验p值的箱线图

my_comparisons <- list(c("Ev", "mock")) #建立要进行独立性检验的变量list

ggboxplot(d4, x="样品", y="染色体外环形DNA长度", color = "样品", 

               palette = c("#00AFBB", "#E7B800", "#FC4E07"), 
               add = "jitter", shape="样品",ylim=c(0,51000))+
theme(legend.position='none')+#去图例，与ggplot的用法相同
stat_compare_means(comparisons = my_comparisons,#增加自定义的检验变量之间独立性的p-value

label.x=1,label.y=50000)#设置显示p-value的位置