# Sample data
df <- data.frame(
strata = factor(sample(letters[2:3], 1000, replace = TRUE)),
numeric = sample(1:100, 1000, replace = TRUE),
numeric2 = sample(1:100, 1000, replace = TRUE),
factor = factor(sample(1:5, 1000, replace = TRUE)),
logical = sample(c(TRUE,FALSE), 1000, replace = TRUE)
)
# Summarize all columns
build_table(df, .by = strata)
# Summarize & rename selected columns
build_table(df, numeric2, factor, .by = strata)
Run the code above in your browser using DataLab