排列图中标签和值的字体大小

Question

我在 ggplot 中制作了 4 个条形图：o、p、q、r。\n我使用 ggpubr 包和以下代码将它们放在一个图中：

\n

library(ggpubr)\n\nfigure = ggarrange(o + font("y.text", size = 5), p + \nfont("y.text", size = 5), q + font("y.text", size = 5), r + \nfont("y.text", size = 5), labels = c("Total", "DF", "SE", "RU"), ncol = 2, nrow = 2)\n\nannotate_figure(figure,top = text_grob("Distribuci\xc3\xb3n de v\xc3\xadctimas por departamento seg\xc3\xban hecho victimizante", \ncolor = "black", face = "bold", size = 10))\n

\n

这是结果：\n

\n

我的问题：条形图极端处的标签和值太大。关于如何使它们更小有什么想法吗（我不想触及每个图 o、p、q、r 的代码）？先感谢您。

\n

Answer 1

有人给了我这样的答案，我觉得可以接受：

\n

lista<-list(o=o,p=p,q=q,r=r)\nlista_limpia<-map(lista,function(x){ a<-ggplot_build(x); a$data[[2]]$size<-2;b<-as_ggplot(ggplot_gtable(a));b})\n\nfigure<-ggarrange(lista_limpia$o,lista_limpia$p,lista_limpia$q,lista_limpia$r,\n                  labels = c("Total", "DF", "SE", "RU"), ncol = 2, nrow = 2,\n                  font.label=list(color="black",size=9))\nannotate_figure(figure,top = text_grob("Distribuci\xc3\xb3n de v\xc3\xadctimas por departamento seg\xc3\xban hecho victimizante", \n                   color = "black", face = "bold", size = 10))\n

\n

结果：\n

\n