Summarize curatedMetagenomicData studies in one giant Epi Table 1

cmd_giant_table.R

library(curatedMetagenomicData)
library(dplyr)
library(table1)

dat <- sampleMetadata |>
  select(study_name, body_site, study_condition, age_category, age, BMI)

# labeling is optional, just to make the table nicer
label(dat$body_site) <- "Body Site"
label(dat$study_condition) <- "Study Condition"
label(dat$age_category) <- "Age Category"
label(dat$age) <- "Age"
label(dat$BMI) <- "BMI"
units(dat$age) <- "years"

table1(~ BMI + age_category + body_site + study_condition + age | study_name, data = dat,
       transpose = FALSE,
       dat = sampleMetadata)

Output at https://rpubs.com/lwaldron/cmd_gianttable1