"0","ggplot(house_weight, aes(total_dropbox_quantity, total_salvage_quantity, color = contractor, size = house_size)) +"
"0","   geom_jitter() +"
"0","   #scale_size(""house_size (sqft)"") +"
"0","   geom_text_repel(aes(label = as.integer(percent_salvaged)), seed = 19, show.legend = F) +"
"0","   #geom_rug(aes(size = 0.25), sides = ""bl"", position = ""jitter"", show.legend = F) +"
"0","   geom_vline(xintercept = median(house_weight$total_dropbox_quantity), color = ""grey30"" ) +"
"0","   geom_hline(yintercept = median(house_weight$total_salvage_quantity), color = ""grey30"" ) +"
"0","   scale_radius(""house size (sqft)"", range = c(2,6)) +"
"0","   scale_color_calc() +"
"0","   labs(x = ""kg dropbox materials"", y = ""kg salvaged materials"") #+"
