R Markdown中DT::datatable组件下方多余空白如何去除

问题根因 #

短表（行数<5）底部多余留白是DT组件默认按初始pageLength（默认值10）预留表格容器高度导致的。你之前配置的pageLength = 5、lengthMenu参数未生效，是因为没有把这些参数写入datatable()的options列表内，fillContainer = FALSE本身就是组件默认值，自然无法产生调整效果。
另外你在自定义函数里用cat()拼接knit_print()输出内容的方式，容易出现HTML标签错位，也可能额外产生不必要的留白。

修复方案 #

1. 修正DT配置参数

把分页相关参数正确写入options列表，同时开启滚动折叠，让容器高度随实际表格行数自适应：

table_row_num <- nrow(model_obj$data)
model_obj$data  %>%
  DT::datatable(
    extensions = 'Buttons',
    options = list(
      dom = 'Blfrtip',
      buttons = c('excel'),
      # 默认显示行数和实际数据行数一致，不预留多余高度
      pageLength = table_row_num,
      # 长度下拉菜单最小值匹配当前表行数
      lengthMenu = c(table_row_num, 5, 10, 15, 20),
      # 行数不足时自动收缩容器高度
      scrollCollapse = TRUE,
      scrollY = NULL
    ),
    fillContainer = FALSE,
    height = "auto"
  ) %>%
  knitr::knit_print() %>%
  cat()

2. 全局CSS兜底（可选，一劳永逸适配所有表格）

如果需要批量生成大量表格，不想逐表调整参数，可以在Rmd文档YAML头之后加一段CSS，强制覆盖DT容器的默认最小高度限制：

/* 覆盖DT默认最小高度，消除短表底部留白 */
.dataTables_wrapper {
  height: auto !important;
  min-height: 0 !important;
}
.dataTables_scroll, .dataTables_scrollBody {
  min-height: unset !important;
  height: auto !important;
}

3. 优化函数内输出逻辑

自定义函数内批量混合输出表格、文本、ggplot对象时，不建议用cat()手动拼接内容，容易导致HTML标签嵌套错误产生额外空白。可以把所有输出对象存入列表，用htmltools::tagList()包裹后统一输出，稳定性更高：

library(htmltools)
output_content <- tagList(
  # 表格
  DT::datatable(
    model_obj$data,
    extensions = 'Buttons',
    options = list(
      dom = 'Blfrtip',
      buttons = c('excel'),
      pageLength = nrow(model_obj$data),
      lengthMenu = c(nrow(model_obj$data), 5, 10, 15, 20),
      scrollCollapse = TRUE
    ),
    height = "auto"
  ),
  # 四级标题
  tags$h4("Title"),
  # ggplot图表
  model_obj$plot1
)

print(output_content)

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