"0","ggplot(filter(ggimpact, impact_units == ""MJ""), aes(x = deconMaterialName, y = impact_sum, fill = SimpleEOLname) ) +"
"0","   geom_bar(stat = ""identity"", position = ""stack"") +"
"0","   geom_text_repel(aes(label = as.integer(impact_sum) )) +"
"0","   scale_fill_manual(values = DEQ_pal[5:9]) +"
"0","   coord_flip() +"
"0","   ggtitle(""Energy impacts (MJ) by origin material type"") +"
"0","   facet_grid(impact_origin ~ scenario)"
