如何在R中将P字斜体

alpha<-read.csv("naturalDN.alpha_diversity-bacteria.csv")
library(ggplot2)
library(ggpubr)
p<-ggboxplot(alpha, x="Time",y="Chao1",color = "Time")
p<-p+theme(strip.text = element_text(size = 16))+stat_compare_means(size=5,hjust=0.05)
p<-p+theme_bw()+
  theme(plot.title = element_text(size = 20, face = "bold"),
        text = element_text(size = 10),
        axis.title = element_text(face="bold"),
        axis.ticks = element_line(linetype = "blank"))
p

请教各位大佬，如何修改（增加）上述代码，将出图的P字体斜体，谢谢！

您好，我是有问必答小助手，您的问题已经有小伙伴解答了，您看下是否解决，可以追评进行沟通哦~

如果有您比较满意的答案 / 帮您提供解决思路的答案，可以点击【采纳】按钮，给回答的小伙伴一些鼓励哦～～

ps:问答VIP仅需29元，即可享受5次/月 有问必答服务，了解详情>>>https://vip.csdn.net/askvip?utm_source=1146287632

参考一下：https://zhuanlan.zhihu.com/p/105223820

https://www.jianshu.com/p/294f68e9841d

如果对你有帮助，可以点击我这个回答右上方的【采纳】按钮，给我个采纳吗，谢谢

可以尝试将ggpubr得到的显著性检验，自己再标注一下：

library(ggplot2)
library(ggpubr)

test1<-data.frame(value=rnorm(100),type="a")
test2<-data.frame(value=rnorm(100,mean = 5),type="b")
test<-rbind(test1,test2)

p<-ggboxplot(test,x="type",y="value")
p+theme(strip.text = element_text(size = 16))+stat_compare_means(size=5,hjust=0.05)

p+annotate(geom = "text",label=paste("Wilconxon:", "~italic(p)<2.2e-16"),x=1.5,y=7.5,parse=T,size=5)