calculate_ae <- function(.data, grouping, numerator, denominator){
grouping <- enquo(grouping)
numerator <- enquo(numerator)
denominator <- enquo(denominator)
.data %>%
select(!!grouping, duration, !!numerator, !!denominator) %>%
mutate(duration_group = case_when(duration >= 0 & duration <5 ~ as.character(duration),
duration >= 5 & duration < 10 ~ "5-9",
duration >= 10 & duration < 15 ~ "10-14",
duration >= 15 & duration < 20 ~ "15-19",
duration >= 20 & duration < 25 ~ "20-24",
duration >= 25 ~ "25+",
TRUE ~ NA_character_)) %>%
mutate(duration_group = fct_reorder(duration_group, duration)) %>%
group_by(!!grouping, duration_group) %>%
summarize(ae = sum(!!numerator) / sum(!!denominator))
}
print_ae <- function(.data, spread){
spread <- enquo(spread)
.data %>%
mutate(ae = round(ae,2)) %>%
spread(!!spread, ae) %>%
kable() %>%
kable_styling()
}
plot_ae <- function(.data, wrap){
wrap <- enquo(wrap)
.data %>%
ggplot(aes(duration_group, ae)) +
geom_col() +
facet_wrap(wrap, ncol = 2)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.