gtsummary (version 1.2.0)

tbl_stack: Stacks two or more gtsummary regression objects

Description

Assists in patching together more complex tables. tbl_stack() appends two or more tbl_regression or tbl_merge objects. gt attributes from the first regression object are utilized for output table. If combining tbl_stack() and tbl_merge(), merge first then stack, or stack first and then merge.

Usage

tbl_stack(tbls)

Arguments

tbls

List of gtsummary regression objects

Value

A tbl_stack object

Example Output

Example 1

Example 2

See Also

tbl_merge

Other tbl_regression tools: add_global_p.tbl_regression, add_nevent.tbl_regression, bold_italicize_labels_levels, bold_p.tbl_regression, bold_p.tbl_stack, inline_text.tbl_regression, modify_header, sort_p.tbl_regression, tbl_merge, tbl_regression

Other tbl_uvregression tools: add_global_p.tbl_uvregression, add_nevent.tbl_uvregression, add_q.tbl_uvregression, bold_italicize_labels_levels, bold_p.tbl_stack, bold_p.tbl_uvregression, inline_text.tbl_uvregression, modify_header, sort_p.tbl_uvregression, tbl_merge, tbl_uvregression

Examples

# NOT RUN {
# Example 1 - stacking two tbl_regression objects
t1 <-
  glm(response ~ trt, trial, family = binomial) %>%
  tbl_regression(
    exponentiate = TRUE,
    label = list(vars(trt) ~ "Treatment (unadjusted)")
  )

t2 <-
  glm(response ~ trt + grade + stage + marker, trial, family = binomial) %>%
  tbl_regression(
    include = "trt",
    exponentiate = TRUE,
    label = list(vars(trt) ~ "Treatment (adjusted)")
  )

tbl_stack_ex1 <- tbl_stack(list(t1, t2))

# Example 2 - stacking two tbl_merge objects
library(survival)
t3 <-
  coxph(Surv(ttdeath, death) ~ trt, trial) %>%
  tbl_regression(
    exponentiate = TRUE,
    label = list(vars(trt) ~ "Treatment (unadjusted)")
  )

t4 <-
  coxph(Surv(ttdeath, death) ~ trt + grade + stage + marker, trial) %>%
  tbl_regression(
    include = "trt",
    exponentiate = TRUE,
    label = list(vars(trt) ~ "Treatment (adjusted)")
  )


# first merging, then stacking
row1 <- tbl_merge(list(t1, t3), tab_spanner = c("Tumor Response", "Death"))
row2 <- tbl_merge(list(t2, t4))
tbl_stack_ex2 <-
  tbl_stack(list(row1, row2))
# }