"0","# sum salvage quantity by material name for average project and convert to US lbs"
"0","salvage_material_weight_summary <- salvage_material_weight %>%"
"0","   group_by(deconMaterialName) %>%"
"0","   summarise(quantity = sum(converted_quantity)) %>%"
"0","   mutate(per_project_quantity = quantity/number_of_houses * 2.20462)"
"0","# save data table"
"0","write.csv(salvage_material_weight_summary, ""output/average home salvage yield.csv"")"
"0","# make horizontal bar chart of weight by material for the average house"
"0","ggplot(salvage_material_weight_summary, aes(reorder(deconMaterialName, per_project_quantity) , per_project_quantity)) +"
"0","   geom_bar(stat = ""identity"", fill = DEQ_pal[3]) +"
"0","   geom_text(aes(label = format(per_project_quantity, digits = 2, big.mark = "","", big.interval = 3L)), size = 3.5, hjust = -0.1, show.legend = F ) +"
"0","   scale_y_continuous(limits = c(0, 10000), labels = comma ) +"
"0","   labs(x = ""material name"", y = ""average home salvage yield (lbs)"") +"
"0","   coord_flip() +"
"0","   theme_tufte() +"
"0","   theme(axis.text = element_text(size = 12),"
"0","         axis.title = element_text(size = 12,face = ""bold""))"
