edit fig.2

analysis/paper/paper.Rmd

@@ -462,11 +462,12 @@ pdat = pdat_int_co2eq %>%
 
 pdat$facet = factor(pdat$indicator, levels = c("Expenditure share (%)", "Energy intensity (MJ/€)", "Carbon intensity (kgCO2eq/€)"))
 
-a = ggplot(pdat, aes(x=value, y=five_sectors, color=eu_q_rank)) +
+a = ggplot(pdat, aes(x=value, y=five_sectors, color=factor(eu_q_rank))) + #I added factor on eu_q_rank, to go back, remove factor call and remove 'discrete'
   #geom_point(shape=18, alpha=0.75) +
   geom_text(label="I", alpha=0.75, fontface="bold") +
   scale_color_viridis(option = "A", end = 0.8,
                       direction = -1, 
+                      discrete = TRUE, # I added here, remove to go back to original
                       breaks = c(1, 5, 10), 
                       name="European\ndecile") +
   facet_wrap(~facet, scales="free_x") +
@@ -475,7 +476,6 @@ a = ggplot(pdat, aes(x=value, y=five_sectors, color=eu_q_rank)) +
   theme(text=element_text(size=13, family="Liberation Sans Narrow"),
         panel.spacing = unit(2.5, "lines"))
 
-
 ggsave(here("analysis", "figures", "figure2.pdf"), device=cairo_pdf)
 ```