"0","ggplot(house_weight_US_units, aes(x = est_weight, y = percent_missing, color = contractor, size = house_size)) +"
"0","   geom_jitter() +"
"0","   geom_text_repel(aes(label = as.integer(percent_salvaged)), seed = 19, show.legend = F) +"
"0","   geom_hline(yintercept = 0) +"
"0","   geom_vline(xintercept = mean(house_weight_US_units$est_weight)) +"
"0","   scale_color_calc() + scale_x_continuous(labels = comma ) +"
"0","   scale_y_continuous(labels = comma) +"
"0","   scale_radius(""house size (sqft)"", range = c(2,6)) +"
"0","   labs(x = ""50lbs per sq_ft estimated weight"", y = ""percentage of house missing from estimated"") +"
"0","   theme_tufte() +"
"0","   ggtitle(""House weight estimates and calculations"")"
