HDS 3.3-3.4

library(tidyverse)

A ggplot comparing poptotal and popdensity in the midwest dataset.

ggplot(
  data = midwest,
  aes(
    x = poptotal,
    y = popdensity
  )
) +
  geom_point()