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

gtsummary R package是一个用于生成统计摘要表格的R包。它提供了一种简单且灵活的方式来创建高质量的统计摘要表格，以便更好地展示和解释数据分析结果。

在gtsummary中，要删除打印大数字时的逗号，可以使用fmt_number()函数来自定义数字的格式。该函数可以接受多个参数，其中包括decimal_mark和big_mark，用于指定小数点和千位分隔符的符号。

以下是一个示例代码，演示如何在gtsummary中删除打印大数字时的逗号：

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

在上述代码中，我们首先加载了gtsummary包，并创建了一个示例数据框。然后，使用tbl_summary()函数创建了一个摘要表格对象。接下来，使用modify_table_styling()函数来修改表格的样式，通过fmt_number()函数来自定义数字的格式。在这里，我们将big_mark参数设置为空字符串，以删除千位分隔符的逗号。最后，使用tbl对象来打印摘要表格。

这样，当你使用gtsummary打印大数字时，就会自动删除逗号，以更好地呈现数据。