Assists in patching together more complex tables. tbl_stack() appends two or more tbl_regression, tbl_summary, tbl_svysummary, or tbl_merge objects. Column attributes, including number formatting and column footnotes, are retained from the first passed gtsummary object.

tbl_stack(tbls, group_header = NULL)

Arguments

tbls

List of gtsummary objects

group_header

Character vector with table headers where length matches the length of tbls=

Value

A tbl_stack object

Example Output

Example 1

Example 2

See also

Author

Daniel D. Sjoberg

Examples

# Example 1 ---------------------------------- # stacking two tbl_regression objects t1 <- glm(response ~ trt, trial, family = binomial) %>% tbl_regression( exponentiate = TRUE, label = list(trt ~ "Treatment (unadjusted)") ) t2 <- glm(response ~ trt + grade + stage + marker, trial, family = binomial) %>% tbl_regression( include = "trt", exponentiate = TRUE, label = list(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(trt ~ "Treatment (unadjusted)") ) t4 <- coxph(Surv(ttdeath, death) ~ trt + grade + stage + marker, trial) %>% tbl_regression( include = "trt", exponentiate = TRUE, label = list(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), group_header = c("Unadjusted Analysis", "Adjusted Analysis"))