Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup, include=FALSE-----------------------------------------------------
library(tidyverse)
library(magrittr)
library(Tplyr)
library(knitr)
## ----intro--------------------------------------------------------------------
tplyr_table(tplyr_adsl, TRT01P) %>%
add_layer(
group_desc(AGE, by = "Age (years)", where= SAFFL=="Y") %>%
set_format_strings(
"n" = f_str("xx", n),
"Mean (SD)"= f_str("xx.x (xx.xx)", mean, sd),
"Median" = f_str("xx.x", median),
"Q1, Q3" = f_str("xx, xx", q1, q3),
"Min, Max" = f_str("xx, xx", min, max),
"Missing" = f_str("xx", missing)
)
) %>%
build() %>%
kable()
## ----varnames, echo=FALSE-----------------------------------------------------
x <- data.frame(
Statistic = c('N', 'Mean', "Standard Deviation", "Median", "Variance", "Minimum",
"Maximum", "Interquartile Range", "Q1", "Q3", "Missing"),
`Variable Names` = c("n", "mean", "sd", "median", "var", "min", "max", "iqr", "q1", "q3", "missing"),
`Function Call` = c("n()", "mean(.var, na.rm=TRUE)", "sd(.var, na.rm=TRUE)", "median(.var, na.rm=TRUE)",
"var(.var, na.rm=TRUE)", "min(.var, na.rm=TRUE)", "max(.var, na.rm=TRUE)",
"IQR(.var, na.rm=TRUE, type=getOption('tplyr.quantile_type')",
"quantile(.var, na.rm=TRUE, type=getOption('tplyr.quantile_type'))[[2]]",
"quantile(.var, na.rm=TRUE, type=getOption('tplyr.quantile_type'))[[4]]",
"sum(is.na(.var))")
)
x %>%
kable(align="ccl", col.names=c('Statistic', 'Variable Names', 'Function Call'))
## ----quantile_types_default---------------------------------------------------
tplyr_table(tplyr_adsl, TRT01P) %>%
add_layer(
group_desc(CUMDOSE) %>%
set_format_strings("Q1, Q3" = f_str('xxxxx, xxxxx', q1, q3))
) %>%
build() %>%
select(-starts_with("ord")) %>%
kable()
## ----quantile_types_sas-------------------------------------------------------
options(tplyr.quantile_type = 3)
tplyr_table(tplyr_adsl, TRT01P) %>%
add_layer(
group_desc(CUMDOSE) %>%
set_format_strings("Q1, Q3" = f_str('xxxxx, xxxxx', q1, q3))
) %>%
build() %>%
select(-starts_with("ord")) %>%
kable()
## ----echo=FALSE---------------------------------------------------------------
options(tplyr.quantile_type=7)
## ----multi-custom-------------------------------------------------------------
tplyr_table(tplyr_adsl, TRT01P) %>%
add_layer(
group_desc(vars(AGE, HEIGHTBL), by = "Sepal Length") %>%
set_custom_summaries(
geometric_mean = exp(sum(log(.var[.var > 0]), na.rm=TRUE) / length(.var))
) %>%
set_format_strings(
'Geometric Mean (SD)' = f_str('xx.xx (xx.xxx)', geometric_mean, sd)
)
) %>%
build() %>%
select(-starts_with("ord")) %>%
kable()
## ----custom_options-----------------------------------------------------------
tplyr_table(tplyr_adsl, TRT01P) %>%
add_layer(
group_desc(AGE) %>%
set_format_strings("Mean" = f_str('xx.xx', mean))
) %>%
build() %>%
kable()
## ----custom_options_trimmed---------------------------------------------------
options(tplyr.custom_summaries =
rlang::quos(
mean = mean(.var, na.rm=TRUE, trim=0.4)
)
)
tplyr_table(tplyr_adsl, TRT01P) %>%
add_layer(
group_desc(AGE) %>%
set_format_strings("Mean" = f_str('xx.xx', mean))
) %>%
build() %>%
kable()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.