Feb. 5

Load Packages

library(tidyverse)

Scatterplot

ggplot(midwest, aes(x = poptotal, y = popdensity)) +
  geom_point() +
  labs(x = "Population Total",
      y = "Population Density",
      title = "Population vs. Density"
      )