April21

April 21 In-Class Exercise

movie_data<-read.csv(file="IMDBMOvies.csv")

MyMovie<-filter(movie_data, Year==2009)

new_MyMovie<-MyMovie[c("Title","Runtime","Rating")]
TopTen<-new_MyMovie[1:10,]
print(TopTen)

##                       Title Runtime Rating
## 1      Inglourious Basterds     153    8.3
## 2                    Avatar     162    7.8
## 3                 Star Trek     127    8.0
## 4                  Watchmen     162    7.6
## 5                Kynodontas      94    7.3
## 6              The Hangover     100    7.8
## 7  X-Men Origins: Wolverine     107    6.7
## 8           Sherlock Holmes     128    7.6
## 9            The Blind Side     129    7.7
## 10           Fast & Furious     107    6.6

Rating vs. Runtime