geom_GeomSignif() has yet to be implemented in plotly

Hi. I am using ggplot to draw bar functions. Tried to convert the ggplot to a plotly graph using ggplotly and got the message to open an issue since the geom_Geomsignif() has yet to be implemented in plotly.
here my code.
library(ggplot)
library(ggsignif)
library(plotly)
p <- ggplot()+geom_bar(data=plot_data1,mapping=aes(x=group,y=mean),fill="white",size=1.5,colour=c("#1E90FF","gold","red"),position=position_dodge(),stat="identity",width=0.6)+geom_jitter(data=plot_data2,mapping=aes(x=group,y=Retive_Abundance,fill=group,colour=group,shape=group),size=2,height=0.05,width=0.1)+scale_colour_manual(values=c("#1E90FF","gold","red"))+geom_signif(data=plot_data2,mapping=aes(x=group,y=Retive_Abundance),comparisons=list(c("N","P"),c("N","T"),c("P","T")),map_signif_level=F,tip_length=c(0,0,0,0,0,0),y_position=c(38,43,40.5),size=1,textsize = 3,test = "t.test")+geom_errorbar(data=plot_data1,mapping=aes(x = group,ymin = mean-sd,ymax=mean+sd),width=0.3,colour=c("#1E90FF","gold","red"),size=0.8)+scale_y_continuous(limits =c(0, 48) ,expand = c(0,0))+theme_classic(base_line_size = 1)+labs(title="White blood cell(WBC)",x="",y="Retive_Abundance")+theme(plot.title=element_text(size = 15,colour="black",hjust = 0.5),axis.title.y = element_text(size=15,colour="black",face="bold",vjust = .5,hjust=0.5,angle=90),legend.title=element_text(size=15,colour="black",face="bold"),legend.text=element_text(size=10,colour="black",face="bold"),axis.text=element_text(size=13,colour="black",face="bold",vjust = 0.5,hjust=0.5,angle=0))
ggplotly(p)
Warning message:
In geom2trace.default(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]]) :
geom_GeomSignif() has yet to be implemented in plotly.
If you'd like to see this geom implemented,
Please open an issue with your example code at
https://github.com/ropensci/plotly/issues

警告で示されている geom2trace.default エントリポイントから開始し、提供されている ggplot、ggsignif、plotly の例で問題を再現してください。ggplotly が警告なしで geom_signif を処理し、結果のグラフに有意差の注釈を描画できれば、作業は完了です。