删除 {gtsummary} 中小数点前的 0

Question

在心理学领域，当不可能超过 1.0 的值时，习惯上将小数点前的 0 去掉。

因此，我想更改 p 值，例如：

p = 0.01 到 p = .01

此外，在使用tbl_regression 制作回归表时， 我想将标准化的 beta 系数更改为，例如：

beta = -0.43 到 beta = -.43（在回归表中）

或者，R^2：

R^2 = 0.234 到 R^2 = .234（通过add_glance_statistics）

有没有办法做到这一点？我查看了样式工具，但似乎没有这样的配置。

Answer 1

您可以使用modify_fmt_fun 来修改表格的格式。在这里，我使用来自gtsummary 的trial 数据来展示如何删除p.value 的前导0。在应用 sub 删除前导 0 后，它为其他行返回 NA。所以，我使用gsub 将表格的 NA 改回空白。

library(gtsummary)
library(tidyverse)

trial[c("age", "grade", "trt")] %>%
  tbl_summary(by = trt) %>%
  add_p() %>%
  modify_fmt_fun(update = p.value ~ function(val) {
    as.character(sub("^(-?)0.", "\\1.", sprintf("%.2f", val))) %>%
      gsub("NA", "", .)
  })

输出

如果你需要对其他人做同样的事情，那么你可以添加额外的参数。在这里，我将 beta（即估计）添加到 modify_fmt_fun。

lm(age ~ marker + grade, trial) %>%
  tbl_regression() %>%
  add_glance_source_note(
    label = list(df  ~ "Degrees of Freedom", sigma ~ "\U03C3"),
    fmt_fun = df ~ style_number,
    include = c(r.squared, AIC, sigma, df)
  ) %>%
  modify_fmt_fun(update = c(estimate, p.value) ~ function(val) {
    as.character(sub("^(-?)0.", "\\1.", sprintf("%.2f", val))) %>%
      gsub("NA", "", .)
  })

输出