order_line.md

library(dplyr, warn.conflicts = FALSE)
devtools::load_all(quiet = TRUE)

# Helper?
order_lines <- function(data, order) {
  data %>% 
    mutate(metric = factor(.data$metric, levels = order)) %>% 
    arrange(.data$metric)
}



data <- prep_trajectory(
  market_share,
  sector_filter = "power",
  technology_filter = "renewablescap",
  region_filter = "global",
  scenario_source_filter = "demo_2020",
  value_name = "production"
)

good_order <- c("projected", "corporate_economy", "sds", "sps", "cps")
plot_trajectoryB(order_lines(data, good_order)) 

bad_order <- c("cps", "corporate_economy", "sds", "sps", "projected")
plot_trajectoryB(order_lines(data, bad_order))

^{Created on 2021-06-02 by the reprex package (v2.0.0)}