library(tidyverse) ggplot(mpg, aes(x = displ, y = hwy)) + geom_point()
ggplot(mpg, aes(x = displ)) + geom_density()
ggplot(mpg, aes(x = drv)) + geom_bar()