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