"0","dropbox_composition <- full_join(dropbox_weight, dropbox_stream_EOL,  by = c(""quantity_units"" = ""target_units"")) %>%"
"0","   mutate(kg_composition = total_dropbox_quantity * Distribution) %>%"
"0","   mutate(dropbox_EOL_kg = kg_composition * percentage)"
"0","write.csv(dropbox_composition, ""intermediary/dropbox_EOL_weight_composition.csv"")"
"0","rm(dropbox_weight)"
"0","# assign impacts to the EOL disposition kg and clean up for merge with `reuse_scenario`"
"0","dropbox_impacts <- left_join(dropbox_composition, impact_data, by = c(""deconMaterialName"", ""disposition"")) %>%"
"0","   full_join(project_characteristics) %>%"
"0","   mutate(material_impacts = dropbox_EOL_kg * impactValue) %>%"
"0","   rename(material_impact_units = impactUnit) %>%"
"0","   rename(quantity = dropbox_EOL_kg) %>%"
"0","   select(""house_age"", ""house_size"", ""project"", ""contractor"", ""deconMaterialName"", ""quantity"", ""quantity_units"", ""disposition"", ""impactCategory"", ""material_impacts"", ""material_impact_units"", ""SimpleEOLname"")"
"2","Joining, by = ""project""
"
"0","   "
"0","ggplot(dropbox_impacts, aes(x = impactCategory, y = material_impacts, fill = SimpleEOLname) ) +"
"0","   geom_bar(stat = ""identity"", position = ""dodge"") +"
"0","   labs(x = ""dropbox material impacts"", y = ""impact total: MJ for Energy and kg CO2e for GWP"", fill = """") +"
"0","   scale_y_continuous(labels = comma) +"
"0","   scale_fill_manual(values = DEQ_pal[8:11]) +"
"0","   theme_tufte() +"
"0","   theme(legend.position = ""top"", legend.direction = ""horizontal"") +"
"0","   ggtitle(""Dropbox impacts by material"")"
