ggplot多图合并后图注覆盖图面及标题上标设置问题求助

问题分析 #

1. 图注覆盖图形：annotate_figure默认未给底部图注预留足够空间，导致图注与图形重叠。
2. 上标无法解析：普通字符串中的^不会被识别为上标，需使用plotmath表达式或markdown文本解析工具。

解决方案 #

方法1：使用PlotMath表达式+调整底部间距 #

通过expression()定义带标的图注，同时在annotate_figure中预留底部空间：

library(ggplot2)
library(ggpubr)
library(grid)

# 用PlotMath语法定义带标的图注
caption_expr <- expression(Long~arbitrary~caption~with~word^superscripted~in~the~middle.)

# 合并2行2列的图形
combined_plot <- ggarrange(HR1Plot, HR3Plot, HR12Plot, HR24Plot,
                          ncol = 2, nrow = 2,
                          labels = c("A", "B", "C", "D"))

# 添加图注并预留底部空间
annotate_figure(combined_plot,
                fig.lab = caption_expr,
                fig.lab.pos = "bottom.left",
                bottom = textGrob("", height = unit(1.5, "line")) # 预留足够高度避免覆盖
                )

方法2：使用GGText支持Markdown上标（推荐，支持长文本自动换行） #

借助ggtext包解析markdown格式的上标，同时用文本框控件控制图注位置和样式：

library(ggplot2)
library(ggpubr)
library(ggtext)

# 用Markdown语法写带标的图注
caption_md <- "Long arbitrary caption with word^superscripted^ in the middle."

# 合并图形
combined_plot <- ggarrange(HR1Plot, HR3Plot, HR12Plot, HR24Plot,
                          ncol = 2, nrow = 2,
                          labels = c("A", "B", "C", "D"))

# 添加自动换行的底部图注文本框
annotate_figure(combined_plot,
                bottom = element_textbox_simple(
                  caption_md,
                  width = unit(1, "npc"), # 宽度匹配整个图形区域
                  hjust = 0, # 左对齐
                  valign = 1,
                  padding = margin(8, 0, 0, 0), # 与图形保持间距
                  size = 10
                )
                )

方法3：使用GridExtra组合图形与图注 #

通过grid.arrange精准控制图形和图注的高度占比：

library(ggplot2)
library(ggpubr)
library(gridExtra)
library(ggtext)

# 合并图形
combined_plot <- ggarrange(HR1Plot, HR3Plot, HR12Plot, HR24Plot,
                          ncol = 2, nrow = 2,
                          labels = c("A", "B", "C", "D"))

# 创建带标的图注Grob
caption_grob <- text_grob(
  "Long arbitrary caption with word^superscripted^ in the middle.",
  hjust = 0,
  x = unit(0.02, "npc"),
  width = unit(0.96, "npc"),
  size = 10
)

# 组合图形与图注，指定高度比例
grid.arrange(
  combined_plot,
  caption_grob,
  ncol = 1,
  heights = c(9, 1) # 图形占9份，图注占1份，可按需调整
)

关键说明 #

• 图注覆盖问题：核心是给图注预留独立的空间，通过调整margin或高度比例实现，避免与图形区域重叠。
• 上标解析问题：普通字符串不支持上标语法，需使用expression()（PlotMath）或ggtext的markdown解析能力，后者更适合长文本和复杂格式。

内容的提问来源于stack exchange，提问作者Mackenzie Wilcox