如何通过RMarkdown生成带标题的Word多面板并排图形？

可行，不需要在代码块外手动加标题，用officer可以实现保留并排布局且标题正常显示的效果，核心是手动控制图形、标题的排版逻辑，而非依赖RMarkdown自动的图标题机制。以下是具体实现方法：

方法1：用officer手动构建带标题的并排布局 #

直接通过officer的文档对象操作，精准控制每个子图的标题和并排排列：

library(officer)
library(ggplot2)
library(magrittr)

# 创建空的Word文档对象
doc <- read_docx()

# 生成两个示例图形
p1 <- ggplot(mtcars, aes(mpg, disp)) + geom_point() + theme_bw()
p2 <- ggplot(mtcars, aes(hp, qsec)) + geom_point() + theme_bw()

# 添加整体标题（可选，根据需求调整样式）
doc <- doc %>% 
  body_add_par("车辆性能指标对比", style = "Heading 1") %>%
  # 构建两列布局，每列包含子图标题+图形
  body_add_columns(
    content = list(
      block_list(
        body_add_par("图1：油耗与发动机排量的关系", style = "Caption"),
        body_add_gg(p1, width = 4, height = 3)
      ),
      block_list(
        body_add_par("图2：马力与加速时间的关系", style = "Caption"),
        body_add_gg(p2, width = 4, height = 3)
      )
    ),
    width = c(4, 4),  # 控制每列宽度
    space = 0.5       # 列之间的间距
  )

# 保存文档
print(doc, target = "并排带标题图形.docx")

把这段代码放在RMarkdown的代码块中（设置echo=FALSE避免显示代码），生成的Word文档会呈现并排布局，且每个子图都有独立标题。

为什么之前的方法失效？ #

• 使用officer时，RMarkdown默认将同代码块的多个图形视为单一输出，不会自动为每个图形添加标题，必须手动通过body_add_par指定标题并关联到对应图形。
• 使用officedown时，若未设置fig.subcap和fig.ncol参数，会默认将每个图形拆分为独立块并重复主标题，调整参数可改善，但officer的手动布局更灵活可控。

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