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

Question

非常感谢您的帮助，将 p 值 用于 科学记数法 中的 gtsummary::tbl_regression 函数。我正在使用大数据，对于 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))
    )
  } 
)

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

Showing p-values in scientific notation with gtsummary::tbl_regression?

regression

gtsummary