ggplot(mtcars, aes(x = mpg, y = hp)) + 
  geom_point()