将 tbl_svysummary 中的 N 更改为每 1000 或每 10000

Question

我正在使用 gtsummary package 中的 tbl_svysummary() function 为论文创建表格。 我要在 header 列中显示的 N 以百万为单位。 我想弄清楚如何将其转换为每 1000 或每 10000。例如：

data(api, package = "survey")
tbl_svysummary_ex2 <-
  survey::svydesign(id = ~dnum, weights = ~pw, data = apiclus1, fpc = ~fpc) %>%
  tbl_svysummary(by = "both", include = c(api00, stype))

在此示例中，No 列不是 N = 1692，我希望它是 N = 1.692。 对于更大的数字，假设 N = 12,209,256，我想除以 10000 并显示 N = 1220（每 10,000）或类似的东西。

我以为我可以使用 modify_header() 或直接修改 .$table_styling$header data.frame 来这样做，但这似乎不起作用。

Answer 1

您确实可以使用modify_header() 。 下面的例子！

library(gtsummary)
packageVersion("gtsummary")
#> [1] '1.6.3'

data(api, package = "survey")
survey::svydesign(id = ~dnum, weights = ~pw, data = apiclus1, fpc = ~fpc) %>%
  tbl_svysummary(by = "both", include = c(api00, stype)) %>%
  modify_header(all_stat_cols() ~ "**{level}** N={style_number(n, scale = 0.001, digits = 3)}K") %>%
  as_kable()

特征	无N=1.692K	是N=4.502K
接口00	631 (556, 710)	654 (551, 722)
类型
乙	1,083 (64%)	3,791 (84%)
H	237 (14%)	237 (5.3%)
米	372 (22%)	474 (11%)

^{创建于 2022-12-09，使用reprex v2.0.2}