"0","# the softwood lumber category overwhelms the rest of the data, so rerun the ggplot calls above with the following data set to see detail of other material categories"
"0","reuse_sans_softwood_lumber <- filter(reuse_scenario_impact_summary, deconMaterialName != ""softwood lumber"")"
"0","ggplot(reuse_sans_softwood_lumber, 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"")"
