Chapter 7 3번 문제

ggplot(data=midwest,aes(x=area,y=poptotal),options(scipen = 999))+geom_point(alpha=0.4,aes(color=state,size=popdensity))+geom_smooth(color="blue",alpha=0.4,se=F)+labs(title="Scatterplot",subtitle="Area Vs Population",x="Area",y="Population",color="state",size="popdensity",caption="Source: midwest")+xlim(c(0,0.1))+ylim(c(0,500000))+theme_classic()

## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

## Warning: Removed 15 rows containing non-finite values (stat_smooth).

## Warning: Removed 15 rows containing missing values (geom_point).