is it possible to have an overall column when gtsummary's tbl_strata? - Stack Overflow

I would like to have an overall column in this stratified table. Is it possible using tbl_strata oder do I need to make two tables and merge them?

trial |>
    select(age, grade, stage, trt) |>
    mutate(grade = paste("Grade", grade)) |>
    tbl_strata(
        strata = grade,
        .tbl_fun =
            ~ .x |>
            tbl_summary(by = trt, missing = "no"),
        .header = "**{strata}**, N = {n}"
    )

I would like to have an overall column in this stratified table. Is it possible using tbl_strata oder do I need to make two tables and merge them?

trial |>
    select(age, grade, stage, trt) |>
    mutate(grade = paste("Grade", grade)) |>
    tbl_strata(
        strata = grade,
        .tbl_fun =
            ~ .x |>
            tbl_summary(by = trt, missing = "no"),
        .header = "**{strata}**, N = {n}"
    )

• gtsummary

Share Improve this question Follow asked Jan 22 at 20:53 ebayebay 14311 silver badge1313 bronze badges

Add a comment  | 

1 Answer 1

Sorted by: Reset to default 2

Sure, you create the stratified table as above, then merge it with an unstratified table. Example below!

library(gtsummary)

# create a table by Grade
tbl_by_grade <- trial |>
  select(age, grade, stage, trt) |>
  mutate(grade = paste("Grade", grade)) |>
  tbl_strata(
    strata = grade,
    .tbl_fun =
      ~ .x |>
      tbl_summary(by = trt, include = stage),
    .header = "**{strata}**, N = {n}"
  )

# create a table using all grades
tbl_all_grades <-
  trial |>
  tbl_summary(by = trt, include = stage) |> 
  modify_spanning_header(all_stat_cols() ~ "**All Grades**, N = {N}")

# merge the two tables together
tbl_final <- list(tbl_by_grade, tbl_all_grades) |> 
  tbl_merge(tab_spanner = FALSE)

^{Created on 2025-01-22 with reprex v2.1.1}