Problem 3 Scatterplot 01

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

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