r - gtsummary R 包 : how to remove commas when printing large numbers?

Question

使用 tbl_summary() 创建表时从 gtsummary R 包中，默认设置将为大数字打印逗号。是否可以删除这些逗号？
例如，假设我想计算以下具有大尺度的变量的中位数和 IQR:

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

我想在不使用逗号的情况下打印大数字，尽管仍然使用逗号分隔括号内的第 1 和第 3 分位数统计数据。所以输出应该是这样的:50618 (45061, 56918)。这可能吗？
谢谢

Answer 1

是的，你可以控制它!
打印 gtsummary 表中所有数字的函数是 style_number() (本质上是 scales::number() 的副本，但可以使用 gtsummary 选项进行自定义)。我们可以设置默认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()

快乐编码!