如何在Rmd文件的HTML输出中显示数据框的行数和分组数？

问题背景 #

在RStudio的.Rmd代码块中执行分组操作后，控制台会显示包含行数、列数和分组信息的Tibble头部：

A tibble: 789542 x 8 Groups: var[8]

但使用html_document的df_print参数（包括paged、tibble、kable等选项）时，这些分组元信息无法保留在最终的HTML文档中；尝试DT::datatable()也只能显示行数，无法展示分组数。不想通过nrow()和n_groups()手动输出信息，也不愿为小项目切换到Quarto或blogdown。

解决方案 #

方法1：自定义全局表格打印函数 #

在文档的setup代码块中定义一个自定义打印函数，捕获Tibble默认输出的元信息并单独输出，再打印表格：

library(dplyr)

print_grouped_tibble <- function(x, ...) {
  # 捕获默认打印的输出内容
  capture_text <- capture.output(print(x, ...))
  # 提取开头的元信息行
  meta_line <- capture_text[1]
  # 打印元信息
  cat(meta_line, "\n\n")
  # 输出表格（可通过n参数控制显示行数）
  print(x, ..., n = 10)
}

# 设置knitr使用自定义打印函数
knitr::opts_chunk$set(df.print = print_grouped_tibble)

之后所有代码块中的分组Tibble都会先输出元信息，再显示表格内容。

方法2：为grouped_df类自定义knit_print方法 #

针对grouped_df类型定义专属的knit_print方法，自动生成包含元信息的HTML内容：

library(knitr)
library(dplyr)

knit_print.grouped_df <- function(x, ...) {
  # 构建元信息文本
  group_name <- paste(names(group_vars(x)), collapse = ", ")
  meta_text <- sprintf("A tibble: %d x %d Groups: %s[%d]",
                       nrow(x), ncol(x), group_name, n_groups(x))
  # 将元信息转为HTML段落
  meta_html <- paste0("<p style='color: #666; font-size: 0.9em;'>", meta_text, "</p>")
  # 获取表格的HTML输出
  table_html <- knit_print(as_tibble(x), ...)
  # 组合元信息和表格并输出
  asis_output(paste0(meta_html, table_html))
}

这个方法会自动识别分组数据框，无需额外设置，元信息会以灰色小字显示在表格上方，更贴合HTML文档的样式。

注意事项 #

• 如果需要分页显示表格，可以在自定义函数中结合paged_table，调整输出逻辑；
• 确保自定义函数代码放在文档开头的setup代码块中，作用于整个RMarkdown文档。

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