My neat thing

library(tidyverse)

Here’s a plot:

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