
library ( tidyverse ) mpg % > % count ( class = factor ( class )) % > % ggplot ( aes ( class , n )) + geom_col ( fill = "steelblue" ) + geom_line ( aes ( as . numeric ( class )), color = "red" )

library ( tidyverse ) mpg % > % count ( class = factor ( class )) % > % ggplot ( aes ( class , n )) + geom_col ( fill = "steelblue" ) + geom_line ( aes ( as . numeric ( class )), color = "red" )