gtsummary R package:如何在打印大数字时删除逗号？

library(gtsummary)

# 创建一个示例数据框
data <- data.frame(
  var1 = c(1000, 2000, 3000),
  var2 = c(4000, 5000, 6000)
)

# 使用gtsummary创建摘要表格
tbl <- tbl_summary(data)

# 自定义数字格式，删除逗号
tbl <- tbl %>%
  modify_table_styling(columns = everything(), 
                       rows = everything(),
                       fns = list(
                         all_stat_cols() ~ 
                           fmt_number(big_mark = "", decimal_mark = ".")
                       ))

# 打印摘要表格
tbl