使用annotate_figure为ggarrange组合图添加标题无法居中求助

问题排查点及解决方案 #

核心原因推测 #

你在控制台预览正常、仅导出EMF时偏移，且可复现示例无问题，大概率是两类原因：子图边距不一致导致组合绘图区偏移，或是text_grob定位参数缺省、EMF设备渲染适配问题。

可落地解决方案 #

• 显式指定标题定位参数
  在text_grob中补充x = 0.5和hjust = 0.5参数，强制锚定到顶部区域水平中心：

  Panelplot_Ring <- annotate_figure(Panelplot_Ring, 
                                    left = text_grob("Ring width [mm]", rot = 90), 
                                    top = text_grob("Tree-ring width", color = "black", face = "bold", size = 14, x = 0.5, hjust = 0.5))
  

• 统一所有子图的边距
  给R1-R5每个ggplot对象都添加统一的边距设置，避免子图侧边留白不一致顶偏绘图区：

  # 给每个子图加统一边距，单位可根据需求调整
  R1 <- R1 + theme(plot.margin = unit(c(3,1,3,1), "pt"))
  # 依次给R2-R5执行相同操作
  

• 调整EMF导出参数或更换导出路径
  若上述操作后仍偏移，可先导出为PNG验证是否为EMF设备问题：
  1. 临时把emfPlusFont = TRUE改为FALSE测试渲染效果
  2. 若PNG导出正常、EMF仍偏移，可先用svglite导出SVG格式，再通过矢量图工具转成EMF
• 替换为更稳定的拼包方案
  可以改用patchwork包拼接图表，标题定位逻辑更稳定，参考代码如下：

  library(patchwork)
  Panelplot_Ring <- R1 / R2 / R3 / R4 / R5 +
    plot_layout(nrow = 5, guides = "collect") +
    plot_annotation(
      title = "Tree-ring width",
      left = "Ring width [mm]"
    ) &
    theme(
      legend.position = "bottom",
      plot.title = element_text(hjust = 0.5, face = "bold", size = 14)
    )
  

内容的提问来源于stack exchange，提问作者T.Tree