"0","# use the next two sets of ggplot calls to experiment with creating a graphical chart of all impact origins & material types"
"0","ggplot(filter(ggimpact, impact_units == ""MJ""), aes(x = deconMaterialName, y = impact_sum, fill = impact_origin) ) +"
"0","   geom_bar(stat = ""identity"", position = ""stack"") +"
"0","   geom_text_repel(aes(label = as.integer(impact_sum) )) +"
"0","   scale_fill_manual(values = DEQ_pal[12:14]) +"
"0","   coord_flip() +"
"0","   ggtitle(""Energy impacts (MJ) by origin material type"") +"
"0","   facet_grid(SimpleEOLname ~ scenario )"
