scores <- scoringutils::eval_forecasts(data, summarise_by = c("model", "location_name", "target_type"), compute_relative_skill = FALSE) plot <- scoringutils::wis_components(scores, facet_wrap_or_grid = "grid", relative_contributions = TRUE, facet_formula = . ~ target_type + location_name) + ggplot2::coord_flip() + ggplot2::theme(legend.position = "bottom") print(plot)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.