R语言 右对齐格式排列功能中的左对齐标题

mi7gmzs6  于 2023-01-28  发布在  其他
关注(0)|答案(1)|浏览(286)

我如何调整标题到左边?还有,在annotate_figure中我可以创建一个副标题吗?而不是剪切\n行,因为我不想粗体副标题。

我使用arrange函数合并多个图形,并使用annotate_figure对其进行个性化设置:

plotCNAE <- ggarrange(plotalimentacio_2021_decils, plottabac_2021_decils, plotvestit_2021_decils, plothabitatge_2021_decils, plotmobles_2021_decils, plotsalut_2021_decils,
                      plottransport_2021_decils, plotcomunicacions_2021_decils, plotoci_2021_decils, ploteducacio_2021_decils, plotrestaurants_2021_decils, plotaltres_2021_decils,
                       ncol=4, nrow=3, common.legend=TRUE, legend="right")
plotCNAE

annotate_figure(plotCNAE, 
                top=text_grob("Despesa monetària en els diferents grups CNAE, per decils de renda. Espanya (2021) \nEn euros i percentatge", size=15, face="bold", hjust=1, vjust=0.4),
                bottom=text_grob("Font: Elaboració pròpia a partir de dades de l'Enquesta de pressupostos familiars del 2021, base 2016, de l'INE.", hjust=1, x=1, face="italic", size=10))
pn9klfpd

pn9klfpd1#

要将标题左对齐,必须使用hjust=0并将textGrob的位置设置为x=0
使用一些虚假的示例数据和图表:

library(ggpubr)
library(ggplot2)

p <- ggplot(mtcars, aes(hp, mpg, color = factor(cyl))) +
  geom_point()

plotCNAE <- ggarrange(p, p, p, p,
  ncol = 4, nrow = 1, common.legend = TRUE, legend = "right"
)
plotCNAE

annotate_figure(plotCNAE,
  top = text_grob("Despesa monetària en els diferents grups CNAE, per decils de renda. Espanya (2021) \nEn euros i percentatge", 
                  size = 15, face = "bold", hjust = 0, vjust = 0.4, x = 0),
  bottom = text_grob("Font: Elaboració pròpia a partir de dades de l'Enquesta de pressupostos familiars del 2021, base 2016, de l'INE.", 
                     hjust = 1, x = 1, face = "italic", size = 10)
)

相关问题