dta <- data.frame(
ARM = rep(LETTERS[1:3], rep(6, 3)),
AVISIT = rep(paste0("V", 1:3), 6),
AVAL = c(9:1, rep(NA, 9))
)
lyt <- basic_table() %>%
split_cols_by(var = "ARM") %>%
split_rows_by(var = "AVISIT") %>%
analyze_vars(vars = "AVAL")
tbl <- build_table(lyt, df = dta)
rtable2gg(tbl)
rtable2gg(tbl, fontsize = 15, colwidths = c(2, 1, 1, 1))
Run the code above in your browser using DataLab