library(tidyverse)


bar_graph_mtcars <- ggplot(mtcars, aes(x = drv)) + geom_bar()