Problem 1 Histogram

install.packages("bookdown")
# or the development version
# devtools::install_github("rstudio/bookdown")

library(ggplot2)
ggplot(data=mpg, aes(hwy, fill=drv))+
  geom_histogram(alpha=0.5)+
  theme_minimal()+
  labs(title="Histogram", subtitle = "Histogram of Highway Mile per Gallon", caption="Source:mpg")

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.