使用gtsummary包modify_header函数后列标签千分位逗号消失的解决方法

当你用modify_header自定义表头时，直接引用{N}会输出原始未格式化的数值，导致千分位逗号消失。要恢复这个格式，只需在引用N时调用格式化函数即可，以下是两种可行方法：

方法1：使用gtsummary自带的style_number函数 #

这个函数是gtsummary包专门用于数字格式化的工具，能和包内默认格式保持一致：

library(gtsummary)
library(tidyverse)
data(diamonds)

diamonds %>%
  select(carat) %>% 
  tbl_summary() %>%
  modify_header(stat_0 = "**Number of diamonds = {style_number(N)}**")

方法2：使用base R的format函数 #

如果习惯用base R的工具，可直接指定千分位分隔符：

diamonds %>%
  select(carat) %>% 
  tbl_summary() %>%
  modify_header(stat_0 = "**Number of diamonds = {format(N, big.mark = ',')}**")

原理说明 #

tbl_summary默认输出的表头里，N值是经过包内格式化处理的；而modify_header中直接使用{N}会提取原始整数，因此需要手动调用格式化函数为数字添加千分位逗号。

内容的提问来源于stack exchange，提问作者R. Joe