使用officer导出多表格至DOCX时副标题位置异常问题

使用officer包将带主标题+副标题的多个表格导出到同一DOCX文档时，仅第一个表格的副标题位于表格上方，后续所有表格的副标题均出现在表格下方。该问题在使用officer::body_add_table和flextable::body_add_flextable时均存在，但导出多个ggplot图表时功能完全正常。

原复现代码如下：

library(officer)

to_docx <- function(docx, value, title, subtitle) {
  # Add table or plot
  if (inherits(value, "ggplot")) {
    pre_label <- seq_id <- "Figure"
    docx <- body_add_gg(docx, value = value)  
  } else {
    pre_label <- seq_id <- "Table"
    docx <- body_add_table(docx, value = value, align_table = "center")  
  }
  
  # Add title above table
  run_num <- run_autonum(seq_id = seq_id, pre_label = pre_label)
  title <- block_caption(title, style = "Image Caption", autonum = run_num)
  docx <- body_add_caption(docx, title, pos = "before")
  # Add subtitle above table
  subtitle <- fpar(ftext(subtitle, prop = fp_text(color = "red")))
  docx <- body_add_fpar(docx, subtitle, style = "Normal", pos = "after")
  docx <- cursor_end(docx)
  # Add a page breaks
  docx <- body_add_break(docx, pos = "after")
  
  invisible(docx)
}

docx <- read_docx()
tab <- head(mtcars[1:3])

to_docx(docx, tab, "Title 1", "Subtitle 1")
to_docx(docx, tab, "Title 2", "Subtitle 2")

fn <- tempfile(fileext = ".docx")
print(docx, fn)

show <- FALSE # Setting to TRUE will open the docx
if (show) fs::file_show(fn)

问题根源 #

原代码先添加表格/图表，再通过pos="before"插入标题、pos="after"插入副标题，但表格在DOCX中的锚定逻辑和ggplot生成的图片有差异：

• 对于ggplot图片，body_add_gg添加后，pos="before"插入的标题会正确放在图片前，此时光标处于标题和图片之间，副标题用pos="after"会自动插入到标题和图片中间。
• 对于表格，body_add_table添加后，pos="before"插入标题的逻辑会导致后续副标题的定位偏移，多次调用时该问题会持续触发，最终副标题跑到表格下方。

解决方案 #

调整元素添加顺序，先加标题、再加副标题、最后加表格/图表，完全规避pos参数带来的位置混乱：

library(officer)

to_docx <- function(docx, value, title, subtitle) {
  # 先判断类型，定义编号前缀
  if (inherits(value, "ggplot")) {
    pre_label <- seq_id <- "Figure"
  } else {
    pre_label <- seq_id <- "Table"
  }
  
  # 1. 添加带自动编号的主标题
  run_num <- run_autonum(seq_id = seq_id, pre_label = pre_label)
  title_caption <- block_caption(title, style = "Image Caption", autonum = run_num)
  docx <- body_add_caption(docx, title_caption)
  
  # 2. 添加副标题
  subtitle_fpar <- fpar(ftext(subtitle, prop = fp_text(color = "red")))
  docx <- body_add_fpar(docx, subtitle_fpar, style = "Normal")
  
  # 3. 添加表格或图表
  if (inherits(value, "ggplot")) {
    docx <- body_add_gg(docx, value = value)  
  } else {
    docx <- body_add_table(docx, value = value, align_table = "center")  
  }
  
  # 添加分页符
  docx <- body_add_break(docx)
  
  invisible(docx)
}

# 测试表格导出
docx <- read_docx()
tab <- head(mtcars[1:3])

to_docx(docx, tab, "Title 1", "Subtitle 1")
to_docx(docx, tab, "Title 2", "Subtitle 2")

fn <- tempfile(fileext = ".docx")
print(docx, fn)

show <- FALSE # 设置为TRUE可打开文档
if (show) fs::file_show(fn)

改动说明 #

• 彻底调整添加顺序，按主标题→副标题→表格/图表的逻辑依次添加，确保元素位置完全符合预期。
• 移除cursor_end手动调整光标的代码，按顺序添加时光标会自动定位到最后元素之后，无需额外操作。
• 简化分页符添加逻辑，直接使用默认的pos="after"参数，无需显式声明。

测试后，多个表格的主副标题都会正确显示在表格上方，和图表的展示效果完全一致。

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