library(ggplot2)
library(magrittr) # pipe operator
forecast_counts <- example_quantile %>%
as_forecast_quantile %>%
get_forecast_counts(by = c("model", "target_type", "target_end_date"))
plot_forecast_counts(
forecast_counts, x = "target_end_date", show_counts = FALSE
) +
facet_wrap("target_type")
Run the code above in your browser using DataLab