"0","ggplot(house_weight, aes(house_size, percent_salvaged, color = contractor)) +"
"0","   geom_point(size = 2) +"
"0","   geom_smooth(method = ""glm"") +"
"0","   scale_color_calc() +"
"0","   labs(x = ""house size in square feet"", y = ""percentage by weight salvaged"") +"
"0","   theme_minimal() +"
"0","   ggtitle(""Percentage materials salvaged by house size"")"
