library(dplyr)
p.value <- wilcox.test(x$Normal,x$Cancer)$p.value %>% 
    signif(.,3) %>% as.character() %>% strsplit(.,split = "e-") %>% unlist() %>% as.numeric()
a <- p.value[1]
b <- p.value[2]

ggplot(x,aes(x=Type,y=Value,fill=Type))+
    geom_boxplot()+
    annotate("text",x=1.5,y=6,label = substitute(paste(italic('P value'),"=", a%*%10^b )))+
    labs(x="",y= substitute(paste(log[10],(FTO),+ 5)))+
    theme_bw()+
    theme(
      axis.title = element_text(size=12,face="bold"),
      axis.text = element_text(face="bold",size=12,color = "black"),
      legend.position = ""
    )

如上面代碼所示，為了輸出有上標(biāo)的 p值也是煞費(fèi)苦心，如果有更方便的方式請(qǐng)告知。還實(shí)現(xiàn)了字符串斜體和數(shù)學(xué)公式。

參考

https://blog.csdn.net/weixin_41929524/article/details/88577902
https://blog.csdn.net/weixin_41929524/article/details/103610743
https://blog.csdn.net/songzhilian22/article/details/49487467