Chapter 5 Problem 5

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

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