"0","ggplot(filter(reuse_sans_softwood_lumber, impactCategory == ""Primary Energy Demand""),  aes(deconMaterialName, impact_sum,  fill = contractor)) +"
"0","   geom_bar(stat = ""identity"") +"
"0","   ggtitle(""Primary Energy Demand reuse impacts"") +"
"0","   labs(x = ""material"", y = ""MJ"") +"
"0","   coord_flip()"
