向 gtsummary 表添加自定义选项答案

【问题标题】：Adding customized options to gtsummary tables向 gtsummary 表添加自定义选项
【发布时间】：2021-02-08 05:18:53
【问题描述】：

我正在尝试弄清楚如何在使用 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**"))

【问题讨论】：

标签： r gtsummary

【解决方案1】：

您可以使用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")

^{由reprex package (v2.0.0) 于 2021-04-15 创建}

【讨论】：