如何将gtsummary包tbl_svysummary的表头N转换为千/万单位？

核心思路 #

直接修改tbl_svysummary对象的table_styling$header数据框，提取表头中的N数值进行单位换算后重新拼接文本，就能实现N值的单位转换。

完整实现步骤 #

1. 生成基础表格 #

先运行原始代码创建表格：

data(api, package = "survey")
tbl_svysummary_ex2 <-
  survey::svydesign(id = ~dnum, weights = ~pw, data = apiclus1, fpc = ~fpc) %>%
  tbl_svysummary(by = "both", include = c(api00, stype))

2. 定义单位转换函数 #

写一个通用函数处理表头文本，支持自定义换算除数和单位说明：

convert_n_unit <- function(header_label, divisor = 1000, unit_text = "每千") {
  # 提取N后的数字并转成数值
  n_value <- stringr::str_extract(header_label, "(?<=N=)\\d+") %>% as.numeric()
  # 计算转换后的值，可按需调整小数位数
  n_converted <- round(n_value / divisor, 3)
  # 替换原N值为转换后的内容
  stringr::str_replace(header_label, "N=\\d+", glue::glue("N={n_converted} ({unit_text})"))
}

3. 应用修改到表格 #

对所有包含N值的表头执行转换：

# 安装依赖包（如果未安装）
# install.packages(c("stringr", "glue"))

tbl_svysummary_ex2$table_styling$header <- tbl_svysummary_ex2$table_styling$header %>%
  dplyr::mutate(label = dplyr::case_when(
    stringr::str_detect(label, "N=") ~ convert_n_unit(label, divisor = 1000, unit_text = "每千"),
    TRUE ~ label
  ))

# 查看修改后的表格
tbl_svysummary_ex2

4. 超大数值转每万单位示例 #

如果要处理如12209256这类百万级数值，只需调整函数参数：

tbl_svysummary_ex2$table_styling$header <- tbl_svysummary_ex2$table_styling$header %>%
  dplyr::mutate(label = dplyr::case_when(
    stringr::str_detect(label, "N=") ~ convert_n_unit(label, divisor = 10000, unit_text = "每万"),
    TRUE ~ label
  ))

注意事项 #

• 如果不需要小数，把round()的第二个参数改为0即可（比如转每万时显示整数）
• 该方法仅修改表头的N值显示，不会影响表格内的统计计算结果

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