3  ggplot demo

library(ggplot2)

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