time_score_plt.r

df %>% 
  group_by(title_year) %>% 
  summarise(mean_rating = mean(imdb_score), 
            upper_rating = quantile(imdb_score, 0.975), 
            lower_rating = quantile(imdb_score, 0.0275)) %>% 
  ggplot(aes(title_year, mean_rating)) +
  geom_line(colour = "dodger blue") + 
  geom_point(alpha = 0.5) + 
  geom_smooth(method = "lm", colour = "red", alpha = 0.6, se = FALSE) +
  geom_errorbar(aes(ymin = upper_rating, ymax = lower_rating)) + 
  geom_rug() +
  theme_minimal() +
  labs(title = "Average IMDB movie rating per year", 
       x = "Year", 
       y = "IMDB rating")