Problem 5 Scatterplot 03

library(gcookbook)
ggplot(data=heightweight, aes(heightIn, weightLb, color=sex))+
  geom_point(alpha=0.5, size=3)+
  geom_smooth(se=FALSE, method="lm")+
  theme_classic()+
  labs(title = "Scatterplot", subtitle = "Weight Vs Height", caption="Source:heightweight")

## `geom_smooth()` using formula 'y ~ x'