"0","metal_other_disposition <- project_impact_data %>%"
"0","   group_by(scenario, impact_units, disposition, SimpleEOLname) %>%"
"0","   summarise(material_impact_sum = sum(material_impacts) ) %>%"
"0","   filter(SimpleEOLname != ""recoverable wood"") %>%"
"0","   filter(SimpleEOLname != ""nonrecoverable wood"") %>%"
"0","   filter(material_impact_sum != 0) %>%"
"0","   mutate(per_project_material_impact_sum = material_impact_sum/number_of_houses)"
"0","carbon_mo_disposition <- filter(metal_other_disposition, impact_units == ""kg CO2e"")"
"0","energy_mo_disposition <- filter(metal_other_disposition, impact_units == ""MJ"")"
"0","   "
"0","ggplot(carbon_mo_disposition, aes(x = scenario, y = per_project_material_impact_sum, fill = disposition)) +"
"0","   geom_bar(stat = ""identity"", position = ""stack"") +"
"0","   geom_text(aes(label = format(per_project_material_impact_sum, digits = 2, big.mark = "","", big.interval = 3L)), size = 3.5, position = position_stack(vjust = 0.5),  show.legend = F ) +"
"0","   geom_hline(yintercept = 0 ) +"
"0","   scale_fill_manual(values = c(DEQ_pal[17], DEQ_pal[15], DEQ_pal[16])) +"
"0","   scale_y_continuous(labels = comma ) +"
"0","   labs(x = ""scenario"", y = ""carbon impact (kg CO2e)"", fill = """") +"
"0","   facet_grid(. ~ SimpleEOLname) +"
"0","   theme_tufte() +"
"0","   theme(axis.text = element_text(size = 12), axis.title = element_text(size = 12,face = ""bold""), legend.position = ""top"", legend.direction = ""horizontal"")"
