library(dplyr)
# Median `Emails_sent` grouped by `MetricDate`
# Without Person Averaging
med_df <-
pq_data %>%
group_by(MetricDate) %>%
summarise(Emails_sent_median = median(Emails_sent))
med_df %>%
create_line_asis(
date_var = "MetricDate",
metric = "Emails_sent_median",
title = "Median Emails Sent",
subtitle = "Person Averaging Not Applied",
caption = extract_date_range(pq_data, return = "text")
)
# Create line plot with data point labels
med_df %>%
create_line_asis(
date_var = "MetricDate",
metric = "Emails_sent_median",
title = "Median Emails Sent",
subtitle = "Person Averaging Not Applied",
caption = extract_date_range(pq_data, return = "text"),
label = TRUE
)
Run the code above in your browser using DataLab