library(tidyverse)

ggplot(mpg, aes(x = hwy)) + 
  geom_histogram()