```{r plots, fig.width=7, fig.height=7} p1 <- ggplot(movies_interesting, aes(x=imdb_num_votes, y = imdb_rating))+ geom_point(colour = "blue", alpha = 0.5)+ theme_bw()+ geom_smooth()+ labs(x = "Number votes", y= "Imdb rating", fill = "won_oscar")+ theme(axis.text.x=element_text(angle=90, hjust = 1, vjust = 0))+ theme(legend.position="none") p2 <- ggplot(movies_interesting, aes(x=best_pic_win, y = imdb_rating, fill = best_pic_win))+ geom_boxplot(alpha = 0.7)+ theme_bw()+ labs(x = "Film_won_Oscar", y= "Imdb rating", fill = "best_pic_win")+ theme(axis.text.x=element_text(angle=90, hjust = 1, vjust = 0))+ theme(legend.position="none") p3 <- ggplot(movies_interesting, aes(x=best_dir_win, y = imdb_rating, fill = best_dir_win))+ geom_boxplot(alpha = 0.7)+ theme_bw()+ labs(x = "Director_won_Oscar", y= "Imdb rating", fill = "best_dir_win")+ theme(axis.text.x=element_text(angle=90, hjust = 1, vjust = 0))+ theme(legend.position="none") p4 <- ggplot(movies_interesting, aes(x=best_actress_win, y = imdb_rating, fill = best_actress_win))+ geom_boxplot(alpha = 0.7)+ theme_bw()+ labs(x = "Actress_won_Oscar", y= "Imdb rating", fill = "best_actress_win")+ theme(axis.text.x=element_text(angle=90, hjust = 1, vjust = 0))+ theme(legend.position="none") p5 <- ggplot(movies_interesting, aes(x=best_actor_win, y = imdb_rating, fill = best_actor_win))+ geom_boxplot(alpha = 0.7)+ theme_bw()+ labs(x = "Actor_won_Oscar", y= "Imdb rating", fill = "best_actor_win")+ theme(axis.text.x=element_text(angle=90, hjust = 1, vjust = 0))+ theme(legend.position="none") grid.arrange(p1, p2, p3, p4, p5, nrow = 3) ```