reprex_use-case_plot.md

This code

reprex::reprex({
  library(dplyr, warn.conflicts = FALSE)
  library(r2dii.plot)
  
  data <- market_share %>%
    filter(
      sector == "power",
      technology == "renewablescap",
      region == "global",
      scenario_source == "demo_2020",
      between(year, 2020, 2030)
    )
  
  plot_trajectory(data)
})

yields this reprex:

library(dplyr, warn.conflicts = FALSE)
library(r2dii.plot)

data <- market_share %>%
  filter(
    sector == "power",
    technology == "renewablescap",
    region == "global",
    scenario_source == "demo_2020",
    between(year, 2020, 2030)
  )

plot_trajectory(data)
#> Normalizing `production` values to 2020 -- the start year.

^{Created on 2021-10-08 by the reprex package (v2.0.1)}

Thanks @MonikaFu

maurolepore/reprex_use-case_plot.md