{r setup = F} # knitr::opts #

  1. Copy the question.
ggplot(mpg) +
  geom_bar(aes(x = fl))