我试图弄清楚如何在使用 gtsummary 时添加自定义选项——例如,pvalues、标题等的星号。
这是一个使用基本 mtcars 数据的可重现示例,以防它更有效......
library(tidyverse)
library(gtsummary)
#> Warning: package 'gtsummary' was built under R version 4.0.3
#> #Uighur
r1 <- lm(mpg ~ wt + cyl, data = mtcars) %>%
tbl_regression(exponentiate = TRUE)
r2 <- lm(hp ~ wt + cyl, data = mtcars) %>%
tbl_regression(exponentiate = TRUE)
r3 <- lm(qsec ~ wt + cyl, data = mtcars) %>%
tbl_regression(exponentiate = TRUE)
tbl_merge(list(r1, r2, r3),
tab_spanner = c("**MPG**", "**Horsepower**", "**Seconds**"))
最佳答案
您可以使用 add_significance_stars()
功能为您的估计添加星星。要添加标题和其他格式,请使用 as_gt()
将 gtsummary 对象转换为 gt。函数并使用 gt 函数添加它们。
下面举例。
library(gtsummary)
library(tidyverse)
packageVersion("gtsummary")
#> [1] '1.4.0'
# create a tibble with one row per model
tbl <-
tibble(outcome = c("mpg", "hp", "qsec")) %>%
rowwise() %>%
mutate(
tbl =
lm(str_glue("{outcome} ~ wt + cyl"), data = mtcars) %>%
tbl_regression() %>%
add_significance_stars(
hide_se = TRUE,
hide_ci = FALSE
) %>%
list()
) %>%
# pull tbl_regression() objects into single merged table
pull(tbl) %>%
tbl_merge(tab_spanner = c("**MPG**", "**Horsepower**", "**Seconds**")) %>%
# add table captions
as_gt() %>%
gt::tab_header(title = "Table 1. Car Regression Model",
subtitle = "Highly Confidential")
创建于 2021-04-15 由 reprex package (v2.0.0)
关于r - 向 gtsummary 表添加自定义选项,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/64528848/