# NOT RUN {
# Example 1 ----------------------------------
tbl_summary_ex1 <-
trial %>%
select(age, grade, response) %>%
tbl_summary()
# Example 2 ----------------------------------
tbl_summary_ex2 <-
trial %>%
select(age, grade, response, trt) %>%
tbl_summary(
by = trt,
label = list(age ~ "Patient Age"),
statistic = list(all_continuous() ~ "{mean} ({sd})"),
digits = list(age ~ c(0, 1))
)
# Example 3 ----------------------------------
# for convenience, you can also pass named lists to any arguments
# that accept formulas (e.g label, digits, etc.)
tbl_summary_ex3 <-
trial %>%
select(age, trt) %>%
tbl_summary(
by = trt,
label = list(age = "Patient Age")
)
# Example 4 ----------------------------------
# multi-line summaries of continuous data with type 'continuous2'
tbl_summary_ex4 <-
trial %>%
select(age, marker) %>%
tbl_summary(
type = all_continuous() ~ "continuous2",
statistic = all_continuous() ~ c("{median} ({p25}, {p75})", "{min}, {max}"),
missing = "no"
)
# }
Run the code above in your browser using DataLab