如何自定义R包summarytools中freq()与descr()的输出标题？

针对你提出的需求，这里提供两种实用方法，无需修改包源码即可实现自定义标题、移除默认冗余信息的效果，兼容R Markdown环境：

方法1：文本输出场景（适配PDF/Word） #

通过捕获函数输出的文本内容，手动添加自定义标题，同时利用headings=FALSE移除默认标题信息：

library(summarytools)
toy <- data.frame(x=c("a","b","c","a","b","a"))

# 生成无默认标题的频率表对象
freq_result <- freq(toy$x, cumul = FALSE, headings = FALSE)

# 捕获输出文本并添加自定义标题
output_text <- capture.output(print(freq_result))
custom_output <- c("Letter Groups", "", output_text)

# 在R Markdown中输出
cat(paste(custom_output, collapse = "\n"))

针对descr()函数，逻辑完全一致：

# 示例：descr()自定义标题
descr_result <- descr(toy, headings = FALSE)
descr_text <- capture.output(print(descr_result))
custom_descr <- c("变量描述统计", "", descr_text)
cat(paste(custom_descr, collapse = "\n"))

方法2：HTML输出场景（适配网页版R Markdown） #

利用htmltools包组合自定义标题和函数输出的HTML内容，可灵活控制标题样式，实现视觉无缝衔接：

library(summarytools)
library(htmltools)
toy <- data.frame(x=c("a","b","c","a","b","a"))

# 生成无默认标题的HTML格式频率表
freq_html <- print(freq(toy$x, cumul = FALSE, headings = FALSE, method = "render"))

# 组合自定义标题与频率表（可通过style调整样式）
custom_html <- tagList(
  tags$div("Letter Groups", style = "font-size: 1.2em; font-weight: bold; margin-bottom: 8px;"),
  freq_html
)

# 输出组合后的内容
custom_html

核心效果说明 #

• 自定义变量名称：通过添加的文本/HTML元素实现（如示例中的"Letter Groups"）
• 移除默认信息：headings=FALSE参数会自动去掉默认的函数类型、变量名、变量类型等冗余内容
• R Markdown适配：两种方法分别对应不同输出格式，确保渲染后视觉效果符合预期

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