使用 gtsummary::tbl_regression 以科学记数法显示 p 值？

Question

非常感谢您的帮助，以在科学符号中包含

gtsummary::tbl_regression

函数的p值。我正在使用大数据，对于 p 值 > 0.001 显示 3 个小数点以及 p 值的科学表示法<0.001。

有代表性的例子

# load packages
library(gtsummary)
theme_gtsummary_compact()

# linear model 
mod1 <- lm(mpg ~ cyl + gear, data = mtcars %>% dplyr::mutate(cyl = factor(cyl)))

# regression table 
tbl_regression(mod1)

我想知道是否有可能分别获得 6 缸、8 缸和齿轮的 2.06e-4、5.76e-8 和 0.422 p 值符号。

summary(mod1)

非常感谢！

Answer 1

您可以为 p 值格式定义自己的函数：

tbl_regression(
  mod1, 
  pvalue_fun = function(x) {
    if_else(
      is.na(x), 
      NA_character_,
      if_else(x < 0.001, format(x, digits = 3, scientific = TRUE), format(round(x, 3), scientific = F))
    )
  } 
)