问我使用ggplot2包在boxplot上绘制p-value。如何仅获取十进制格式的pvalue

EN

mydata <- read.csv(paste("plot.csv"), na.strings = c("", "NA"))
library(ggplot2)
library(ggsignif)
library(scales)
library(ggpubr)
options(scipen=10L)
compare_means(XYZ ~ GR, data = mydata, method="wilcox.test")
my_comparisons<-list(c("A", "B"), 
                     c("A", "C"), 
                     c("B", "C"))
plotXYZ <- ggboxplot(mydata, x = "GR", y = "XYZ", color = "GR", palette = "jco", fill="GR"
                    )+ 
  stat_compare_means(comparisons=my_comparisons,label.y=c(120,150,160))+               
  stat_compare_means(label.y = 170)
plotXYZ