"0","# save project weight objects"
"0","reuse_by_project <- salvage_materials_weight %>%"
"0","   group_by(contractor, project) %>%"
"0","   summarise(total_salvage_quantity = sum(converted_quantity)) %>%"
"0","   add_column(quantity_units = ""kg"")"
"0","house_weight <- full_join(reuse_by_project, dropbox_weight, by = c(""project"", ""contractor"")) %>%"
"0","   mutate(total_house_weight = total_salvage_quantity + total_dropbox_quantity) %>%"
"0","   mutate(total_house_weight_units = ""kg"") %>%"
"0","   mutate(percent_salvaged = (total_salvage_quantity / total_house_weight * 100)) %>%"
"0","   rename(salvage_quantity_units = quantity_units.x) %>%"
"0","   rename(dropbox_quantity_units = quantity_units.y) %>%"
"0","   left_join(project_characteristics, by = ""project"") %>%"
"0","   arrange(desc(percent_salvaged)) %>%"
"0","   group_by(contractor)"
"0","# save output for later use "
"0","write_csv(house_weight, ""intermediary/house_weight.csv"")"
"0","# clear the environment of unneeded objects"
"0","rm(reuse_by_project)"
"0","summary(select(house_weight, c(""total_salvage_quantity"", ""total_dropbox_quantity"", ""total_house_weight"", ""percent_salvaged"", ""house_age"", ""house_size"") ))"
"2","Adding missing grouping variables: `contractor`
"
"1","  contractor       "
"1"," total_salvage_quantity"
"1"," total_dropbox_quantity"
"1"," total_house_weight"
"1"," percent_salvaged"
"1","
"
"1"," Length:36         "
"1"," Min.   :1308          "
"1"," Min.   : 4345         "
"1"," Min.   : 8141     "
"1"," Min.   : 7      "
"1","
"
"1"," Class :character  "
"1"," 1st Qu.:3268          "
"1"," 1st Qu.: 7294         "
"1"," 1st Qu.:12492     "
"1"," 1st Qu.:18      "
"1","
"
"1"," Mode  :character  "
"1"," Median :4443          "
"1"," Median :13934         "
"1"," Median :18198     "
"1"," Median :28      "
"1","
"
"1","                   "
"1"," Mean   :4802          "
"1"," Mean   :13052         "
"1"," Mean   :17854     "
"1"," Mean   :29      "
"1","
"
"1","                   "
"1"," 3rd Qu.:5816          "
"1"," 3rd Qu.:16738         "
"1"," 3rd Qu.:21404     "
"1"," 3rd Qu.:37      "
"1","
"
"1","                   "
"1"," Max.   :9448          "
"1"," Max.   :24830         "
"1"," Max.   :27892     "
"1"," Max.   :64      "
"1","
"
"1","   house_age  "
"1","   house_size  "
"1","
"
"1"," Min.   : 90  "
"1"," Min.   : 640  "
"1","
"
"1"," 1st Qu.:107  "
"1"," 1st Qu.: 897  "
"1","
"
"1"," Median :111  "
"1"," Median :1132  "
"1","
"
"1"," Mean   :112  "
"1"," Mean   :1177  "
"1","
"
"1"," 3rd Qu.:118  "
"1"," 3rd Qu.:1338  "
"1","
"
"1"," Max.   :137  "
"1"," Max.   :2341  "
"1","
"
