r - gtsummary R包：打印大数时如何删除逗号？

Question

使用tbl_summary()gtsummary R 包创建表时，默认设置将为大数字打印逗号。是否可以删除这些逗号？

例如，假设我想计算以下具有较大比例的变量的中位数和 IQR：

set.seed(123)
data=data.frame(X=rnorm(100,mean=50000,sd=10000))
tbl_summary(data)

我想在不使用逗号的情况下打印大数字，尽管仍然使用逗号分隔括号内的第一个和第三个分位数统计信息。所以输出应该看起来像：50618 (45061, 56918)。这可能吗？

谢谢

Answer 1

是的，你可以控制它！

打印 gtsummary 表中所有数字的函数是（本质上是gtsummary 选项style_number()的副本，但可自定义）。scales::number()我们可以style_number(big.mark=)使用 gtsummary 主题设置默认参数（更多信息在这里http://www.danieldsjoberg.com/gtsummary/articles/themes.html）。

下面的代码将设置大标记分隔符""而不是默认逗号。

list("style_number-arg:big.mark" = "") %>%
  set_gtsummary_theme()

ggplot2::diamonds %>%
  select(cut) %>%
  tbl_summary()

但是，该代码很难记住。更改大标记和小数点的最常见的地方是当表格打印成不同的语言时（例如，它们可能使用逗号作为小数分隔符和句点作为大标记分隔符）。因此，这是内置在语言主题中的。下面的代码将语言设置为英语（已经是默认语言），并删除了逗号作为大标记分隔符。

theme_gtsummary_language("en", big.mark = "")

ggplot2::diamonds %>%
  select(cut) %>%
  tbl_summary()

快乐编码！