p <- data %>% ggplot(aes(x=rating)) + geom_histogram( binwidth=10, fill="#69b3a2", color="#e9ecef", alpha=0.9) + ggtitle("Distribution