# plot with `qplot_techmix()` parameters
data <- subset(
market_share,
scenario_source == "demo_2020" &
sector == "power" &
region == "global" &
metric %in% c("projected", "corporate_economy", "target_sds")
)
data <- prep_techmix(
data,
span_5yr = TRUE,
convert_label = recode_metric_techmix,
convert_tech_label = spell_out_technology
)
plot_techmix(data)
Run the code above in your browser using DataLab