r - tbl_summary : How to set t. 测试列保留 2 位小数 (gtsummary)

Question

我对 tbl_summary 还很陌生，正在尝试将 t.test 列设置为小数点后两位。

我在 tbl_summary() 行中尝试了几种不同的方法，但它似乎没有改变 t.test 列。尝试添加 style_fun = everything() ~ purrr::partial(style_number,digits = 2) 但这导致出现以下错误消息: ... 必须是空的。 ✖ 有问题的参数: • style_fun = everything() ~ purrr::partial(style_number,digits = 2)。关于如何改变它有什么想法吗？

此外，是否可以更改 CI 列，使其读取为conf.low - conf.high，而不是conf.low、conf.high。 谢谢!

我在这里使用了 mtcars 示例以使其更容易。

car <- mtcars[,c("am", "mpg", "qsec", "disp")]

car %>%
  dplyr::select(am, mpg, qsec, disp) %>%
  tbl_summary(
    by="am",
    statistic = list(all_continuous() ~ "{mean} (±{sd})"),
    digits = all_continuous() ~ 2
  ) %>%
  add_p(test = all_continuous() ~ "t.test") %>%
  modify_header(statistic ~ "**Test Statistic**") %>%
  modify_fmt_fun(statistic ~ style_number) %>%
  add_ci()

Answer 1

您关于使用 modify_fmt_fun 的说法是正确的，但 style_number 需要包装在函数中。

library(gtsummary)

car <- mtcars[,c("am", "mpg", "qsec", "disp")]

car %>%
  dplyr::select(am, mpg, qsec, disp) %>%
  tbl_summary(
    by="am",
    statistic = list(all_continuous() ~ "{mean} (±{sd})"),
    digits = all_continuous() ~ 2
  ) %>%
  add_p(test = all_continuous() ~ "t.test") %>%
  modify_header(statistic ~ "**Test Statistic**") %>%
  modify_fmt_fun(update = statistic ~ function(x) style_number(x, digits = 2)) %>%
  add_ci()