Data Analysis in R

Creating Report-Ready Tables in R

Code Example 1

30-45 minutes Applied Step 7 of 9

Code

Code Example 1

7 / 9

Code

Code Example 1

library(gtsummary)

baseline_table <- prepared_data |>
  select(treatment_arm, age_years_derived, sex_label, site, baseline_severity) |>
  tbl_summary(
    by = treatment_arm,
    missing = "ifany",
    statistic = list(
      all_continuous() ~ "{median} ({p25}, {p75})",
      all_categorical() ~ "{n} ({p}%)"
    ),
    label = list(
      age_years_derived ~ "Age, years",
      sex_label ~ "Sex",
      site ~ "Site",
      baseline_severity ~ "Baseline severity"
    )
  ) |>
  add_overall()

baseline_table