如何在R Markdown中生成每行带合并注释行的PDF表格？

需求：将数据框中的Note列内容作为对应行下方的跨列合并行（类似行脚注），最终通过R Markdown导出为PDF，当前使用flextable，接受其他方案。

示例数据 #

dummy <- data.frame(ID = c("A1", "A2", "B1", "B2"),
                    Color = c("Red", "Green", "Yellow", "Red"),
                    Shape = c("Triangle", "Square", "Circle", "Square"),
                    Note = c("Test Comment One", "Another Test Comment", "", "Even More Test Comments"))

用flextable实现的方案 #

步骤1：加载依赖包 #

需要flextable和dplyr处理数据、构造表格：

library(flextable)
library(dplyr)
library(purrr)

步骤2：重构数据结构 #

把原数据的每一行拆成「数据行」+「注释行」（空注释的行直接跳过）：

table_data <- dummy %>%
  rowwise() %>%
  group_split() %>%
  map_dfr(function(row) {
    # 保留原始数据行
    data_row <- row %>% select(ID, Color, Shape, Note)
    # 仅当注释非空时生成注释行，非Note列填充空值
    if (row$Note != "") {
      note_row <- data.frame(ID = "", Color = "", Shape = "", Note = row$Note)
      return(bind_rows(data_row, note_row))
    } else {
      return(data_row)
    }
  })

步骤3：生成并格式化表格 #

构造flextable后，设置注释行跨列合并，调整样式区分数据行与注释行：

ft <- flextable(table_data) %>%
  # 隐藏原Note列表头，添加自定义表头
  delete_part(part = "header") %>%
  add_header_row(values = c("ID", "Color", "Shape", ""), top = TRUE) %>%
  # 对注释行（ID为空的行）合并前3列
  merge_at(i = which(table_data$ID == ""), j = 1:3, part = "body") %>%
  # 将注释内容移到合并后的单元格，删除原Note列
  compose(i = which(table_data$ID == ""), j = 1, 
          value = as_paragraph(table_data$Note[table_data$ID == ""])) %>%
  delete_columns("Note") %>%
  # 注释行设为斜体灰色，和数据行区分
  style(i = which(table_data$ID == ""), 
        pr_p = fp_text(italic = TRUE, color = "gray50")) %>%
  # 调整表格边框和行高
  theme_box() %>%
  hrule(rule = "exact", part = "body") %>%
  height_all(height = 0.3, part = "body")

步骤4：导出PDF #

• 在R Markdown中，将代码放入代码块，设置输出格式为pdf_document即可随文档导出；
• 也可以直接导出单独PDF文件：

  save_as_pdf(ft, path = "table_with_notes.pdf")
  

替代方案：kableExtra（适配knitr生态） #

如果偏好kableExtra，可以通过逐行添加注释并合并单元格实现：

library(knitr)
library(kableExtra)

# 初始化表格
kable_table <- kable(dummy[, -4], format = "latex", booktabs = TRUE)

# 逐行添加注释
for (i in 1:nrow(dummy)) {
  note <- dummy$Note[i]
  if (note != "") {
    kable_table <- kable_table %>%
      add_row(row = c("", "", note), italic = TRUE, color = "gray50") %>%
      merge_rows(i + i, i + i, 1:2)
  }
}

# 应用样式
kable_table %>% kable_styling(latex_options = "striped")

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