问如何修改R画图 ggscatter 统计出来的数值的大小？

求帮助

我贴上我的所有代码，我想修改图片上的统计出来的P值和相关值的字体大小，请问如何操作？

setwd("D:/DOCUMENTS")

install.packages("ggpubr")

install.packages("magrittr")

library("ggplot2")

library("ggpubr")

library("magrittr")

library(RColorBrewer)

display.brewer.all()

DTI <- read.csv("MRI_CORRELATION_cog_Training_20190204_analysis_MRI_Subjects.csv", header = T)

ggplot(DTI,aes(x=factor(group), y = Training_sessions,

fill = factor(group))) + geom_boxplot(notch = FALSE) +

scale_fill_brewer(palette = "Pastel2")

##########################global_cognition############## the previous code###

ggplot(DTI,aes(x=factor(group), y = (Training_sessions),

fill = factor(group))) + geom_boxplot(notch = FALSE) +

scale_fill_brewer(palette = "Pastel2")

##########################memory##############

##############################################################################

barplot(class1,class2)

### method of correlation

cor(x, y, method = c("pearson", "kendall", "spearman"))

boxplot()

####SUCCESSFUL####DTI1

DTI1 <- ggscatter(DTI, x = "Occipital_Mid_L", y = "FLUENCYT_change6to0",

add = "reg.line", conf.int = TRUE, color = "blue", size = 5,

cor.coef = TRUE,cor.method = "pearson", col = "deeppink",

xlab = "Δ FA of Occipital_Mid_L", ylab = "Δ Score of Animal Fluency",

col.lab="red", cex.lab=1.5,cex.axis = 1.5)

DTI1+

font("xlab", size = 20, color = "black")+

font("ylab", size = 20, color = "black")+

font("caption", size = 20, color = "orange")+

font("xy.text", size = 12, color = "black", face = "bold")