如何在R Markdown中用datasummary实现长表格自动分页并显示续表标题

你之前配置未生效的核心原因是：modelsummary包的datasummary函数默认输出适配kableExtra的表格对象，你引用的tables包的longtable配置参数不适用于该输出链路，正确配置步骤如下：

步骤1：修改YAML头部，导入longtable依赖 #

仅PDF输出需要配置longtable，调试阶段建议保留keep_tex参数方便排查问题：

---
title: "R Notebook"
output:
  pdf_document:
    extra_dependencies: ["longtable"]
    keep_tex: true
# 暂时注释其他输出格式，优先验证PDF效果
#  html_notebook: default
#  html_document:
#    df_print: paged
---

步骤2：调整datasummary调用逻辑，配置分页和续表标题 #

明确指定output = "kableExtra"，通过kableExtra的原生函数处理长表格分页、续表标题和注释：

emptycol = function(x) " "
final_4_table <- datasummary(
  # 原有变量统计公式保持不变
  mpg + cyl + disp + hp + drat + wt + qsec + vs + am + gear + carb + test2 + test3 + test4 + test5 + test6 + test7 + test8 + test9 + test10 + test11 + test12 + test13 + test14 + test15 + test16 + test17 + test18 + test19 + test20 + test21 + test22 + test23 + test24 + test25 + test26 + test27 + test28 + test29 + test30 + test31 + test32 + test33 + test34 + test35 + test36 + test37 + test38 + test39 + test40 ~ N + Mean + SD + Heading("Boxplot") * emptycol + Heading("Histogram") * emptycol, 
  data = tmp,
  output = "kableExtra" # 必须明确指定输出格式，否则分页参数不生效
) %>%
  column_spec(column = 5, image = spec_boxplot(tmp_list)) %>%
  column_spec(column = 6, image = spec_hist(tmp_list)) %>%
  # 开启longtable分页，设置首页表题
  kbl(longtable = TRUE, caption = "Title of my table.") %>%
  # 配置续页表题和重复表头
  repeat_header(
    caption_repeat = "Title of my table. (continued)",
    header_above = NULL
  ) %>%
  # 添加表注
  add_footnote(c("note2", "note1"), notation = "none")

常见异常排查 #

• 若编译时报LaTeX相关错误，优先检查YAML中extra_dependencies配置是否正确，longtable包是否成功加载
• 若表格内箱线图/直方图跨页显示异常，可调整spec_boxplot、spec_hist的height参数缩小行高，优化分页效果
• 续表标题可自定义修改，如需中文直接替换caption_repeat的内容即可

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