"0","carbon_net_impacts <- filter(net_impacts, impact_units == ""kg CO2e"") %>%"
"0","   ungroup() %>%"
"0","   spread(key = scenario, value = impact)"
"0","carbon_net_impacts <- carbon_net_impacts %>%"
"0","   add_row(impact_units = ""kg CO2e"","
"0","           impact_origin = ""total"","
"0","           decon = sum(carbon_net_impacts$decon),"
"0","           demo = sum(carbon_net_impacts$demo)) %>%"
"0","   mutate(net = demo - decon) %>%"
"0","   mutate(net_per_sqft = net/as.numeric(total_house_size)) %>%"
"0","   mutate(net_per_project = net/length(house_weight$project)) %>%"
"0","   add_column(order = c(3,5,1,2,4,6)) %>%"
"0","   arrange(order) %>%"
"0","   select(""impact_origin"", ""decon"",  ""demo"", ""net"", ""net_per_sqft"", ""net_per_project"", ""impact_units"") "
"0","   "
"0","write.csv(carbon_net_impacts, ""output/carbon_impact_breakdown.csv"")"
"0","kable(carbon_net_impacts, caption = ""Carbon Impact Table"")"
