"0","carbon_impacts_per_home <- reshaped_per_home_final_impact %>%"
"0","   filter(impact_units == ""kg CO2e"") %>%"
"0","   select(""scenario"", ""materials"", ""material_transport"", ""worker_transport"", ""equipment_use"") %>%"
"0","   gather(`materials`, `material_transport`, `worker_transport`, `equipment_use`, key = ""impact_origin"", value = ""impact_value"")"
"0","carbon_impacts_per_home$impact_origin <- str_replace_all(carbon_impacts_per_home$impact_origin, ""_"", "" "")"
"0","energy_impacts_per_home <- reshaped_per_home_final_impact %>%"
"0","   filter(impact_units == ""MJ"") %>%"
"0","   select(""scenario"", ""materials"", ""material_transport"", ""worker_transport"", ""equipment_use"") %>%"
"0","   gather(`materials`, `material_transport`, `worker_transport`, `equipment_use`, key = ""impact_origin"", value = ""impact_value"")"
"0","energy_impacts_per_home$impact_origin <- str_replace_all(energy_impacts_per_home$impact_origin, ""_"", "" "")"
