tbl_summary：如何将 t.test 列设置为小数点后两位 (gtsummary)

Question

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

我在 tbl_summary() 行中尝试了几种不同的方法，但它似乎并没有改变 t.test 列。 尝试添加style_fun = everything() ~ purrr::partial(style_number, digits = 2)但这导致了以下错误消息： ... must be empty. ✖ Problematic argument: • style_fun = everything() ~ purrr::partial(style_number, digits = 2) must be empty. ✖ Problematic argument: • 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需要包装在 function 中。

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()