繁体   English   中英

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

[英]tbl_summary: How to set t.test column to 2 decimal places (gtsummary)

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

您使用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() 

在此处输入图像描述

①如果本文未解决您的问题,请点击查看与本文相关的问题
②如果本文未解决您的问题,请向程序员专用AI小助手提问
暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM