为何R中kable会还原summarytools freq的cumul=FALSE设置？

问题背景 #

用summarytools::freq()时，设置cumul=FALSE能正常移除累计百分比，但把结果传给kable()后，累计百分比又会重新出现。用官方推荐的tb()函数转成tibble后，累计百分比确实消失了，但底部的Total行丢了，表头也变成了默认的变量名。

优雅解决方案 #

直接从freq对象中提取统计数据，手动补充Total行，同时自定义表头，既规避兼容问题，又保留原输出的完整信息：

library(dplyr)
library(knitr)
library(summarytools)
library(kableExtra)
set.seed(99)
d <- data.frame(group=sample(LETTERS[1:3], size=100, replace=TRUE))

# 1. 先生成freq结果并保存
freq_obj <- d |> freq(group, cumul=FALSE)

# 2. 构建Total行：直接从freq对象提取总频数，百分比固定为100%
total_row <- tibble(
  group = "Total",
  freq = freq_obj$tot_n,
  pct_valid = 100.00
)

# 3. 转换为tibble + 重命名表头 + 添加Total行 + 格式化输出
freq_obj |> 
  tb() |> 
  rename(
    "分组" = "group",
    "频数" = "freq",
    "有效百分比" = "pct_valid"
  ) |> 
  bind_rows(total_row) |> 
  kable(digits = 2, align = c("l", "r", "r")) |> 
  kable_classic(full_width = FALSE)

方案说明 #

• 用tb()转换为标准tibble，彻底避免kable对summarytools自定义对象的兼容问题，保证累计百分比不会回显
• 从freq对象的tot_n属性直接获取总频数，比手动求和更准确，也贴合原freq输出的逻辑
• 自定义表头让表格更易读，kable(digits=2)统一百分比的小数位数，align参数优化列对齐效果
• 用bind_rows()无缝拼接Total行，还原原freq输出的完整结构

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