"0","ggplot(reuse_scenario_impact_summary, aes(x = impactCategory, y = impact_sum, fill = deconMaterialName) ) +"
"0","   geom_bar(stat = ""identity"", position = ""fill"") +"
"0","   labs(x = ""salvage material impacts"", y = ""percentage of impact total"") +"
"0","   ggtitle(""Salvage impacts by material"")"
