2015 Best Movies

Top 10 Movies of 2015 by IMDB Rating

new_m <- subset(movies, Year == 2015)
sort_newm <- arrange(new_m, desc(Rating))
best_10 <- sort_newm[1:10, c("Title", "Genre", "Rating")]
print(best_10)

##                                         Title     Genre Rating
## 1                     Bahubali: The Beginning    Action    8.3
## 2                                        Room     Drama    8.2
## 3                                  Inside Out Animation    8.2
## 4  Star Wars: Episode VII - The Force Awakens    Action    8.1
## 5                          Mad Max: Fury Road    Action    8.1
## 6                                   Spotlight     Crime    8.1
## 7                                 The Martian Adventure    8.0
## 8                                The Revenant Adventure    8.0
## 9                      Straight Outta Compton Biography    7.9
## 10                          The Hateful Eight     Crime    7.8

Scatterplot of 2015 Movies by Rating vs. Runtime

ggplot(new_m, aes(x=Rating, y=Runtime)) +
  geom_point() +
  labs(title = "Rating vs. Runtime for 2015 Movies",
       x="Rating",
       y="Runtime (min)")