R语言画箱线图报错

> p1<-ggboxplot(df_ci,x="variable",y="value",color="variable",palette = mycol1,legend="none",
+               add ="jitter",add.params = list(size=1,jitter=0.1,alpha=2),outlier.color = NA)+
+   #stat_compare_means(method = "t.test",label.y = 7.5,label.x = 0.8,label = "p.format <-sprintf("%e",..f..)")+
+   stat_compare_means(comparisons = list(c("T1st-La","T3rd-La"),c("T1st-La","T5th-La"),c("T1st-La","Pupa"),c("T1st-La","Adult"),c("T1st-La","Egg")),method="t.test",label="p.signif",
+                      textsize = 14)+
+   theme(panel.grid = element_line(color = NA),panel.grid.minor = element_line(color = NA),
+         panel.border = element_rect(fill = NA,color = NA),
+         axis.text.x= element_text(size = 10,face ="italic",hjust = 0.5),
+         axis.title.x =element_blank(),#去除横坐标标题
+         axis.text.y = element_text(size = 10,face ="plain",hjust = 0.5),
+         axis.title.y =element_blank())+
+   labs(title="Clock")
> p1 
Warning message:
Computation failed in `stat_signif()`
Caused by error in `if (scales$x$map(comp[1]) == data$group[1] | manual) ...`:
! 需要TRUE/FALSE值的地方不可以用缺少值 

报错原因：c("T1st-La","T3rd-La"),c("T1st-La","T5th-La"),c("T1st-La","Pupa"),c("T1st-La","Adult")这里和输入数据不匹配