library(tidyverse)

Here’s a cool scatterplot.

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