"0","ggplot(reuse_scenario, aes(x = converted_quantity_units, y = converted_quantity, fill = deconMaterialName) ) +"
"0","   geom_bar(stat = ""identity"", position = ""fill"") +"
"0","   labs(x = ""salvage material weight"", y = ""percentage of weight total"") +"
"0","   ggtitle(""Material percentage of reuse weight"")"
