fig 5

analysis/paper/figures.Rmd

@@ -625,7 +625,7 @@ df_all = readRDS(here("analysis/data/derived/scenarios_extrafine.rds")) %>%
 ```
 
 
-```{r, fig.width=7, fig.height=4}
+```{r, fig.width=8, fig.height=4}
 
 df_grid = df_all %>%
   filter(!(v_mean %in% df_scenario_info$fe_gj_aeu))
@@ -650,7 +650,8 @@ a = df_grid %>%
   annotate(geom="text",x=56,y=12,label="300", angle=-35, size=3) +
   annotate(geom="text",x=46,y=9.5,label="200", angle=-35, size=3) +
   annotate(geom="text",x=33.5,y=6,label="100", angle=-35, size=3) +
-  #annotate(geom="text",x=16.5,y=13,label="- - - Maximum energy available (GJ/cap)", size=3, hjust=0) +
+  annotate(geom="text",x=60,y=ineq_curr-0.28,
+           label="energy use inequality 2015", size=3.75, hjust=1, color="grey40") +
   scale_color_npg(
                      name = "Scenario", 
                      labels = scenario_label) +