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