ggplot(data = mpg, aes(x = displ, y = hwy)) +
  geom_point()