select_all_levels | R Documentation |
Add Combination Levels to split
select_all_levels
add_combo_levels(combosdf, trim = FALSE, first = FALSE, keep_levels = NULL)
combosdf |
|
trim |
logical(1). Should splits corresponding with 0 observations be kept when tabulating. |
first |
logical(1). Should the created split level be placed first in
the levels ( |
keep_levels |
character or NULL. If non-NULL, the levels to retain across both combination and individual levels. |
An object of class AllLevelsSentinel
of length 0.
a closure suitable for use as a splitting function (splfun
)
when creating a table layout
Analysis or summary functions for which the order matters should never be used within the tabulation framework.
library(tibble)
combodf <- tribble(
~valname, ~label, ~levelcombo, ~exargs,
"A_B", "Arms A+B", c("A: Drug X", "B: Placebo"), list(),
"A_C", "Arms A+C", c("A: Drug X", "C: Combination"), list())
lyt <- basic_table(show_colcounts = TRUE) %>%
split_cols_by("ARM", split_fun = add_combo_levels(combodf)) %>%
analyze("AGE")
tbl <- build_table(lyt, DM)
tbl
lyt1 <- basic_table(show_colcounts = TRUE) %>%
split_cols_by("ARM",
split_fun = add_combo_levels(combodf,
keep_levels = c("A_B",
"A_C"))) %>%
analyze("AGE")
tbl1 <- build_table(lyt1, DM)
tbl1
smallerDM <- droplevels(subset(DM, SEX %in% c("M", "F") &
grepl("^(A|B)", ARM)))
lyt2 <- basic_table(show_colcounts = TRUE) %>%
split_cols_by("ARM", split_fun = add_combo_levels(combodf[1,])) %>%
split_cols_by("SEX",
split_fun = add_overall_level("SEX_ALL", "All Genders")) %>%
analyze("AGE")
lyt3 <- basic_table(show_colcounts = TRUE) %>%
split_cols_by("ARM", split_fun = add_combo_levels(combodf)) %>%
split_rows_by("SEX",
split_fun = add_overall_level("SEX_ALL", "All Genders")) %>%
summarize_row_groups() %>%
analyze("AGE")
tbl3 <- build_table(lyt3, smallerDM)
tbl3
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.