# 未加权
ggplot(midwest,aes(percwhite,percbelowpoverty))+
geom_point()
image.png
# 以人口加权
ggplot(midwest,aes(percwhite,percbelowpoverty))+
geom_point(aes(size=poptotal/1e6))+
scale_size_area("Population\n(millions)",breaks=c(05,1,2,4))
image.png
增加weight
ggplot(midwest,aes(percwhite,percbelowpoverty))+
geom_point(aes(size=poptotal/1e6))+
geom_smooth(aes(weight=poptotal),method = lm,size=1)+
scale_size_area(guide="none")
image.png
