"0","ggplot(gathered_impacts, aes(x = scenario, y = impact, fill = impact_origin) ) +"
"0","   geom_bar(stat = ""identity"", position = ""dodge"") +"
"0","   scale_fill_manual(values = DEQ_pal[5:9]) +"
"0","   labs(x = ""scenario"", y = ""impact total"") +"
"0","   facet_grid(impact_units~.) +"
"0","   ggtitle(""Impacts of materials and transport"")"
