# Attach packages
library(groupdata2)
# Create data frame
df <- data.frame(
"some_var" = runif(25),
"grp_1" = factor(sample(1:5, size = 25, replace=TRUE)),
"grp_2" = factor(sample(1:8, size = 25, replace=TRUE)),
"grp_3" = factor(sample(LETTERS[1:3], size = 25, replace=TRUE)),
"grp_4" = factor(sample(LETTERS[1:12], size = 25, replace=TRUE))
)
# Summarize the group columns (long format)
summarize_group_cols(
data = df,
group_cols = paste0("grp_", 1:4),
long = TRUE
)
# Summarize the group columns (wide format)
summarize_group_cols(
data = df,
group_cols = paste0("grp_", 1:4),
long = FALSE
)
Run the code above in your browser using DataLab