如何在R中对ggarrange生成的图形底部注释左对齐

要实现底部注释左对齐，关键是在text_grob()中设置水平对齐参数和位置参数，以下是具体方法：

核心参数说明 #

text_grob() 封装了grid包的textGrob()，可通过以下参数控制对齐：

• hjust=0：设置水平左对齐（默认值0.5为居中）
• x：调整注释的水平位置（取值范围0-1，0对应最左侧，1对应最右侧，建议设为0.05避免贴边）
• gp：可选参数，用于设置字体大小、颜色等样式

完整示例代码 #

library(ggplot2)
library(ggpubr)

# 创建示例图形
p1 <- ggplot(mtcars, aes(x=mpg, y=wt)) + geom_point()
p2 <- ggplot(mtcars, aes(x=disp, y=hp)) + geom_point()

# 组合图形
combined_plot <- ggarrange(p1, p2, ncol=2)

# 添加左对齐的底部注释
annotate_figure(combined_plot,
                bottom = text_grob("注：此图展示mtcars数据集的变量关系", 
                                   hjust = 0,  # 开启左对齐
                                   x = 0.05,   # 距离左侧5%的位置
                                   gp = gpar(fontsize = 10, col = "gray50")))

调整说明 #

• 若注释仍偏右，可适当减小x的值（比如0.03）；若想完全贴左，设x=0即可
• gpar()是grid包的样式控制函数，可按需调整字体大小、颜色等细节

内容的提问来源于stack exchange，提问作者Paul Gronke