ggboxplot：如何调整字体、边框变粗、箱子颜色

Question

这是我编的，能够制作出来如下的分组图，想请教一下，是否有办法将：分组箱式图的字体变大，边框变粗，以及能够自主调整箱子的颜色 ？

• data = read.table("ND12.txt",header = T,sep="\t")
• head(data,10)
• p <- ggboxplot(data, x = "PlantingPattern", y = "ProteinContent",

           color = "PlantingPattern", palette = "jco",
           add = "jitter",
           facet.by = "Year", short.panel.labs = FALSE)
  

• p + stat_compare_means(aes(label = ifelse(p < 1.e-2,
  sprintf("p = %2.1e", as.numeric(..p.format..)),
  sprintf("p = %5.4f", as.numeric(..p.format..)))))