imdb_5000_hist.r

imdb_score_summary <- df %>% 
  summarise_each(funs(min, max, mean, median, sd), imdb_score) %>% 
  gather(stat, value) 
  
df %>% 
  ggplot(aes(imdb_score)) + 
  geom_histogram(bins = 50, colour = "black", fill = "red", alpha = 0.4) +
  theme_minimal() +
  annotation_custom(tableGrob(imdb_score_summary, rows = NULL), 
                    xmin = 2.5, 
                    xmax = 4, 
                    ymin = 300, ymax = 400) +
  labs(title = "IMDB score distribution")