"0","# summarise dropbox weight by material type for the average house"
"0","decon_disposal <- project_impact_data %>%"
"0","   filter(scenario == ""deconstruction"") %>%"
"0","   filter(disposition != ""reuse"") %>%"
"0","   filter(disposition != ""none"") %>%"
"0","   group_by(SimpleEOLname) %>%"
"0","   summarise(kg = sum(quantity)/2) %>%"
"0","   mutate(lbs_per_project = kg * 2.20462 / number_of_houses)"
"0","# make another horizontal bar chart for the average project dropbox materials"
"0","ggplot(decon_disposal, aes(x = SimpleEOLname, y = lbs_per_project)) +"
"0","   geom_bar(stat = ""identity"", fill = DEQ_pal[2]) +"
"0","   geom_text(aes(label = format(lbs_per_project, digits = 2, big.mark = "","", big.interval = 3L)), size = 3.5, hjust = -0.1, show.legend = F ) +"
"0","   scale_y_continuous(limits = c(0, 14000), labels = comma ) +"
"0","   labs(x = ""material"", y = ""average deconstructed home dropbox weight composition (lbs)"") +"
"0","   coord_flip() +"
"0","   theme(axis.text = element_text(size = 12),"
"0","         axis.title = element_text(size = 12,face = ""bold"")) +"
"0","   theme_tufte() +"
"0","   theme(axis.text = element_text(size = 12),"
"0","         axis.title = element_text(size = 12,face = ""bold""))"
