Analysis of Movies in 2012

Top 10 Movies in 2012

movies_2012 <- subset(movie_data, Year==2012)
sorted_mov2012 <- arrange(movies_2012, desc(Rating))
top102012 <- sorted_mov2012[1:10, c("Title", "Genre", "Rating", "Runtime")]
top102012

##                                Title     Genre Rating Runtime
## 1              The Dark Knight Rises    Action    8.5     164
## 2                   Django Unchained     Drama    8.4     165
## 3                             Jagten     Drama    8.3     115
## 4                       The Avengers    Action    8.1     143
## 5    The Perks of Being a Wallflower     Drama    8.0     102
## 6  The Hobbit: An Unexpected Journey Adventure    7.9     169
## 7                         Life of Pi Adventure    7.9     127
## 8                            Skyfall    Action    7.8     143
## 9            Silver Linings Playbook    Comedy    7.8     122
## 10                  Moonrise Kingdom Adventure    7.8      94

Scatter Plot of the Rating vs. Runtime of all 2012 Movies

ggplot(movies_2012, aes(x=Rating, y=Runtime)) +
  geom_point(color="black", size=2) +
  scale_y_continuous(limits= c(0, NA), expand = expansion(mult= c(0, 0.05))) +
  scale_x_continuous(limits=c(0, 10), breaks=0:10, expand=expansion(mult=c(0,0))) + #*
  labs(title="Rating vs. Runtime of all 2012 Movies",
       x="IMDB Rating of movie",
       y="Runtime of Movie in Minutes")

#* Source for scale_x_continuous: https://www.statology.org/ggplot2-scale_x_continuous/