library(tidyverse)
library(primer.data)
ggplot(data = qscores, mapping = aes(x = rating)) +
geom_histogram(color = "white", bins = 30) +
labs(title = "Histogram of Student Ratings of Harvard Classes",
subtitle = "Ratings of 1 and 2 are very rare",
x = "Rating", y = "Count", caption = "Source: Harvard Q-Guide (2018 - 2019)")

<sup>Created on 2022-06-20 by the [reprex package](https://reprex.tidyverse.org) (v2.0.1)</sup>