Midterm
Nokes, Sariah
11/04/2019
library(stringr)
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(readr)
mag <- read_csv("Magazine Subscription Data (1).csv")## Parsed with column specification:
## cols(
## age = col_double(),
## gender = col_character(),
## income = col_double(),
## kids = col_double(),
## ownHome = col_character(),
## subscribe = col_character(),
## Segment = col_character()
## )Welcome to the Midterm
This assignment is a shout-out to all the movie aficionados out there. We are going to be cleaning and analyzing data for 5000 movies. This midterm covers no new material. It will be emphasizing material from the Introduction to R, Intermediate R, and Data Cleaning in R courses. You may come into the TAs with questions only if you completed the coursework on DataCamp.
- Start by importing the tmdb_5000_movies.csv dataset as df.
df <- read.csv("tmdb_5000_movies.csv")- Next, run two functions to look at the first 7 rows and the last 4 rows of the data. You will know this question is correct if you have two data.frame windows under your code that are 7 x 20 and 4 x 20.
row7 <- df [c (1:7),]
row4 <- df [ c(1:4),]While looking at the data set we see that some of the columns have been read in as factors (fctr), some as doubles (dbl) and some as integers (int).
- Let’s start cleaning the data by creating a new dataset that is a subset of the original data. Call the new dataset “movies” and include the following columns: “title”,“id”,“status”,“release_date”,“budget”,“revenue”, “runtime”,“overview”, “tagline”,“genres”, “original_language”, “original_title”, “popularity”, “vote_average”, “vote_count”, “homepage”. Print the first 5 lines of the new dataset.
(hint: you should be able to copy the column names into the code)
movies <- df[c("title","id","status","release_date","budget","revenue", "runtime","overview", "tagline","genres", "original_language", "original_title", "popularity", "vote_average", "vote_count", "homepage")]
head(movies)## title id status release_date
## 1 Avatar 19995 Released 2009-12-10
## 2 Pirates of the Caribbean: At World's End 285 Released 2007-05-19
## 3 Spectre 206647 Released 2015-10-26
## 4 The Dark Knight Rises 49026 Released 2012-07-16
## 5 John Carter 49529 Released 2012-03-07
## 6 Spider-Man 3 559 Released 2007-05-01
## budget revenue runtime
## 1 237000000 2787965087 162
## 2 300000000 961000000 169
## 3 245000000 880674609 148
## 4 250000000 1084939099 165
## 5 260000000 284139100 132
## 6 258000000 890871626 139
## overview
## 1 In the 22nd century, a paraplegic Marine is dispatched to the moon Pandora on a unique mission, but becomes torn between following orders and protecting an alien civilization.
## 2 Captain Barbossa, long believed to be dead, has come back to life and is headed to the edge of the Earth with Will Turner and Elizabeth Swann. But nothing is quite as it seems.
## 3 A cryptic message from Bond’s past sends him on a trail to uncover a sinister organization. While M battles political forces to keep the secret service alive, Bond peels back the layers of deceit to reveal the terrible truth behind SPECTRE.
## 4 Following the death of District Attorney Harvey Dent, Batman assumes responsibility for Dent's crimes to protect the late attorney's reputation and is subsequently hunted by the Gotham City Police Department. Eight years later, Batman encounters the mysterious Selina Kyle and the villainous Bane, a new terrorist leader who overwhelms Gotham's finest. The Dark Knight resurfaces to protect a city that has branded him an enemy.
## 5 John Carter is a war-weary, former military captain who's inexplicably transported to the mysterious and exotic planet of Barsoom (Mars) and reluctantly becomes embroiled in an epic conflict. It's a world on the brink of collapse, and Carter rediscovers his humanity when he realizes the survival of Barsoom and its people rests in his hands.
## 6 The seemingly invincible Spider-Man goes up against an all-new crop of villain – including the shape-shifting Sandman. While Spider-Man’s superpowers are altered by an alien organism, his alter ego, Peter Parker, deals with nemesis Eddie Brock and also gets caught up in a love triangle.
## tagline
## 1 Enter the World of Pandora.
## 2 At the end of the world, the adventure begins.
## 3 A Plan No One Escapes
## 4 The Legend Ends
## 5 Lost in our world, found in another.
## 6 The battle within.
## genres
## 1 [{"id": 28, "name": "Action"}, {"id": 12, "name": "Adventure"}, {"id": 14, "name": "Fantasy"}, {"id": 878, "name": "Science Fiction"}]
## 2 [{"id": 12, "name": "Adventure"}, {"id": 14, "name": "Fantasy"}, {"id": 28, "name": "Action"}]
## 3 [{"id": 28, "name": "Action"}, {"id": 12, "name": "Adventure"}, {"id": 80, "name": "Crime"}]
## 4 [{"id": 28, "name": "Action"}, {"id": 80, "name": "Crime"}, {"id": 18, "name": "Drama"}, {"id": 53, "name": "Thriller"}]
## 5 [{"id": 28, "name": "Action"}, {"id": 12, "name": "Adventure"}, {"id": 878, "name": "Science Fiction"}]
## 6 [{"id": 14, "name": "Fantasy"}, {"id": 28, "name": "Action"}, {"id": 12, "name": "Adventure"}]
## original_language original_title popularity
## 1 en Avatar 150.43758
## 2 en Pirates of the Caribbean: At World's End 139.08262
## 3 en Spectre 107.37679
## 4 en The Dark Knight Rises 112.31295
## 5 en John Carter 43.92699
## 6 en Spider-Man 3 115.69981
## vote_average vote_count homepage
## 1 7.2 11800 http://www.avatarmovie.com/
## 2 6.9 4500 http://disney.go.com/disneypictures/pirates/
## 3 6.3 4466 http://www.sonypictures.com/movies/spectre/
## 4 7.6 9106 http://www.thedarkknightrises.com/
## 5 6.1 2124 http://movies.disney.com/john-carter
## 6 5.9 3576 http://www.sonypictures.com/movies/spider-man3/- Next, let’s correct the data types for the new movies dataset. Use what we have learned in the cleaning data chapter to change the data types of columns to correct formats. (Hint: Titles and most string variables should not be factors. Dates should be dates.) Once you have converted the variables, use the glimpse function to verify the correct formatting.
str(movies)## 'data.frame': 4803 obs. of 16 variables:
## $ title : Factor w/ 4800 levels "(500) Days of Summer",..: 381 2653 3186 3614 1906 3198 3364 382 1587 444 ...
## $ id : int 19995 285 206647 49026 49529 559 38757 99861 767 209112 ...
## $ status : Factor w/ 3 levels "Post Production",..: 2 2 2 2 2 2 2 2 2 2 ...
## $ release_date : Factor w/ 3281 levels "","1916-09-04",..: 2315 1945 3185 2688 2635 1940 2450 3111 2246 3234 ...
## $ budget : int 237000000 300000000 245000000 250000000 260000000 258000000 260000000 280000000 250000000 250000000 ...
## $ revenue : num 2.79e+09 9.61e+08 8.81e+08 1.08e+09 2.84e+08 ...
## $ runtime : num 162 169 148 165 132 139 100 141 153 151 ...
## $ overview : Factor w/ 4801 levels ""," ","'Breaking Upwards' explores a young, real-life New York couple who, four years in and battling codependency, de"| __truncated__,..: 2526 1666 172 2082 2801 3918 4638 4670 1417 2042 ...
## $ tagline : Factor w/ 3945 levels "","-If anyone asks.",..: 739 417 194 2839 1833 2664 3298 178 640 1700 ...
## $ genres : Factor w/ 1175 levels "[]","[{\"id\": 10402, \"name\": \"Music\"}, {\"id\": 10749, \"name\": \"Romance\"}]",..: 609 144 675 792 678 301 341 678 124 610 ...
## $ original_language: Factor w/ 37 levels "af","ar","cn",..: 8 8 8 8 8 8 8 8 8 8 ...
## $ original_title : Factor w/ 4801 levels "...E tu vivrai nel terrore! L'aldilà",..: 374 2671 3195 3597 1897 3207 3368 375 1577 437 ...
## $ popularity : num 150.4 139.1 107.4 112.3 43.9 ...
## $ vote_average : num 7.2 6.9 6.3 7.6 6.1 5.9 7.4 7.3 7.4 5.7 ...
## $ vote_count : int 11800 4500 4466 9106 2124 3576 3330 6767 5293 7004 ...
## $ homepage : Factor w/ 1692 levels "","http://2016themovie.com/",..: 462 58 1282 1379 219 1285 66 192 138 475 ...movies$release_date <- as.Date(movies$release_date)
movies$title <- as.character(movies$title)
movies$overview <- as.character(movies$overview)
movies$tagline <- as.character(movies$tagline)
movies$genres <- as.character(movies$genres)
movies$original_title <- as.character(movies$original_title)
movies$homepage <- as.character(movies$homepage)- Now let’s continue exploring the data, let’s see if vote_count is correlated with the vote_average. Create a scatter plot of the two variables with vote_count on the x-axis and vote_average on the y-axis.
plot(movies$vote_count, movies$vote_average)
It looks like there is a positive correlation between the amount of votes that a movie gets and the average rating. In other words, it looks like the more votes we get, the higher rated our movie will be by the voters. At this point in the course, we do not yet know how to confirm this correlation but you can look forward to that in a couple of weeks!
- Often we hear people complain about how movies are not as good as they used to be. Let’s plot another scatter plot with ‘vote_average’ on the x axis and ‘release_date’ on the y axis.
plot (movies$vote_average, movies$release_date)
7. Let’s continue to make pretty plots of the data now. We think the the data might have a recency bias and have many more films that are newer than are older. Test this theory by creating a histogram of the release_date. Make the histogram use one bar per year. (Hint: the oldest movie was made in 1916, the newest in 2017)
hist(movies$release_date,breaks=101, freq= TRUE, xlab ="Release Date", ylab= "Number of Films", main = "Movies", col = 'purple')
- Continuing on our ecstasy of graphs let’s create one more graph. Create of box plot of the run time column.
boxplot(movies$runtime)
Next we will be taking the average of the ‘popularity’, ‘budget’, ‘revenue’, ‘vote_average’, and ‘vote_count’.
- Rather than having a long line of code 5 times, write a function that will take the average of any column that is inputted into it and output the average. ```
avgColumn <- function(column) {
avg = mean(column)
return (avg)
}
budgetAvg = avgColumn(df$budget)- Now use the function that you have created and take the average of the five aforementioned columns (popularity, budget, revenue, vote_average, and vote_count).
avgColumn(movies$popularity)## [1] 21.4923avgColumn(movies$budget)## [1] 29045040avgColumn(movies$revenue)## [1] 82260639avgColumn(movies$vote_average)## [1] 6.092172avgColumn(movies$vote_count)## [1] 690.218- Now let’s write a for loop that will sum up the run time of the movies in ‘Post Production’. That is, the function inside the for loop will check that the movie is in Post Production, and if it is, it will add the run time of that movie to a running total of movie run times. Pring the total run time of the post production movies (after the for loop, not within the for loop).
sum = 0
for (row in 1:nrow(movies)) {
if (movies$status[row] == "Post Production") {
sum <- sum + movies$runtime[row]
}
}
print(sum)## [1] 287- Now, let’s use the sort function to look for the films that have the highest revenue. Use the function to sort the revenue column with the largest number first.
sort(movies$revenue)## [1] 0 0 0 0 0 0
## [7] 0 0 0 0 0 0
## [13] 0 0 0 0 0 0
## [19] 0 0 0 0 0 0
## [25] 0 0 0 0 0 0
## [31] 0 0 0 0 0 0
## [37] 0 0 0 0 0 0
## [43] 0 0 0 0 0 0
## [49] 0 0 0 0 0 0
## [55] 0 0 0 0 0 0
## [61] 0 0 0 0 0 0
## [67] 0 0 0 0 0 0
## [73] 0 0 0 0 0 0
## [79] 0 0 0 0 0 0
## [85] 0 0 0 0 0 0
## [91] 0 0 0 0 0 0
## [97] 0 0 0 0 0 0
## [103] 0 0 0 0 0 0
## [109] 0 0 0 0 0 0
## [115] 0 0 0 0 0 0
## [121] 0 0 0 0 0 0
## [127] 0 0 0 0 0 0
## [133] 0 0 0 0 0 0
## [139] 0 0 0 0 0 0
## [145] 0 0 0 0 0 0
## [151] 0 0 0 0 0 0
## [157] 0 0 0 0 0 0
## [163] 0 0 0 0 0 0
## [169] 0 0 0 0 0 0
## [175] 0 0 0 0 0 0
## [181] 0 0 0 0 0 0
## [187] 0 0 0 0 0 0
## [193] 0 0 0 0 0 0
## [199] 0 0 0 0 0 0
## [205] 0 0 0 0 0 0
## [211] 0 0 0 0 0 0
## [217] 0 0 0 0 0 0
## [223] 0 0 0 0 0 0
## [229] 0 0 0 0 0 0
## [235] 0 0 0 0 0 0
## [241] 0 0 0 0 0 0
## [247] 0 0 0 0 0 0
## [253] 0 0 0 0 0 0
## [259] 0 0 0 0 0 0
## [265] 0 0 0 0 0 0
## [271] 0 0 0 0 0 0
## [277] 0 0 0 0 0 0
## [283] 0 0 0 0 0 0
## [289] 0 0 0 0 0 0
## [295] 0 0 0 0 0 0
## [301] 0 0 0 0 0 0
## [307] 0 0 0 0 0 0
## [313] 0 0 0 0 0 0
## [319] 0 0 0 0 0 0
## [325] 0 0 0 0 0 0
## [331] 0 0 0 0 0 0
## [337] 0 0 0 0 0 0
## [343] 0 0 0 0 0 0
## [349] 0 0 0 0 0 0
## [355] 0 0 0 0 0 0
## [361] 0 0 0 0 0 0
## [367] 0 0 0 0 0 0
## [373] 0 0 0 0 0 0
## [379] 0 0 0 0 0 0
## [385] 0 0 0 0 0 0
## [391] 0 0 0 0 0 0
## [397] 0 0 0 0 0 0
## [403] 0 0 0 0 0 0
## [409] 0 0 0 0 0 0
## [415] 0 0 0 0 0 0
## [421] 0 0 0 0 0 0
## [427] 0 0 0 0 0 0
## [433] 0 0 0 0 0 0
## [439] 0 0 0 0 0 0
## [445] 0 0 0 0 0 0
## [451] 0 0 0 0 0 0
## [457] 0 0 0 0 0 0
## [463] 0 0 0 0 0 0
## [469] 0 0 0 0 0 0
## [475] 0 0 0 0 0 0
## [481] 0 0 0 0 0 0
## [487] 0 0 0 0 0 0
## [493] 0 0 0 0 0 0
## [499] 0 0 0 0 0 0
## [505] 0 0 0 0 0 0
## [511] 0 0 0 0 0 0
## [517] 0 0 0 0 0 0
## [523] 0 0 0 0 0 0
## [529] 0 0 0 0 0 0
## [535] 0 0 0 0 0 0
## [541] 0 0 0 0 0 0
## [547] 0 0 0 0 0 0
## [553] 0 0 0 0 0 0
## [559] 0 0 0 0 0 0
## [565] 0 0 0 0 0 0
## [571] 0 0 0 0 0 0
## [577] 0 0 0 0 0 0
## [583] 0 0 0 0 0 0
## [589] 0 0 0 0 0 0
## [595] 0 0 0 0 0 0
## [601] 0 0 0 0 0 0
## [607] 0 0 0 0 0 0
## [613] 0 0 0 0 0 0
## [619] 0 0 0 0 0 0
## [625] 0 0 0 0 0 0
## [631] 0 0 0 0 0 0
## [637] 0 0 0 0 0 0
## [643] 0 0 0 0 0 0
## [649] 0 0 0 0 0 0
## [655] 0 0 0 0 0 0
## [661] 0 0 0 0 0 0
## [667] 0 0 0 0 0 0
## [673] 0 0 0 0 0 0
## [679] 0 0 0 0 0 0
## [685] 0 0 0 0 0 0
## [691] 0 0 0 0 0 0
## [697] 0 0 0 0 0 0
## [703] 0 0 0 0 0 0
## [709] 0 0 0 0 0 0
## [715] 0 0 0 0 0 0
## [721] 0 0 0 0 0 0
## [727] 0 0 0 0 0 0
## [733] 0 0 0 0 0 0
## [739] 0 0 0 0 0 0
## [745] 0 0 0 0 0 0
## [751] 0 0 0 0 0 0
## [757] 0 0 0 0 0 0
## [763] 0 0 0 0 0 0
## [769] 0 0 0 0 0 0
## [775] 0 0 0 0 0 0
## [781] 0 0 0 0 0 0
## [787] 0 0 0 0 0 0
## [793] 0 0 0 0 0 0
## [799] 0 0 0 0 0 0
## [805] 0 0 0 0 0 0
## [811] 0 0 0 0 0 0
## [817] 0 0 0 0 0 0
## [823] 0 0 0 0 0 0
## [829] 0 0 0 0 0 0
## [835] 0 0 0 0 0 0
## [841] 0 0 0 0 0 0
## [847] 0 0 0 0 0 0
## [853] 0 0 0 0 0 0
## [859] 0 0 0 0 0 0
## [865] 0 0 0 0 0 0
## [871] 0 0 0 0 0 0
## [877] 0 0 0 0 0 0
## [883] 0 0 0 0 0 0
## [889] 0 0 0 0 0 0
## [895] 0 0 0 0 0 0
## [901] 0 0 0 0 0 0
## [907] 0 0 0 0 0 0
## [913] 0 0 0 0 0 0
## [919] 0 0 0 0 0 0
## [925] 0 0 0 0 0 0
## [931] 0 0 0 0 0 0
## [937] 0 0 0 0 0 0
## [943] 0 0 0 0 0 0
## [949] 0 0 0 0 0 0
## [955] 0 0 0 0 0 0
## [961] 0 0 0 0 0 0
## [967] 0 0 0 0 0 0
## [973] 0 0 0 0 0 0
## [979] 0 0 0 0 0 0
## [985] 0 0 0 0 0 0
## [991] 0 0 0 0 0 0
## [997] 0 0 0 0 0 0
## [1003] 0 0 0 0 0 0
## [1009] 0 0 0 0 0 0
## [1015] 0 0 0 0 0 0
## [1021] 0 0 0 0 0 0
## [1027] 0 0 0 0 0 0
## [1033] 0 0 0 0 0 0
## [1039] 0 0 0 0 0 0
## [1045] 0 0 0 0 0 0
## [1051] 0 0 0 0 0 0
## [1057] 0 0 0 0 0 0
## [1063] 0 0 0 0 0 0
## [1069] 0 0 0 0 0 0
## [1075] 0 0 0 0 0 0
## [1081] 0 0 0 0 0 0
## [1087] 0 0 0 0 0 0
## [1093] 0 0 0 0 0 0
## [1099] 0 0 0 0 0 0
## [1105] 0 0 0 0 0 0
## [1111] 0 0 0 0 0 0
## [1117] 0 0 0 0 0 0
## [1123] 0 0 0 0 0 0
## [1129] 0 0 0 0 0 0
## [1135] 0 0 0 0 0 0
## [1141] 0 0 0 0 0 0
## [1147] 0 0 0 0 0 0
## [1153] 0 0 0 0 0 0
## [1159] 0 0 0 0 0 0
## [1165] 0 0 0 0 0 0
## [1171] 0 0 0 0 0 0
## [1177] 0 0 0 0 0 0
## [1183] 0 0 0 0 0 0
## [1189] 0 0 0 0 0 0
## [1195] 0 0 0 0 0 0
## [1201] 0 0 0 0 0 0
## [1207] 0 0 0 0 0 0
## [1213] 0 0 0 0 0 0
## [1219] 0 0 0 0 0 0
## [1225] 0 0 0 0 0 0
## [1231] 0 0 0 0 0 0
## [1237] 0 0 0 0 0 0
## [1243] 0 0 0 0 0 0
## [1249] 0 0 0 0 0 0
## [1255] 0 0 0 0 0 0
## [1261] 0 0 0 0 0 0
## [1267] 0 0 0 0 0 0
## [1273] 0 0 0 0 0 0
## [1279] 0 0 0 0 0 0
## [1285] 0 0 0 0 0 0
## [1291] 0 0 0 0 0 0
## [1297] 0 0 0 0 0 0
## [1303] 0 0 0 0 0 0
## [1309] 0 0 0 0 0 0
## [1315] 0 0 0 0 0 0
## [1321] 0 0 0 0 0 0
## [1327] 0 0 0 0 0 0
## [1333] 0 0 0 0 0 0
## [1339] 0 0 0 0 0 0
## [1345] 0 0 0 0 0 0
## [1351] 0 0 0 0 0 0
## [1357] 0 0 0 0 0 0
## [1363] 0 0 0 0 0 0
## [1369] 0 0 0 0 0 0
## [1375] 0 0 0 0 0 0
## [1381] 0 0 0 0 0 0
## [1387] 0 0 0 0 0 0
## [1393] 0 0 0 0 0 0
## [1399] 0 0 0 0 0 0
## [1405] 0 0 0 0 0 0
## [1411] 0 0 0 0 0 0
## [1417] 0 0 0 0 0 0
## [1423] 0 0 0 0 0 5
## [1429] 7 7 10 11 11 12
## [1435] 12 13 14 15 16 23
## [1441] 25 25 46 51 92 103
## [1447] 126 203 792 1632 3330 6399
## [1453] 7202 9069 10000 10018 10508 14870
## [1459] 14873 17472 17479 20380 22000 23000
## [1465] 25000 30471 30905 31081 32000 32251
## [1471] 33245 40542 42145 44462 45000 45779
## [1477] 46488 46495 53086 54207 56825 62852
## [1483] 66351 69497 71904 73706 76382 76901
## [1489] 78396 95000 98017 99000 103735 107559
## [1495] 108348 110197 111300 111731 113783 120000
## [1501] 120620 123509 124494 126247 140666 140987
## [1507] 143451 146402 150277 171760 173066 187112
## [1513] 187674 188126 209696 222000 229094 246574
## [1519] 258384 271841 274661 295750 302204 303877
## [1525] 305070 316472 317000 318982 319285 321952
## [1531] 324138 330048 336472 343341 346594 354704
## [1537] 355688 373967 374743 381420 382174 382946
## [1543] 390659 399611 413454 414404 416498 416925
## [1549] 418961 424760 426224 439564 444575 453079
## [1555] 458232 464000 469947 480314 480811 495303
## [1561] 500000 501818 523511 528972 529766 530048
## [1567] 531826 553171 553198 560069 563706 565592
## [1573] 572809 573335 589304 598645 600896 603943
## [1579] 619042 621951 622806 623528 623791 632542
## [1585] 635096 638641 639000 641100 650422 653621
## [1591] 658573 669276 674918 676698 712294 742898
## [1597] 744816 748453 754249 771499 773228 777423
## [1603] 782102 814666 819939 841733 845188 846704
## [1609] 852206 852872 864659 866999 869325 871279
## [1615] 876302 882290 900000 970816 973525 1000000
## [1621] 1001437 1046166 1053788 1072602 1083683 1100000
## [1627] 1104682 1151330 1162014 1165882 1185783 1200000
## [1633] 1227324 1237615 1243961 1246141 1270522 1281176
## [1639] 1296184 1310673 1332231 1333124 1397284 1400000
## [1645] 1406224 1429299 1431623 1477002 1477676 1500000
## [1651] 1521261 1548955 1569918 1631839 1644755 1667192
## [1657] 1672730 1675706 1678874 1686429 1744858 1750211
## [1663] 1755212 1759252 1776935 1784763 1826705 1831348
## [1669] 1919197 1943649 1969193 1980338 1984662 1997807
## [1675] 2000000 2019009 2025032 2025238 2040920 2057193
## [1681] 2062066 2074000 2106557 2119994 2120439 2122561
## [1687] 2154540 2154696 2200000 2200000 2260712 2275557
## [1693] 2277396 2281000 2281089 2295733 2297493 2300000
## [1699] 2336172 2357852 2365467 2375097 2400000 2401510
## [1705] 2405420 2415472 2426851 2450846 2451545 2455831
## [1711] 2466444 2474000 2500000 2506446 2527904 2570000
## [1717] 2592808 2611555 2614773 2620000 2636637 2736000
## [1723] 2801508 2807390 2807854 2816116 2832826 2849142
## [1729] 2850263 2856712 2861020 2891288 2899975 2944752
## [1735] 2945242 2945600 2955039 2956000 2957978 2995811
## [1741] 3000000 3003296 3011195 3031801 3049135 3052000
## [1747] 3076820 3094813 3099314 3102550 3123963 3148182
## [1753] 3151130 3166000 3193102 3200000 3200000 3202000
## [1759] 3220371 3221152 3263585 3275585 3283371 3324330
## [1765] 3325038 3347647 3387000 3412497 3432342 3442853
## [1771] 3453043 3468572 3484331 3500000 3533227 3538446
## [1777] 3542353 3566225 3566637 3606395 3665069 3727746
## [1783] 3758328 3830137 3878993 3897569 3897799 3964682
## [1789] 3983997 4000000 4000000 4000000 4001121 4007792
## [1795] 4037782 4040588 4064495 4069090 4069826 4074023
## [1801] 4100000 4105187 4109095 4152230 4159678 4186931
## [1807] 4217115 4235151 4242978 4245870 4270000 4291965
## [1813] 4300000 4350774 4358000 4386236 4398989 4417580
## [1819] 4420000 4440055 4488529 4500000 4505922 4562146
## [1825] 4601043 4607608 4630045 4634062 4651977 4720371
## [1831] 4750000 4777465 4842699 4857367 4865000 4884663
## [1837] 4911725 4922166 4939939 5000000 5000000 5000000
## [1843] 5000000 5001655 5024782 5028948 5048693 5108820
## [1849] 5129058 5164404 5179037 5200000 5210988 5217498
## [1855] 5271666 5284309 5310554 5321508 5332926 5355847
## [1861] 5359645 5363000 5364858 5380251 5400000 5405500
## [1867] 5409517 5410749 5476060 5476793 5483299 5496951
## [1873] 5530764 5535405 5542025 5596708 5634828 5659286
## [1879] 5684789 5728213 5731103 5761917 5778353 5802422
## [1885] 5837674 5867686 5887457 5900000 5914908 5923044
## [1891] 5926410 5967038 5989640 6000000 6000000 6000000
## [1897] 6000000 6000000 6003587 6033999 6038942 6108720
## [1903] 6110000 6126237 6212282 6230276 6294161 6405245
## [1909] 6413915 6416302 6420319 6451628 6482195 6490401
## [1915] 6491240 6500000 6538177 6575282 6600000 6614280
## [1921] 6670712 6673422 6706368 6735922 6739141 6754898
## [1927] 6800000 6800000 6804016 6808550 6814789 6833445
## [1933] 6842058 6852450 6854611 6861102 6892000 6928068
## [1939] 6948633 7000000 7000000 7000000 7000000 7000000
## [1945] 7000000 7002261 7011317 7018189 7022209 7022728
## [1951] 7060876 7103838 7103973 7177143 7200000 7230000
## [1957] 7266209 7267585 7282851 7292175 7314027 7390108
## [1963] 7400000 7412216 7433101 7434726 7448385 7518876
## [1969] 7563728 7587485 7600000 7659918 7800000 7800000
## [1975] 7800000 7808524 7820688 7830611 7871522 7900000
## [1981] 7938872 7972967 7993039 8000000 8000000 8000000
## [1987] 8000000 8000000 8000000 8025872 8026971 8038061
## [1993] 8109160 8138788 8159508 8176544 8200000 8203235
## [1999] 8220215 8279017 8345056 8371085 8373585 8394751
## [2005] 8434146 8454301 8459458 8493890 8500000 8500000
## [2011] 8555008 8586376 8613462 8679814 8720000 8762890
## [2017] 8784318 8801940 8844595 8880705 8888143 8900000
## [2023] 8936663 9000000 9000000 9012000 9016377 9109322
## [2029] 9132000 9138338 9172000 9206470 9237470 9250000
## [2035] 9304609 9323833 9366227 9440272 9450897 9455232
## [2041] 9479718 9482579 9489829 9494789 9495408 9500000
## [2047] 9584131 9600000 9600000 9622846 9627492 9636289
## [2053] 9644124 9700000 9726954 9760104 9789900 9793496
## [2059] 9851610 9879971 9898412 9902115 9930095 10000000
## [2065] 10000000 10000000 10000000 10000000 10011050 10013424
## [2071] 10017322 10037390 10047674 10070000 10089373 10126458
## [2077] 10130000 10166502 10178331 10229331 10300000 10324441
## [2083] 10329747 10337387 10337477 10372291 10382407 10400000
## [2089] 10400000 10409377 10422387 10424470 10429707 10442808
## [2095] 10443316 10462500 10496317 10501938 10539000 10541523
## [2101] 10571408 10589102 10629321 10652035 10652498 10667893
## [2107] 10680275 10686841 10696210 10700000 10719357 10725228
## [2113] 10827816 10835752 10848783 10903846 10959475 11000000
## [2119] 11000000 11000000 11000000 11087569 11098131 11110975
## [2125] 11122090 11125849 11130889 11137801 11176469 11203026
## [2131] 11207130 11212294 11263966 11293663 11301649 11341016
## [2137] 11417362 11466088 11502151 11540607 11560806 11588205
## [2143] 11642254 11718595 11744471 11772461 11806119 11833696
## [2149] 11850214 11947954 12000000 12000000 12000000 12000000
## [2155] 12000000 12007070 12021272 12036149 12077441 12200000
## [2161] 12206028 12232628 12281551 12299668 12314651 12342632
## [2167] 12348905 12372410 12376563 12379402 12382362 12398628
## [2173] 12400000 12482775 12506188 12532777 12600000 12633747
## [2179] 12639297 12671300 12764201 12800000 12827813 12902790
## [2185] 12923936 13000000 13000000 13000000 13001257 13007551
## [2191] 13008928 13060843 13092000 13100000 13101672 13110448
## [2197] 13129846 13196245 13231461 13269963 13350369 13368437
## [2203] 13391174 13395939 13401952 13411957 13521829 13551174
## [2209] 13555988 13596911 13620075 13644292 13678913 13681765
## [2215] 13700000 13801755 13831503 13835130 13854000 13885802
## [2221] 13960203 14000000 14000000 14000000 14000000 14010832
## [2227] 14011454 14056528 14109284 14110013 14144000 14237000
## [2233] 14334401 14348529 14358033 14373825 14375181 14400000
## [2239] 14400000 14400000 14431253 14460000 14500000 14564027
## [2245] 14567883 14618727 14661007 14674076 14702438 14708696
## [2251] 14711793 14782676 14796236 14821658 14822346 14828081
## [2257] 14867514 14899417 14980005 15000000 15000000 15007991
## [2263] 15008161 15071514 15116634 15134293 15156200 15179302
## [2269] 15200000 15250000 15304890 15368897 15369573 15395087
## [2275] 15400000 15427192 15431177 15436808 15447154 15473333
## [2281] 15478800 15520023 15608545 15699707 15700000 15785148
## [2287] 15795189 15843608 15861566 15938065 15992615 16017403
## [2293] 16123851 16153593 16174377 16178959 16290976 16374328
## [2299] 16491080 16519460 16549477 16566240 16605763 16633035
## [2305] 16671505 16700000 16702864 16757163 16800000 16829545
## [2311] 16838910 16856124 16863583 16872671 16900000 16929123
## [2317] 16930185 16930884 16942795 16951798 16974459 16980098
## [2323] 16991902 17000000 17000000 17000000 17080167 17096053
## [2329] 17137302 17164377 17193231 17200925 17218080 17273593
## [2335] 17280326 17286299 17292381 17297244 17300889 17380126
## [2341] 17385830 17425000 17432163 17436509 17460020 17500000
## [2347] 17507368 17508518 17511906 17519169 17570324 17600000
## [2353] 17626234 17654912 17671101 17693675 17709155 17752940
## [2359] 17762705 17768757 17800000 17807569 17869048 17872796
## [2365] 17985893 17986781 18000000 18016290 18074539 18090181
## [2371] 18112929 18124262 18195610 18197398 18253415 18317151
## [2377] 18344729 18409891 18432000 18469680 18492362 18535191
## [2383] 18552460 18564088 18618284 18626419 18637690 18653615
## [2389] 18662027 18663238 18720175 18750246 18755936 18814720
## [2395] 18902015 18928871 18948425 18999718 19000000 19125401
## [2401] 19152480 19170001 19179969 19184015 19204929 19255873
## [2407] 19271312 19294144 19294901 19300000 19322135 19351569
## [2413] 19406406 19412993 19422261 19472057 19478106 19480739
## [2419] 19504039 19560274 19598588 19629760 19682924 19693891
## [2425] 19701164 19777647 19800000 19829957 19839492 19844979
## [2431] 19870567 19905359 19924033 20000000 20000000 20080020
## [2437] 20117339 20138836 20158808 20211394 20217080 20256975
## [2443] 20275812 20342161 20350754 20374201 20400000 20416563
## [2449] 20423389 20455276 20529194 20566327 20627372 20645327
## [2455] 20659423 20710513 20719451 20766616 20796847 20908467
## [2461] 20915465 20966644 21000000 21001563 21009180 21028755
## [2467] 21049053 21107746 21126225 21133087 21148829 21164799
## [2473] 21170563 21268532 21284514 21378361 21400000 21409028
## [2479] 21500000 21510851 21520719 21567853 21571189 21587700
## [2485] 21722776 21786738 21800302 21817298 21819348 21834845
## [2491] 21930418 22000000 22034832 22044277 22165608 22168359
## [2497] 22179430 22200000 22211426 22222308 22309223 22400154
## [2503] 22433915 22441323 22456509 22593409 22730842 22852638
## [2509] 22863596 22889018 22921898 22939027 22942221 22944502
## [2515] 23000000 23006849 23057115 23081726 23144499 23159305
## [2521] 23198652 23237911 23311391 23321954 23341568 23367586
## [2527] 23430766 23507567 23563727 23580000 23619609 23650000
## [2533] 23689877 23803308 23875127 23936908 23937870 23978402
## [2539] 24000000 24000000 24007324 24048000 24127895 24145613
## [2545] 24159934 24185781 24188922 24261569 24332324 24362772
## [2551] 24475416 24538513 24600832 24637469 24719215 24748670
## [2557] 24769466 24793509 24804129 24829644 24902723 24911670
## [2563] 24922237 25000000 25000000 25000000 25000000 25023434
## [2569] 25035950 25037897 25052000 25059640 25105255 25147786
## [2575] 25224242 25288872 25303038 25312387 25345000 25405445
## [2581] 25434291 25473093 25482931 25504513 25562924 25605015
## [2587] 25739015 25754284 25819961 25836616 25871834 25928721
## [2593] 25966555 26010864 26049082 26096852 26121638 26155781
## [2599] 26193068 26199517 26250020 26288320 26527510 26673242
## [2605] 26781723 26828365 26888376 27000000 27007143 27053815
## [2611] 27092880 27105095 27107960 27165581 27187375 27187653
## [2617] 27200316 27206120 27281507 27330000 27362712 27388767
## [2623] 27409889 27437881 27462041 27500000 27515786 27603069
## [2629] 27610873 27635305 27640028 27642707 27645491 27674124
## [2635] 27728118 27900000 28008462 28084357 28121100 28169671
## [2641] 28200000 28200000 28215918 28258060 28262574 28283637
## [2647] 28341469 28350000 28451622 28575078 28650575 28780255
## [2653] 28814580 28818995 28831145 28883511 28931401 28972508
## [2659] 29000000 29000000 29010817 29027914 29174648 29202884
## [2665] 29331068 29381649 29385320 29392418 29400000 29400000
## [2671] 29450919 29506464 29536299 29541790 29548291 29657751
## [2677] 29700000 29762011 29882645 29907685 29922472 29999213
## [2683] 30000000 30000000 30000000 30016165 30039392 30050028
## [2689] 30102717 30114487 30127963 30199105 30226144 30303072
## [2695] 30331165 30353232 30400000 30411183 30418560 30426096
## [2701] 30448000 30500000 30523226 30536013 30551495 30641770
## [2707] 30652890 30749142 30800231 30857814 30859000 30925690
## [2713] 30987695 31063038 31070211 31083599 31148328 31155435
## [2719] 31179516 31327899 31430334 31466789 31554855 31556061
## [2725] 31584901 31596911 31670620 31672907 31678778 31720158
## [2731] 31724284 31755742 31899000 31911598 31912793 32000000
## [2737] 32000000 32000000 32005248 32017803 32101000 32168970
## [2743] 32204030 32222567 32230907 32248241 32255440 32287044
## [2749] 32392047 32438988 32483410 32556119 32645546 32721635
## [2755] 32726956 32801173 32935319 32973937 32980880 33000000
## [2761] 33000337 33013805 33082548 33139618 33300000 33333531
## [2767] 33372606 33395426 33400000 33400000 33456317 33463969
## [2773] 33472850 33526835 33561137 33583175 33616692 33697647
## [2779] 33754967 33771174 33788161 33828318 33889159 33956608
## [2785] 33965843 34000000 34077920 34153101 34227298 34234008
## [2791] 34266564 34411240 34416893 34441873 34505110 34522221
## [2797] 34533783 34560577 34566746 34573780 34585416 34670720
## [2803] 34705850 34742066 34793160 34808403 34854990 34872033
## [2809] 34942188 35007180 35057696 35078241 35097815 35134820
## [2815] 35168966 35287788 35294470 35323292 35387212 35401758
## [2821] 35402320 35424826 35431113 35485056 35485608 35564473
## [2827] 35619521 35692920 35743308 35763605 35841901 35926213
## [2833] 36000000 36000000 36037909 36098382 36133014 36160375
## [2839] 36230219 36348784 36351350 36433975 36450736 36606743
## [2845] 36609995 36620508 36642838 36690067 36733909 36754634
## [2851] 36800000 36850101 36869414 36893721 36993168 37000000
## [2857] 37036004 37170057 37295445 37311672 37317558 37402877
## [2863] 37597471 37600000 37664855 37672350 37710610 37799643
## [2869] 37823676 37930465 37962774 38000000 38058335 38085778
## [2875] 38105395 38119483 38122105 38159905 38172500 38251425
## [2881] 38275483 38307627 38368909 38376497 38399961 38413606
## [2887] 38502340 38535221 38574362 38629478 38697217 38748395
## [2893] 38793283 38869464 38955598 38992758 39031337 39041505
## [2899] 39053061 39143839 39171130 39187783 39267515 39300000
## [2905] 39340177 39363635 39407616 39421467 39438674 39459427
## [2911] 39462438 39514713 39673162 39723096 39846344 40000000
## [2917] 40002112 40031879 40055439 40100000 40105542 40203020
## [2923] 40222729 40263020 40283321 40346186 40382659 40423945
## [2929] 40452643 40485039 40492759 40547440 40828540 40846082
## [2935] 40855419 41037742 41158757 41170784 41205099 41227069
## [2941] 41237648 41296320 41299492 41382841 41400000 41410568
## [2947] 41424067 41480851 41482207 41512007 41590886 41596251
## [2953] 41597830 41604473 41610884 41627431 41797066 41819064
## [2959] 41833347 41863726 41895491 41954997 42000000 42000000
## [2965] 42045846 42064105 42093706 42105111 42277365 42285169
## [2971] 42333295 42345360 42365581 42487390 42647449 42664410
## [2977] 42776760 42792561 42886719 42930462 42931041 42972994
## [2983] 43000000 43058898 43061982 43101594 43165571 43312294
## [2989] 43318349 43493123 43528634 43545364 43650785 43656822
## [2995] 43848069 43884652 43928932 43967255 43984230 44000000
## [3001] 44000000 44017374 44030246 44091067 44107032 44196684
## [3007] 44287131 44349000 44350926 44352417 44434439 44460850
## [3013] 44547681 44703995 44726644 44785053 44793222 44862187
## [3019] 44907260 44909486 45236543 45300000 45479110 45554533
## [3025] 45636368 45710059 45892212 45916769 46000000 46069568
## [3031] 46089287 46118097 46152800 46189568 46216641 46221189
## [3037] 46243000 46442528 46471023 46546197 46683377 46770602
## [3043] 46836394 46905889 47042000 47088990 47126295 47175038
## [3049] 47231070 47241945 47301471 47351251 47383689 47434430
## [3055] 47536959 47542841 47664559 47801389 48027970 48063435
## [3061] 48065672 48126384 48169156 48169908 48190704 48428063
## [3067] 48451803 48531470 48548426 48572000 48668907 48814909
## [3073] 48902953 49000000 49002684 49084830 49111202 49469904
## [3079] 49554002 49627779 49718611 49779728 49797148 49800000
## [3085] 49830607 50000000 50007546 50041732 50068310 50100000
## [3091] 50159144 50244700 50315140 50363790 50365377 50451307
## [3097] 50549107 50650079 50671850 50750000 50752337 50871113
## [3103] 50877145 50907234 50907422 51053787 51070807 51132598
## [3109] 51142659 51148651 51164106 51376861 51416464 51680201
## [3115] 51702483 51801187 51842679 51854875 51881013 51973029
## [3121] 52034889 52099090 52223306 52277485 52287414 52293982
## [3127] 52302796 52304001 52322400 52424533 52425855 52501541
## [3133] 52597999 52826594 52882018 52970014 53000000 53181600
## [3139] 53187659 53191886 53208180 53302314 53478166 53587404
## [3145] 53653224 53825515 53830415 53854588 53909751 53977250
## [3151] 54000000 54215416 54249294 54418872 54586584 54600000
## [3157] 54667954 54674226 54682547 54700105 54744738 54819301
## [3163] 54837234 54926886 54956140 55003135 55041367 55112356
## [3169] 55157539 55181129 55184721 55198285 55247881 55260558
## [3175] 55447968 55495563 55534455 55583804 55707411 55969000
## [3181] 55987321 56070433 56255142 56298474 56308881 56309766
## [3187] 56359980 56422687 56489558 56505065 56681566 56702901
## [3193] 56714147 56870414 56932305 57096190 57103895 57120318
## [3199] 57223890 57231524 57469467 57479076 57490374 57500000
## [3205] 57504069 57588485 57777106 57881056 57891803 57958696
## [3211] 58000000 58058367 58401898 58405313 58785180 58795814
## [3217] 58853106 58900031 58972904 58978653 59192128 59217789
## [3223] 59389433 59418613 59468275 59520298 59600000 59827328
## [3229] 59901913 60000000 60000000 60000000 60052138 60072596
## [3235] 60141683 60161391 60209334 60222298 60251371 60289912
## [3241] 60328000 60378584 60427839 60462347 60474340 60527873
## [3247] 60700000 60722734 60740827 60780981 60874615 60896147
## [3253] 60922980 60965854 61112916 61141030 61181942 61279452
## [3259] 61347797 61399552 61458982 61489265 61548707 61619773
## [3265] 61648500 61698899 62022014 62076141 62112895 62172050
## [3271] 62357900 62548947 62616646 62646763 62771059 62882090
## [3277] 63013281 63100000 63102666 63215872 63327201 63372757
## [3283] 63408614 63464861 63647656 63781810 63782078 63800345
## [3289] 63833449 64076736 64088552 64110728 64188367 64238440
## [3295] 64256513 64282312 64321501 64352607 64437847 64445708
## [3301] 64459316 64572262 64626786 64822796 65070412 65464324
## [3307] 65535067 65569869 65663276 65664721 65705772 65754228
## [3313] 65884703 65900249 65977295 66002004 66122026 66468332
## [3319] 66486080 66787908 66821036 66966987 66976317 66980456
## [3325] 67112664 67182787 67192859 67200000 67312826 67347013
## [3331] 67631903 67683989 67738090 67800064 67918658 68106245
## [3337] 68233629 68263166 68267862 68296293 68349884 68369434
## [3343] 68411275 68514844 68572378 68673228 68688831 68696770
## [3349] 68700000 68706993 68729358 68766121 68896829 68915888
## [3355] 68929150 69055695 69131860 69307224 69411370 69425966
## [3361] 69485490 69623713 69631118 69700000 69701637 69821334
## [3367] 69823199 69834815 69959751 69995385 70000000 70000000
## [3373] 70016220 70067909 70100000 70181428 70200000 70442940
## [3379] 70687344 70906973 70992898 71000000 71009334 71069884
## [3385] 71073932 71154592 71441250 71485043 71561644 71625195
## [3391] 71664962 71868327 72070731 72108608 72178895 72258126
## [3397] 72417394 72436439 72500000 72527595 72629670 72700000
## [3403] 72778712 72779000 73034460 73100172 73174566 73180723
## [3409] 73244881 73276047 73326666 73648228 73762516 73956241
## [3415] 74000000 74188937 74208267 74237563 74541707 74558115
## [3421] 74597643 74608570 74787599 74901339 74952305 75000000
## [3427] 75225693 75395048 75450437 75505856 75505973 75511123
## [3433] 75597042 75700498 75715436 75781642 75850624 75902208
## [3439] 75993061 76000000 76270454 76286096 76432727 76488889
## [3445] 76514050 76578641 76586316 76657000 76669806 76932943
## [3451] 77000000 77000000 77112176 77208711 77278331 77477008
## [3457] 77516304 77566815 77628265 77712439 77737889 77745568
## [3463] 77920346 77944725 78000000 78000586 78054825 78309131
## [3469] 78371200 78378744 78382433 78636257 78874843 78898765
## [3475] 79114085 79384880 79567667 79700000 79817939 79958599
## [3481] 80035402 80049764 80197993 80383290 80547866 80573774
## [3487] 80578934 80916492 80936232 81272766 81974493 82087155
## [3493] 82102379 82150642 82169884 82394288 82466670 82719885
## [3499] 82800000 82966152 83160734 83188165 83258226 83282296
## [3505] 83304330 83320000 83453539 83557872 83615414 83707310
## [3511] 83719388 83761844 84025816 84146832 84300000 84460846
## [3517] 84601681 84606030 84646831 84772742 84785914 85000000
## [3523] 85131830 85167639 85280250 85300000 85306374 85412898
## [3529] 85416905 85446075 85498534 85512300 85564310 85582407
## [3535] 85632458 85978266 86175291 86273333 86362372 86369815
## [3541] 86387857 86658558 86758912 86865564 86915017 86930411
## [3547] 87000000 87055349 87100449 87713825 87754044 87784194
## [3553] 87840042 88058786 88323487 88346473 88489643 88715192
## [3559] 88880821 88923251 89162162 89289910 89328627 89456761
## [3565] 89460381 89519773 89792502 89800000 90000098 90029656
## [3571] 90247624 90259536 90383208 90400000 90426405 90449929
## [3577] 90450008 90508336 90565421 90574188 90683916 90810892
## [3583] 90815558 90874570 91036760 91038276 91188905 91196419
## [3589] 91353501 91636986 91709827 91753202 91974818 92180910
## [3595] 92219310 92374674 92380927 92542418 92601050 92823546
## [3601] 92863945 92913171 92921203 92991835 93246388 93282604
## [3607] 93354918 93375151 93525586 93617009 93700000 93772522
## [3613] 93820758 93945766 94000000 94000000 94061311 94073028
## [3619] 94679598 94728529 94882889 94935764 95000000 95020213
## [3625] 95149435 95226116 95311434 95404397 95608995 95696996
## [3631] 95708457 95714875 96047633 96060858 96070507 96085477
## [3637] 96105964 96188903 96269812 96408652 96455697 96618699
## [3643] 96800000 96889998 96900000 96976270 97009150 97138686
## [3649] 97437106 97542952 97552050 97571250 97572000 97594140
## [3655] 97607453 97837138 97918663 98126565 98159963 98185582
## [3661] 98235548 98337295 98410061 98441954 98450062 98837872
## [3667] 99067206 99206215 99318987 99357138 99423521 99965753
## [3673] 100000000 100000000 100000000 100000000 100000000 100020092
## [3679] 100076342 100086793 100129872 100138851 100230832 100491683
## [3685] 100523181 100525432 100654149 100734718 100853753 100860818
## [3691] 100914445 101134059 101229792 101332962 101371017 101564935
## [3697] 101595121 101624843 101646581 101702060 101758490 102000000
## [3703] 102000000 102244770 102272727 102308889 102356381 102391382
## [3709] 102820008 102825796 102854431 102984862 103039258 103166989
## [3715] 103215094 103590271 103738726 103891409 103911669 103951461
## [3721] 104155843 104303851 104324083 104384188 104399548 104478416
## [3727] 104876233 104907746 104931801 104945765 105173115 105178561
## [3733] 105197635 105200903 105316267 105834556 106269971 106303988
## [3739] 106371651 107139399 107196498 107217396 107458785 107597242
## [3745] 107670357 107879496 107944236 108000000 108047131 108103450
## [3751] 108145109 108255770 108286421 108539911 108609310 108758521
## [3757] 108782847 108981275 109423648 109449237 109502303 109578115
## [3763] 109676311 109862682 109906372 110000000 110000000 110206216
## [3769] 110230332 110627965 110803676 110879513 111231041 111340801
## [3775] 111584787 111811453 111858363 112265139 112343513 112483764
## [3781] 112544580 113006880 113019290 113020255 113086475 113280098
## [3787] 113309743 113374103 113714830 113857533 113916474 114156230
## [3793] 114178613 114194847 114281051 114660784 114663461 114830111
## [3799] 114908830 114956699 114977104 115101622 115229890 115267375
## [3805] 115350426 115505027 115603229 115772733 115922175 116019547
## [3811] 116112375 116400000 116643346 116672912 116700000 116766556
## [3817] 116980662 117000000 117195061 117224271 117235147 117487473
## [3823] 117615211 117698894 117719158 117758500 117760134 117831631
## [3829] 118000000 118063304 118338361 118587880 118880016 119000410
## [3835] 119100758 119114517 119137784 119208989 119269486 119500000
## [3841] 119723358 119723856 119754278 119772232 119940815 120000000
## [3847] 120072577 120081841 120175290 120455994 121147947 121214377
## [3853] 121463226 121545703 121697323 121969216 122126687 122195920
## [3859] 122200000 122233971 122444772 122489822 122513057 122563539
## [3865] 122644820 122915111 122919055 123307945 123384128 123494610
## [3871] 123726688 123729176 123922370 124272124 124305181 124596398
## [3877] 124731534 124827316 124881062 124914842 125212904 125537191
## [3883] 125586134 125728258 126041322 126069509 126216940 126248813
## [3889] 126546518 126546825 126690726 127392239 127600435 127666415
## [3895] 127730736 127814609 127869379 127906624 128107642 128388320
## [3901] 128499205 128769345 128798265 128884132 128905366 129000000
## [3907] 129042871 129181830 129266061 129394835 129540499 129832389
## [3913] 130293714 130358911 130431368 130482868 130786397 131183530
## [3919] 131282949 131457682 131940411 132180323 132274484 132511035
## [3925] 132675402 132820716 132900000 133000000 133346506 133432856
## [3931] 133718711 133821816 134402450 134748021 135000000 135330182
## [3937] 135560026 135680000 136000000 136150434 136159423 136267476
## [3943] 136621271 136706683 136766062 136836156 136885767 136982834
## [3949] 137298489 137551594 137587063 138259062 138530565 139000000
## [3955] 139352633 139804348 140000000 140073390 140161792 140175006
## [3961] 140464664 140470746 140752617 140767956 140795793 140807547
## [3967] 141000000 141047179 141069860 141195658 141220678 141407024
## [3973] 141591324 141702264 141774679 142044638 142400065 142817992
## [3979] 142851197 142940100 143049560 143695338 144000000 144056873
## [3985] 144216468 144492830 145000000 145771527 145793296 145896422
## [3991] 146198896 146292009 146497771 146936910 147080413 147298761
## [3997] 147332697 147780440 147845033 147880543 147934180 148336445
## [4003] 148412065 149022650 149044513 149217355 149270999 149281606
## [4009] 149295601 149673788 149705852 150000000 150166126 150270147
## [4015] 150406466 150483765 150680864 150816700 150962475 151119219
## [4021] 151161491 151493655 151668774 151831537 152022101 152036382
## [4027] 152159461 152263880 152266007 152427960 152500343 152925093
## [4033] 152930623 152944660 153083102 153962963 153997819 154026136
## [4039] 154648887 154749918 154864401 154906693 154937680 154984035
## [4045] 155010032 155446362 155464351 155545279 155721132 155760117
## [4051] 156167015 156505388 156822020 156835339 156844753 156974557
## [4057] 157107755 157387195 157887643 157920733 158162788 158468292
## [4063] 158674180 158733820 159157447 159212469 159291809 159330280
## [4069] 159375308 159616327 159773545 160000000 160078586 160112671
## [4075] 160259319 160388063 160583018 160602194 160638883 161001698
## [4081] 161025640 161451538 161626121 161772375 161777836 161834276
## [4087] 162000000 162091208 162242962 162839667 162944923 162945894
## [4093] 162949164 162966177 163403799 163442937 163670000 163712074
## [4099] 163720069 163733697 163876815 164000000 164433867 164508066
## [4105] 164602163 165184237 165333180 165335153 165478348 165615285
## [4111] 167221571 167298192 167722310 167805466 167977596 168167691
## [4117] 169327687 169837010 169852759 169956806 170000000 170128460
## [4123] 170268750 170362582 170432927 170764026 170877916 171120329
## [4129] 171183863 171269535 171600000 171757863 171844840 171963386
## [4135] 172363301 172855065 172989651 173000000 173013509 173046663
## [4141] 173398518 173567581 173649015 173921954 173930596 173959438
## [4147] 173965010 174578751 174600318 175372502 176070171 176104344
## [4153] 176885658 177200000 177243185 177259441 177371441 177394432
## [4159] 177512032 177584879 177841558 177977226 178043761 178051587
## [4165] 178066569 178127760 178262620 179213434 179246868 179265204
## [4171] 179379533 180274123 180622424 180949000 181000000 181001478
## [4177] 181466833 181674817 181813770 182016617 182290266 182300000
## [4183] 183018522 183293131 183316455 183345589 183474602 183611771
## [4189] 183936074 183953723 183987723 184376254 184925486 185258983
## [4195] 185438673 185770160 185991646 186053725 186167139 186438883
## [4201] 186883563 187000000 187361754 187479518 187500000 187884007
## [4207] 188072649 188133322 188441614 189015611 189198313 189833357
## [4213] 189859560 190212113 190213455 190320568 190458706 191185897
## [4219] 191502426 192330738 192452832 193000000 193355800 193677158
## [4225] 193772504 194168700 194564672 195268056 195312802 195735876
## [4231] 196114570 196397415 196482882 196781193 197011982 197309027
## [4237] 197687603 198685114 199200000 200276000 200804534 201584141
## [4243] 201585328 201596308 201634991 201957688 202026112 202292902
## [4249] 202466756 203277636 203388341 203427584 204594016 204999686
## [4255] 205298907 205366737 205405498 205703818 205738714 205754447
## [4261] 206172544 206678440 207283925 207515725 207945075 208076205
## [4267] 209154322 209196298 210000000 210308099 210819611 211643158
## [4273] 211780824 211817906 211989043 212000000 212011111 212385533
## [4279] 212404396 212874442 212902372 213525736 213928762 214015089
## [4285] 214034224 214104620 214918407 215000000 215283742 215294342
## [4291] 215529201 215663859 215862692 215887717 216197492 216485654
## [4297] 216614388 216763646 216972543 217022588 217764291 218340595
## [4303] 218613188 219076518 219103655 219417255 219851172 220673217
## [4309] 222104681 222231186 222809600 223387299 223664608 224012234
## [4315] 224803475 224834564 224920315 225933435 225990978 226497209
## [4321] 226830568 226904017 227817248 228738393 229074524 229147509
## [4327] 229736344 230685453 231411584 231449203 231976425 232324128
## [4333] 232617430 232713139 233093859 233555708 233755553 234710455
## [4339] 234801895 234989584 235483004 235860116 235926552 236350661
## [4345] 237202299 237382724 237681299 238207122 239606210 240031094
## [4351] 240159255 242295562 242688965 242786137 242988466 243240178
## [4357] 243400000 243637091 243843127 244082376 244527583 244931766
## [4363] 245066411 245360480 245527149 245623848 245676146 245724603
## [4369] 246233113 246984278 247275374 248000000 248118121 248384621
## [4375] 249288105 250200000 250288523 250649836 250821495 251171807
## [4381] 252276927 253625427 254134910 254455986 254700832 255000211
## [4387] 255273813 256271286 256697520 257850122 258022233 258270008
## [4393] 259175788 259207227 260095987 260696994 261317921 261572744
## [4399] 261930431 263920180 264105545 264118201 264218220 266465037
## [4405] 266586800 266728738 267045765 267447150 268031828 268157400
## [4411] 268426634 269958228 269994119 270248367 271430189 272742922
## [4417] 272912430 273339556 273552592 274470394 274703340 274925095
## [4423] 275293450 275650703 276572938 277448382 278731369 280000000
## [4429] 281929795 282570682 284139100 284600000 285444603 286140700
## [4435] 286168572 286214286 287506194 287553595 287594577 287928194
## [4441] 288347692 288383523 288500217 288747895 289047763 289317794
## [4447] 289847354 292817841 293329073 294456605 294804195 295238201
## [4453] 296339527 296655431 299268508 299288605 299370084 299965036
## [4459] 300135367 300218018 300228084 300400432 300854823 301000000
## [4465] 302469017 303025485 303788635 304320254 304654182 305875730
## [4471] 306776732 306941670 307077295 307166834 309208309 309457509
## [4477] 309492681 309979994 310650585 310669540 310940086 311256926
## [4483] 311312624 311594032 312573423 313542341 314178011 314432665
## [4489] 315156409 316360478 317375031 318000141 318502923 319131050
## [4495] 320145693 320170008 321365567 321731527 321887208 325233863
## [4501] 325756637 325771424 326551094 327311859 327803731 328203506
## [4507] 330444045 331926147 332000000 333000000 333011068 333932083
## [4513] 334615000 334901337 335062621 335154643 336529144 337580051
## [4519] 340487652 341631208 342695435 343397247 343471816 345141403
## [4525] 346079773 347234916 347325802 347434178 347451894 348319861
## [4531] 349424282 349779543 350448145 351040419 351583407 352114312
## [4537] 352194034 353624124 354248063 355237933 355692760 356296601
## [4543] 356613439 356743061 356830601 358372926 358375603 358991681
## [4549] 361366633 361832400 362211740 362637473 362744280 363258859
## [4555] 363889678 366101666 367275019 368100420 368744044 368780809
## [4561] 368871007 368875760 369330363 369884651 370541256 370569774
## [4567] 371353001 371876278 371940071 372234864 373062864 373552094
## [4573] 373554033 374111707 374218673 376141306 377910544 378858340
## [4579] 378882411 381109762 381509870 383257136 383531464 384335608
## [4585] 385680446 389681935 389925971 390493908 391081192 392000694
## [4591] 392616625 396600000 397850012 400062763 400176459 401128639
## [4597] 403170142 407602906 407711549 408247917 411006740 411348924
## [4603] 412800000 413106170 414211549 415440673 415484914 415686217
## [4609] 419651413 422610419 424208848 424988211 425368238 429632142
## [4615] 431971116 433013274 433677183 435000000 440603537 441286195
## [4621] 441306145 441809770 441818803 442824138 443140005 449220945
## [4627] 449326618 450717150 456758981 457640427 457696359 459270619
## [4633] 459359555 461983149 463000000 463517383 467365246 469160692
## [4639] 470490832 470654000 471222889 473226958 474171806 474968763
## [4645] 476684675 477200000 478207520 481840909 482860185 484409218
## [4651] 484572835 484635760 491868548 494471524 494878759 497366869
## [4657] 497409852 500188435 504050219 505000000 516642939 519311965
## [4663] 520000000 521170825 521311860 524028679 527068851 531865000
## [4669] 532680671 532950503 538400000 538983207 542307423 543513985
## [4675] 543514353 543934787 544272402 546388105 549368315 550000000
## [4681] 553799566 554987477 559852396 562816256 563749323 571006128
## [4687] 572700000 574480841 585174222 585178928 585349010 586090727
## [4693] 589390539 591739379 591794936 599045960 603900354 609016565
## [4699] 609123048 609841637 611899420 623722818 623933331 624026776
## [4705] 624029371 626137675 630161890 631442092 631744560 644571402
## [4711] 649398328 652105443 653428261 655011224 660940780 662845518
## [4717] 665692281 672806292 675120017 677945399 682330139 691210692
## [4723] 694713380 698491347 705717432 709709780 709827462 710644566
## [4729] 714766572 716392705 735099082 738599701 743559607 745000000
## [4735] 746921274 747862775 748806957 752100229 752215857 752600867
## [4741] 758539785 767820459 769653595 773328629 775398007 783112979
## [4747] 783766341 786636033 788241776 789804554 792910554 798958165
## [4753] 816969268 821708551 825532764 829000000 836297228 847423452
## [4759] 850000000 857611174 871368364 873260194 875958308 876688482
## [4765] 877244782 880674609 886686817 890871626 895921036 919838758
## [4771] 920100000 924317558 926287400 933959197 938212738 940335536
## [4777] 956019788 958400000 961000000 966550600 970761885 976475550
## [4783] 1004558444 1021103568 1025491110 1045713802 1065659812 1066969703
## [4789] 1084939099 1091405097 1108561013 1118888979 1123746996 1153304495
## [4795] 1156730962 1215439994 1274219009 1405403694 1506249360 1513528810
## [4801] 1519557910 1845034188 2787965087- Previously, we created a function that would take the average of the columns. Now, let’s use the mean() function to take the average of the vote_average column.
mean(movies$vote_average)## [1] 6.092172- We think that there might be a relationship between the popularity of a movie and the length of the movie title. Use lapply to create a new column with the length of each of the titles. The function you use to print the length of a string is nchar().
titles <- c(movies$title)
lapply_title <- lapply(X=titles, FUN= nchar)
movies$title_len <-lapply_title- Now, we want to round all of the values of the popularity column. Use round() and assign the output to a new column.
round <- round(movies$popularity)
movies$popularity_round <- round- Check the variable type of the new variable containing the movie title lengths.
str(movies)## 'data.frame': 4803 obs. of 18 variables:
## $ title : chr "Avatar" "Pirates of the Caribbean: At World's End" "Spectre" "The Dark Knight Rises" ...
## $ id : int 19995 285 206647 49026 49529 559 38757 99861 767 209112 ...
## $ status : Factor w/ 3 levels "Post Production",..: 2 2 2 2 2 2 2 2 2 2 ...
## $ release_date : Date, format: "2009-12-10" "2007-05-19" ...
## $ budget : int 237000000 300000000 245000000 250000000 260000000 258000000 260000000 280000000 250000000 250000000 ...
## $ revenue : num 2.79e+09 9.61e+08 8.81e+08 1.08e+09 2.84e+08 ...
## $ runtime : num 162 169 148 165 132 139 100 141 153 151 ...
## $ overview : chr "In the 22nd century, a paraplegic Marine is dispatched to the moon Pandora on a unique mission, but becomes tor"| __truncated__ "Captain Barbossa, long believed to be dead, has come back to life and is headed to the edge of the Earth with W"| __truncated__ "A cryptic message from Bond’s past sends him on a trail to uncover a sinister organization. While M battles pol"| __truncated__ "Following the death of District Attorney Harvey Dent, Batman assumes responsibility for Dent's crimes to protec"| __truncated__ ...
## $ tagline : chr "Enter the World of Pandora." "At the end of the world, the adventure begins." "A Plan No One Escapes" "The Legend Ends" ...
## $ genres : chr "[{\"id\": 28, \"name\": \"Action\"}, {\"id\": 12, \"name\": \"Adventure\"}, {\"id\": 14, \"name\": \"Fantasy\"}"| __truncated__ "[{\"id\": 12, \"name\": \"Adventure\"}, {\"id\": 14, \"name\": \"Fantasy\"}, {\"id\": 28, \"name\": \"Action\"}]" "[{\"id\": 28, \"name\": \"Action\"}, {\"id\": 12, \"name\": \"Adventure\"}, {\"id\": 80, \"name\": \"Crime\"}]" "[{\"id\": 28, \"name\": \"Action\"}, {\"id\": 80, \"name\": \"Crime\"}, {\"id\": 18, \"name\": \"Drama\"}, {\"i"| __truncated__ ...
## $ original_language: Factor w/ 37 levels "af","ar","cn",..: 8 8 8 8 8 8 8 8 8 8 ...
## $ original_title : chr "Avatar" "Pirates of the Caribbean: At World's End" "Spectre" "The Dark Knight Rises" ...
## $ popularity : num 150.4 139.1 107.4 112.3 43.9 ...
## $ vote_average : num 7.2 6.9 6.3 7.6 6.1 5.9 7.4 7.3 7.4 5.7 ...
## $ vote_count : int 11800 4500 4466 9106 2124 3576 3330 6767 5293 7004 ...
## $ homepage : chr "http://www.avatarmovie.com/" "http://disney.go.com/disneypictures/pirates/" "http://www.sonypictures.com/movies/spectre/" "http://www.thedarkknightrises.com/" ...
## $ title_len :List of 4803
## ..$ : int 6
## ..$ : int 40
## ..$ : int 7
## ..$ : int 21
## ..$ : int 11
## ..$ : int 12
## ..$ : int 7
## ..$ : int 23
## ..$ : int 38
## ..$ : int 34
## ..$ : int 16
## ..$ : int 17
## ..$ : int 42
## ..$ : int 15
## ..$ : int 12
## ..$ : int 40
## ..$ : int 12
## ..$ : int 43
## ..$ : int 14
## ..$ : int 41
## ..$ : int 22
## ..$ : int 10
## ..$ : int 35
## ..$ : int 18
## ..$ : int 9
## ..$ : int 7
## ..$ : int 26
## ..$ : int 10
## ..$ : int 14
## ..$ : int 7
## ..$ : int 12
## ..$ : int 10
## ..$ : int 19
## ..$ : int 21
## ..$ : int 19
## ..$ : int 35
## ..$ : int 31
## ..$ : int 26
## ..$ : int 24
## ..$ : int 12
## ..$ : int 6
## ..$ : int 13
## ..$ : int 11
## ..$ : int 20
## ..$ : int 9
## ..$ : int 11
## ..$ : int 26
## ..$ : int 23
## ..$ : int 21
## ..$ : int 16
## ..$ : int 35
## ..$ : int 11
## ..$ : int 30
## ..$ : int 50
## ..$ : int 17
## ..$ : int 5
## ..$ : int 16
## ..$ : int 6
## ..$ : int 11
## ..$ : int 4
## ..$ : int 17
## ..$ : int 17
## ..$ : int 20
## ..$ : int 62
## ..$ : int 17
## ..$ : int 15
## ..$ : int 2
## ..$ : int 18
## ..$ : int 8
## ..$ : int 4
## ..$ : int 14
## ..$ : int 37
## ..$ : int 13
## ..$ : int 13
## ..$ : int 16
## ..$ : int 10
## ..$ : int 27
## ..$ : int 10
## ..$ : int 15
## ..$ : int 10
## ..$ : int 27
## ..$ : int 10
## ..$ : int 30
## ..$ : int 10
## ..$ : int 8
## ..$ : int 35
## ..$ : int 19
## ..$ : int 12
## ..$ : int 10
## ..$ : int 14
## ..$ : int 17
## ..$ : int 28
## ..$ : int 24
## ..$ : int 34
## ..$ : int 23
## ..$ : int 12
## ..$ : int 9
## ..$ : int 13
## ..$ : int 33
## .. [list output truncated]
## $ popularity_round : num 150 139 107 112 44 116 49 134 99 156 ...- Convert the movie title length variable to numeric, and then create a scatter plot with the movie title length on the x-axis and the rounded movie popularity on the y-axis.
as.numeric(movies$title_len)## [1] 6 40 7 21 11 12 7 23 38 34 16 17 42 15 12 40 12 43 14 41 22 10 35
## [24] 18 9 7 26 10 14 7 12 10 19 21 19 35 31 26 24 12 6 13 11 20 9 11
## [47] 26 23 21 16 35 11 30 50 17 5 16 6 11 4 17 17 20 62 17 15 2 18 8
## [70] 4 14 37 13 13 16 10 27 10 15 10 27 10 30 10 8 35 19 12 10 14 17 28
## [93] 24 34 23 12 9 13 33 24 35 18 37 25 8 31 15 8 18 56 12 12 9 41 35
## [116] 7 11 33 11 13 27 46 24 22 6 19 20 18 15 4 4 7 19 12 34 11 9 15
## [139] 18 23 16 15 12 3 21 4 34 15 12 10 15 7 15 36 21 22 16 22 9 10 26
## [162] 13 7 8 15 4 21 6 33 34 23 47 41 14 19 7 12 5 5 22 20 13 7 31
## [185] 4 17 11 13 4 4 24 40 9 11 8 39 8 40 8 54 37 17 5 2 9 34 19
## [208] 12 16 17 14 30 22 22 17 38 10 11 12 31 10 15 7 25 7 11 15 14 8 44
## [231] 44 14 13 41 10 28 11 26 28 7 12 48 14 19 11 19 11 14 16 9 11 18 16
## [254] 22 10 17 9 10 12 23 12 21 49 27 3 18 8 17 13 25 11 10 14 21 9 15
## [277] 39 13 18 26 14 17 9 26 14 14 6 16 27 24 17 17 6 25 4 11 11 13 23
## [300] 14 17 11 45 8 8 15 16 17 11 15 23 28 10 17 20 17 17 18 9 18 15 12
## [323] 17 18 21 26 10 16 12 45 37 11 23 13 17 30 25 22 9 15 16 50 12 11 11
## [346] 11 17 33 30 31 16 12 5 14 31 26 15 7 25 38 8 29 6 28 19 7 10 15
## [369] 30 42 16 9 8 15 3 16 7 15 20 19 14 32 10 7 9 10 20 13 14 20 18
## [392] 9 10 14 11 11 18 16 16 11 9 18 11 16 19 37 16 14 17 13 13 27 8 30
## [415] 10 5 5 9 43 6 27 6 11 14 15 19 16 20 14 14 13 15 11 5 16 36 11
## [438] 9 22 14 16 6 8 15 17 15 7 9 13 15 7 12 9 16 29 17 4 21 9 32
## [461] 9 13 24 7 20 13 16 16 9 19 20 12 18 13 9 8 10 13 8 22 17 28 4
## [484] 8 11 21 21 10 25 6 18 7 14 16 13 32 35 10 7 13 16 17 12 36 23 37
## [507] 15 16 29 10 15 5 6 8 21 14 9 23 16 14 9 12 14 14 20 10 10 7 6
## [530] 16 7 23 9 13 7 12 17 9 7 10 18 7 8 10 21 11 7 12 10 6 21 11
## [553] 12 11 43 14 10 7 18 12 6 12 11 15 5 7 4 13 3 40 6 20 4 10 8
## [576] 11 17 23 39 16 18 23 19 8 4 9 17 9 31 14 9 8 20 11 11 4 5 21
## [599] 12 10 12 10 25 9 13 31 8 37 16 11 22 20 26 9 13 11 5 5 11 9 11
## [622] 16 12 19 31 10 11 15 19 14 15 7 12 7 10 9 18 14 15 13 17 8 8 13
## [645] 11 12 7 18 15 12 14 5 5 14 14 8 14 26 10 23 13 26 10 15 11 13 15
## [668] 12 7 28 13 7 32 27 9 13 10 24 12 10 5 22 13 23 17 15 3 3 16 11
## [691] 14 9 14 9 19 9 22 15 19 14 6 11 15 16 4 15 15 22 30 13 14 3 16
## [714] 19 10 17 9 12 13 10 9 13 8 13 11 14 15 18 7 14 10 10 8 19 22 10
## [737] 29 25 3 17 19 7 13 15 14 39 13 14 8 8 13 9 19 12 9 18 19 22 16
## [760] 9 12 14 14 11 26 13 31 23 6 32 13 9 16 7 15 9 13 37 9 10 4 8
## [783] 10 9 45 14 17 14 8 8 15 10 16 34 9 12 16 31 14 24 9 20 13 11 16
## [806] 32 26 12 12 12 23 16 10 8 19 5 20 16 16 10 6 13 17 12 24 10 10 14
## [829] 17 9 17 12 17 13 18 21 21 10 6 5 5 26 10 9 10 8 12 8 45 10 14
## [852] 7 24 25 8 17 10 12 19 12 9 22 6 5 8 12 18 23 13 18 11 5 18 5
## [875] 9 13 20 10 20 19 10 7 9 19 16 12 10 15 20 17 13 15 6 20 16 18 8
## [898] 14 27 5 21 29 13 3 18 11 33 9 7 15 28 14 26 7 20 7 12 14 10 7
## [921] 5 15 7 17 12 20 8 25 9 8 8 22 14 16 14 19 16 30 10 16 7 41 16
## [944] 8 14 9 8 11 16 16 14 14 21 25 9 14 25 33 11 16 39 9 13 14 20 10
## [967] 9 9 17 9 15 15 8 5 10 17 16 14 34 19 22 16 13 16 13 39 13 11 8
## [990] 14 18 9 6 4 5 19 16 11 14 25 11 37 7 31 20 7 34 13 7 18 10 15
## [1013] 11 8 8 5 14 9 15 12 7 12 13 5 10 23 24 11 7 20 11 24 21 8 24
## [1036] 9 18 9 15 6 15 7 13 17 34 40 17 10 15 13 14 9 12 12 13 11 5 12
## [1059] 14 8 11 13 12 9 14 7 20 19 36 10 25 7 12 14 26 7 8 14 13 4 19
## [1082] 18 9 12 15 12 19 10 13 11 21 5 16 11 19 26 17 11 27 17 21 10 4 12
## [1105] 17 8 26 9 9 13 21 19 17 7 9 18 8 17 12 14 12 11 16 9 8 9 19
## [1128] 11 24 22 5 15 15 10 17 11 4 17 13 17 7 6 29 15 13 15 14 12 14 15
## [1151] 12 15 26 4 20 23 14 20 13 21 15 18 27 13 8 27 8 7 13 2 23 18 11
## [1174] 10 12 24 3 8 13 15 11 3 19 11 8 15 21 15 18 20 15 14 5 25 18 7
## [1197] 12 17 24 10 20 9 12 13 14 16 29 13 11 13 7 7 12 27 11 18 16 4 14
## [1220] 8 3 9 8 10 19 16 14 11 15 33 10 33 13 22 14 4 15 18 24 13 21 14
## [1243] 11 12 15 10 17 15 14 6 9 9 16 13 10 14 6 17 25 27 6 15 5 11 25
## [1266] 10 40 6 8 17 29 8 8 11 13 8 16 5 10 12 9 7 17 19 12 18 11 18
## [1289] 13 8 24 24 17 13 8 17 12 12 9 18 14 10 37 22 15 19 27 13 6 13 22
## [1312] 10 12 14 16 9 8 12 9 7 10 13 13 10 16 11 12 5 8 36 18 12 4 8
## [1335] 7 16 12 8 6 11 17 20 9 21 20 14 14 11 5 21 22 8 7 15 12 13 12
## [1358] 8 37 6 16 15 14 8 15 9 21 29 14 9 2 10 9 19 17 8 8 7 25 8
## [1381] 24 11 4 5 21 28 16 9 10 8 30 14 16 14 13 13 11 15 9 7 16 18 12
## [1404] 18 14 11 18 12 6 8 7 19 10 11 19 12 11 10 39 5 29 5 30 14 10 9
## [1427] 7 11 15 11 6 12 11 17 6 9 15 4 5 15 22 30 17 16 18 8 16 9 8
## [1450] 9 18 4 8 18 11 11 14 22 12 18 24 19 8 8 19 15 19 20 12 12 6 5
## [1473] 16 20 19 17 29 4 14 11 17 30 16 18 17 11 12 23 4 11 18 8 10 10 3
## [1496] 10 9 8 11 11 15 8 12 6 15 33 11 5 13 36 4 33 21 13 22 18 21 8
## [1519] 18 5 31 16 16 15 21 14 18 18 8 13 6 9 24 18 13 9 8 10 7 9 14
## [1542] 9 5 7 22 19 24 10 32 17 30 20 20 5 10 31 12 19 12 12 10 25 27 19
## [1565] 19 13 13 11 6 13 4 12 25 13 9 11 10 16 14 17 11 4 19 31 9 35 16
## [1588] 28 15 14 9 17 10 17 12 10 7 8 15 18 16 10 10 21 16 22 17 12 15 22
## [1611] 5 27 12 6 13 13 35 1 12 15 15 39 8 9 14 10 22 20 7 17 24 8 19
## [1634] 11 22 23 4 19 18 10 13 19 6 15 15 8 11 11 12 13 14 9 20 14 7 15
## [1657] 29 18 35 16 13 9 5 27 13 22 14 10 11 11 18 58 4 15 9 20 14 14 15
## [1680] 15 27 13 13 15 13 17 13 11 31 12 8 11 7 14 10 7 22 36 17 19 23 26
## [1703] 8 11 13 16 7 16 19 28 20 8 10 18 11 7 9 10 11 15 8 18 12 59 17
## [1726] 12 7 14 16 10 16 12 15 17 13 14 19 31 6 37 10 9 14 9 10 18 27 18
## [1749] 18 9 38 38 14 18 39 12 11 11 19 15 9 21 9 11 12 15 7 12 13 35 13
## [1772] 14 8 11 18 13 15 20 13 22 19 27 16 17 30 10 10 16 7 19 26 6 11 15
## [1795] 13 9 8 38 14 12 9 20 31 14 28 30 15 7 9 21 25 14 8 11 2 5 14
## [1818] 13 16 8 16 32 17 16 20 25 11 55 16 22 10 21 8 37 17 19 9 14 8 19
## [1841] 13 20 17 17 8 13 37 10 16 12 8 15 16 10 11 19 26 15 18 37 18 15 11
## [1864] 18 9 17 18 15 18 9 13 18 40 10 11 9 15 17 11 10 11 24 31 7 11 20
## [1887] 12 15 15 11 16 9 10 27 3 16 8 14 20 23 27 29 7 9 19 15 18 12 16
## [1910] 6 7 11 14 9 9 15 16 6 27 18 7 15 10 9 7 16 14 17 10 8 10 8
## [1933] 6 13 15 26 9 13 9 10 7 20 29 14 19 14 46 35 17 10 31 10 13 8 8
## [1956] 14 7 18 11 29 12 8 14 20 20 9 10 15 37 12 26 11 26 11 17 29 18 7
## [1979] 15 19 28 10 14 16 25 26 6 20 10 12 23 8 35 17 17 11 19 3 8 42 17
## [2002] 8 7 17 13 13 21 36 21 18 8 5 11 24 4 10 17 5 28 16 10 13 29 10
## [2025] 6 24 7 8 10 10 8 14 11 30 12 19 16 30 13 30 15 13 23 9 18 17 9
## [2048] 25 12 15 24 13 10 11 9 9 20 8 5 7 18 15 19 14 9 17 7 34 18 32
## [2071] 8 23 15 17 15 15 18 10 10 14 25 5 10 35 8 23 30 34 5 20 23 24 13
## [2094] 10 6 23 13 17 5 14 13 12 15 5 13 16 8 26 19 13 26 21 8 10 20 5
## [2117] 17 9 11 16 6 3 10 9 16 12 30 26 15 14 12 6 13 5 25 5 26 17 7
## [2140] 13 16 4 5 10 31 11 14 8 13 15 14 12 37 9 12 15 10 11 22 11 10 18
## [2163] 15 12 8 6 10 5 9 8 6 21 12 12 17 9 11 13 13 21 26 19 22 21 14
## [2186] 17 15 8 9 11 5 24 28 20 14 7 27 19 7 4 19 21 23 18 15 10 10 9
## [2209] 9 18 14 22 8 20 14 5 15 24 14 16 28 7 22 16 13 13 6 18 17 13 7
## [2232] 18 11 10 18 16 17 17 8 5 19 13 15 14 21 18 20 17 10 20 15 15 7 11
## [2255] 25 9 43 10 8 23 15 8 3 38 24 13 11 10 42 20 8 9 7 14 8 17 16
## [2278] 26 18 11 11 18 6 15 11 18 21 26 12 10 12 18 29 11 13 9 10 14 9 9
## [2301] 28 20 15 14 11 11 21 11 16 14 30 22 9 8 3 83 14 35 26 26 11 16 31
## [2324] 9 43 26 35 8 7 10 10 20 12 21 7 12 9 5 8 7 11 8 18 19 11 12
## [2347] 21 4 9 17 12 16 14 15 10 23 15 29 20 8 7 13 14 19 11 14 12 16 7
## [2370] 9 32 10 9 6 17 16 13 15 16 11 10 10 28 13 6 20 14 15 10 11 9 10
## [2393] 8 18 6 22 11 12 6 14 10 14 10 6 12 31 13 8 8 9 9 20 12 22 21
## [2416] 22 7 19 33 14 14 3 13 12 13 4 37 36 17 17 9 16 15 32 12 14 29 17
## [2439] 15 4 15 22 15 14 15 14 7 41 11 21 13 12 21 18 15 23 11 9 13 10 10
## [2462] 16 42 17 22 15 12 8 12 8 13 8 9 24 23 14 14 15 13 10 11 11 25 12
## [2485] 20 11 6 5 16 17 10 26 5 13 18 6 10 21 4 14 5 19 4 12 12 6 7
## [2508] 9 6 7 17 10 20 7 7 30 15 17 5 23 16 10 18 16 21 20 4 27 11 9
## [2531] 11 22 12 18 21 12 15 11 24 6 7 11 29 8 22 12 10 24 20 18 18 12 4
## [2554] 26 16 23 18 18 5 36 26 14 25 21 17 19 15 30 9 11 17 22 13 14 6 21
## [2577] 24 16 10 5 14 19 26 16 19 15 11 19 17 19 46 5 19 8 7 7 16 10 8
## [2600] 9 16 24 27 10 13 6 16 16 16 9 14 17 9 31 15 4 9 7 10 9 13 14
## [2623] 12 39 14 19 10 16 19 34 15 11 13 25 16 11 9 17 10 12 39 12 16 10 9
## [2646] 9 14 23 14 17 19 14 26 6 8 43 42 17 12 13 14 14 11 7 10 9 19 16
## [2669] 12 19 13 26 13 19 14 20 12 10 10 9 13 26 14 23 19 24 20 18 17 18 18
## [2692] 18 7 18 8 22 7 5 15 8 33 15 6 18 12 14 18 11 8 10 10 5 18 14
## [2715] 8 12 7 18 8 15 22 6 17 23 8 14 14 21 18 30 10 22 19 45 20 21 10
## [2738] 11 16 26 11 34 12 20 8 14 13 11 15 14 12 8 10 20 22 13 15 21 20 3
## [2761] 4 10 10 4 11 2 10 13 9 16 22 9 25 5 8 14 31 15 8 9 17 16 30
## [2784] 8 18 38 25 14 14 18 12 4 19 20 10 12 21 22 30 18 17 11 12 7 11 20
## [2807] 34 16 12 4 12 18 16 16 10 31 26 8 7 12 7 31 12 41 9 5 12 10 9
## [2830] 6 14 10 7 23 8 26 5 22 22 8 8 8 14 9 19 20 10 11 15 8 34 21
## [2853] 11 5 28 15 11 22 30 25 8 13 10 23 9 15 16 7 8 22 9 21 20 6 10
## [2876] 10 11 8 26 8 16 16 33 6 4 12 4 6 7 21 13 24 17 5 8 22 32 6
## [2899] 22 18 23 13 8 21 18 6 15 12 8 18 22 8 9 13 14 5 34 11 18 15 9
## [2922] 10 12 13 11 18 16 16 6 28 23 12 12 8 18 8 12 8 14 7 7 7 13 6
## [2945] 16 8 27 36 10 8 16 19 1 25 18 20 17 13 5 18 3 9 22 16 21 8 21
## [2968] 26 20 18 18 9 14 47 17 17 10 7 7 11 24 14 6 11 22 18 15 16 10 13
## [2991] 16 32 7 30 20 26 8 7 5 17 20 15 17 34 5 18 24 10 22 7 21 17 13
## [3014] 13 13 10 7 9 15 24 10 15 11 8 7 37 31 15 16 24 7 10 15 13 3 16
## [3037] 25 31 21 20 11 10 8 16 11 12 18 8 15 9 11 9 19 8 18 41 12 18 14
## [3060] 13 14 18 11 9 16 10 14 11 11 13 23 9 22 17 9 5 18 6 16 31 10 10
## [3083] 6 17 13 6 7 17 10 6 17 10 11 14 20 19 10 10 9 14 15 11 9 30 10
## [3106] 16 24 20 9 6 21 33 23 25 11 43 13 12 10 10 12 15 15 18 8 6 24 14
## [3129] 22 14 16 17 26 16 9 15 28 9 7 13 13 11 14 19 7 5 15 7 31 6 11
## [3152] 17 11 21 5 11 7 16 5 28 12 19 11 9 13 10 12 12 5 18 11 33 13 11
## [3175] 14 15 22 7 11 12 18 14 3 17 15 6 13 8 15 11 23 24 13 8 14 17 10
## [3198] 14 12 40 21 23 16 38 12 15 7 5 31 10 13 11 8 13 10 11 8 12 8 7
## [3221] 48 7 11 15 11 5 15 31 23 9 23 26 12 16 12 10 18 6 20 11 13 14 20
## [3244] 11 33 5 7 19 15 5 22 31 13 14 19 10 11 15 13 15 38 34 11 6 11 21
## [3267] 4 14 7 12 11 9 12 7 24 12 26 16 34 11 15 19 11 18 14 8 21 14 4
## [3290] 23 11 9 17 11 10 5 5 29 40 7 13 16 10 13 35 19 13 18 9 19 12 21
## [3313] 15 12 8 23 4 15 18 22 7 20 30 7 11 12 14 13 10 8 8 14 11 14 4
## [3336] 14 20 13 10 20 9 10 14 16 11 17 17 26 6 9 11 27 14 11 25 11 22 19
## [3359] 4 11 21 10 13 7 7 17 12 29 18 17 18 17 12 24 10 7 5 17 10 12 27
## [3382] 20 15 9 16 12 12 9 30 21 6 13 5 15 8 13 16 4 7 19 7 5 14 49
## [3405] 10 26 18 21 21 19 14 16 5 30 9 20 16 11 9 12 15 8 16 15 27 2 18
## [3428] 20 4 17 5 10 40 8 30 8 13 7 7 14 16 17 29 8 6 7 15 34 12 15
## [3451] 15 10 12 8 18 44 29 12 15 12 20 11 14 12 13 12 13 19 25 41 6 40 7
## [3474] 14 9 16 11 9 7 19 12 10 15 19 25 15 15 15 9 25 14 12 29 14 41 15
## [3497] 18 12 30 18 11 5 12 12 5 10 9 8 19 12 4 10 21 8 17 12 9 18 13
## [3520] 16 20 14 9 11 6 16 9 16 26 5 7 19 11 4 8 10 14 10 18 11 8 12
## [3543] 4 15 7 19 7 22 11 8 11 10 17 13 20 6 19 18 10 21 5 43 25 21 8
## [3566] 30 34 7 28 36 16 18 18 7 6 9 12 16 13 24 16 11 14 17 4 16 18 8
## [3589] 11 11 12 10 48 24 15 37 17 17 29 9 40 16 5 17 9 17 9 15 17 21 17
## [3612] 18 17 18 6 23 16 12 22 3 13 22 28 4 4 26 42 19 15 12 34 18 20 18
## [3635] 11 13 13 18 11 13 10 14 42 13 16 17 28 15 23 13 6 11 6 9 8 11 7
## [3658] 11 11 30 21 9 10 10 13 20 18 11 13 20 15 11 22 28 12 11 13 6 21 12
## [3681] 13 15 22 29 27 17 15 11 12 7 17 14 12 15 14 15 27 28 9 9 5 19 10
## [3704] 5 8 15 12 20 9 4 19 27 15 12 6 10 12 10 5 31 47 12 7 20 13 11
## [3727] 10 10 11 3 5 19 29 11 15 7 20 24 19 10 26 14 6 17 27 14 17 7 22
## [3750] 9 16 28 25 7 5 8 9 10 11 18 14 13 17 23 5 18 10 9 15 10 19 11
## [3773] 11 11 9 10 7 14 21 6 16 28 11 3 13 6 18 13 16 5 20 12 5 20 18
## [3796] 10 33 12 17 21 7 35 4 11 13 14 8 14 11 19 16 21 7 18 13 12 18 10
## [3819] 17 8 10 14 16 15 14 9 16 6 17 11 25 13 15 6 6 9 17 13 17 24 5
## [3842] 12 11 9 18 12 10 14 8 16 12 6 10 4 39 14 27 12 8 15 12 21 11 6
## [3865] 5 8 11 13 25 13 8 17 5 13 16 23 9 15 32 4 19 9 5 12 10 9 21
## [3888] 13 28 21 10 21 11 50 18 9 8 31 21 30 7 29 36 28 15 11 13 36 12 28
## [3911] 9 12 12 12 21 8 9 10 15 13 11 21 22 5 12 7 27 11 35 23 23 14 38
## [3934] 10 8 10 6 9 20 4 6 14 19 9 7 18 9 19 8 12 14 35 12 10 12 12
## [3957] 10 11 7 28 12 11 9 18 86 31 11 19 24 16 7 6 16 12 15 21 11 18 8
## [3980] 12 12 19 9 13 16 39 16 18 17 20 11 18 9 17 14 9 15 15 34 3 7 11
## [4003] 13 10 15 12 19 23 15 21 18 34 34 3 26 20 12 14 10 10 11 10 13 18 19
## [4026] 10 4 29 18 25 25 7 12 5 14 5 9 14 5 9 21 15 6 14 10 21 9 15
## [4049] 11 24 8 6 24 32 18 15 12 22 4 20 24 27 27 5 6 10 5 19 9 11 10
## [4072] 21 25 7 10 70 21 27 28 14 12 19 10 11 9 26 13 17 13 13 8 21 13 17
## [4095] 24 31 10 19 33 11 7 12 10 8 17 47 15 27 25 13 18 11 13 17 6 10 5
## [4118] 18 22 23 23 23 9 14 18 49 19 18 27 6 10 6 9 5 23 31 12 16 8 9
## [4141] 27 7 15 8 22 33 7 16 11 28 13 33 12 46 16 49 20 26 10 12 9 27 6
## [4164] 9 10 14 25 11 9 14 17 11 24 68 24 27 33 11 13 5 28 22 24 13 17 7
## [4187] 27 22 21 12 3 16 19 34 14 20 12 17 12 3 26 21 24 15 7 8 7 15 10
## [4210] 16 19 19 16 11 8 10 28 4 23 21 20 10 7 11 9 8 11 15 27 14 11 12
## [4233] 11 9 9 33 8 7 12 13 16 9 9 20 5 9 7 21 18 10 36 13 12 18 12
## [4256] 16 9 7 12 31 13 7 21 13 9 13 29 6 35 29 15 12 21 10 32 22 9 17
## [4279] 14 79 13 7 22 16 8 11 17 7 23 23 24 3 14 12 19 15 19 22 21 8 14
## [4302] 13 30 17 14 25 18 20 6 21 19 13 31 10 9 8 22 17 15 10 16 26 18 36
## [4325] 19 24 8 15 21 10 10 34 14 5 15 9 10 11 11 6 17 10 16 8 13 14 12
## [4348] 16 30 14 21 17 13 17 9 12 10 12 20 18 24 13 12 20 19 19 28 41 12 4
## [4371] 12 4 7 18 21 8 9 5 26 9 28 18 21 66 11 21 25 20 8 28 22 16 8
## [4394] 14 18 12 10 14 16 7 8 19 19 14 4 17 16 4 14 10 16 5 15 9 32 27
## [4417] 11 23 18 22 10 13 7 14 11 13 11 6 15 15 18 11 17 12 28 25 10 9 12
## [4440] 17 16 5 10 11 4 4 24 23 12 18 13 13 12 20 24 16 21 13 19 12 10 13
## [4463] 18 8 9 19 6 17 33 52 21 28 9 14 14 27 12 28 4 9 11 4 6 23 6
## [4486] 11 16 10 10 20 11 29 5 9 6 7 23 9 24 13 19 14 13 31 23 18 15 18
## [4509] 24 12 21 9 17 5 10 9 22 16 17 14 8 14 16 5 41 6 8 16 10 17 11
## [4532] 11 12 16 58 13 20 12 18 6 14 18 8 16 15 21 11 28 23 9 28 11 15 26
## [4555] 12 13 16 19 30 24 10 40 24 17 24 13 12 30 39 14 11 53 12 18 8 17 9
## [4578] 19 18 31 11 20 9 17 28 10 21 14 23 6 7 18 11 8 19 13 6 15 10 35
## [4601] 15 9 12 12 21 8 19 11 12 19 15 12 7 14 11 14 14 22 17 22 20 10 17
## [4624] 15 9 16 16 7 14 25 10 11 16 11 20 50 12 13 24 4 27 27 8 10 15 10
## [4647] 9 11 11 15 4 26 21 4 3 19 9 9 10 10 15 14 14 18 7 16 4 7 16
## [4670] 29 7 8 20 18 32 14 17 5 28 15 11 12 12 7 14 28 5 9 18 25 34 19
## [4693] 19 2 22 18 7 19 14 17 13 33 14 7 4 16 13 24 14 25 25 7 8 10 24
## [4716] 17 49 20 17 17 21 22 17 11 10 17 10 12 28 20 13 21 13 11 8 17 30 37
## [4739] 2 27 8 10 13 6 15 27 12 21 8 21 11 8 14 7 13 8 19 13 10 20 21
## [4762] 12 17 27 25 14 14 14 18 23 19 33 12 6 14 11 21 6 7 7 11 9 8 8
## [4785] 15 20 16 24 14 5 10 11 4 14 28 4 6 6 11 9 25 16 17plot(movies$title_len, movies$popularity_round)
Are movies with longer titles more popular on average? NO__
Show you know how to use seq() by printing a list of values that starts at 40, ends at 80 and prints every 4th value. (Your output should be, 40 44 48 52 56 60 64 68 72 76 80)
seq(from=40, to=80, by=4)## [1] 40 44 48 52 56 60 64 68 72 76 80- Now create a reverse of that sequence (make it count down from 80 to 40 by 4s).
seq_rev <- rev(seq(from=40, to=80, by=4))- Append a 0 at the end of the sequence above. (Make it count from 80 to 40 by 4s, but add a 0 at the end of the sequence.)
append(seq_rev, 0, after = 12)## [1] 80 76 72 68 64 60 56 52 48 44 40 0(Extra Credit) If you look at the genres column, you will notice that the values in it are really ugly to look at. Use your knowledge of string manipulations to reduce the contents of the columns so that they only contain the genre names separated by a comma.
Output the current date and time.
Sys.time()## [1] "2019-11-04 20:29:13 UTC"Sys.Date()## [1] "2019-11-04"- Output the most popular movie ever. Output the entire row of data from that movie, not just the movie title.
movies[which.max(movies$popularity_round),]## title id status release_date budget revenue runtime
## 547 Minions 211672 Released 2015-06-17 74000000 1156730962 91
## overview
## 547 Minions Stuart, Kevin and Bob are recruited by Scarlet Overkill, a super-villain who, alongside her inventor husband Herb, hatches a plot to take over the world.
## tagline
## 547 Before Gru, they had a history of bad bosses
## genres
## 547 [{"id": 10751, "name": "Family"}, {"id": 16, "name": "Animation"}, {"id": 12, "name": "Adventure"}, {"id": 35, "name": "Comedy"}]
## original_language original_title popularity vote_average vote_count
## 547 en Minions 875.5813 6.4 4571
## homepage title_len popularity_round
## 547 http://www.minionsmovie.com/ 7 876- How many times is the word “America” used in the overviews of all the movies
str_count(movies$overview, "America")## [1] 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0
## [35] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [69] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [103] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## [137] 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1
## [171] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [205] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0
## [239] 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0
## [273] 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
## [307] 0 0 0 0 0 0 0 0 0 0 2 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [341] 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
## [375] 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0
## [409] 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0
## [443] 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [477] 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [511] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0
## [545] 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
## [579] 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 1 0 0 0 0 2
## [613] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [647] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [681] 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [715] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0
## [749] 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
## [783] 0 0 0 1 0 1 0 1 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
## [817] 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0
## [851] 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [885] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [919] 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0
## [953] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [987] 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0
## [1021] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
## [1055] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0
## [1089] 0 0 0 1 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0
## [1123] 0 0 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [1157] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 1 0 0 0 0 0 0 0 0 0 0 0
## [1191] 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0
## [1225] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [1259] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [1293] 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1
## [1327] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0
## [1361] 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [1395] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1
## [1429] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## [1463] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0
## [1497] 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
## [1531] 0 0 0 0 2 0 1 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [1565] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
## [1599] 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [1633] 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [1667] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 1 0 0 1 0 0 0 0 0 1 0 0 0
## [1701] 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
## [1735] 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 1 0 0
## [1769] 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0
## [1803] 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [1837] 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 3 0 0 0 0 1 0 1 0 0 0 0
## [1871] 0 0 0 0 0 0 0 2 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [1905] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0
## [1939] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [1973] 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [2007] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0
## [2041] 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
## [2075] 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
## [2109] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 3 0 0 0 0 0
## [2143] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [2177] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0
## [2211] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [2245] 1 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [2279] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [2313] 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [2347] 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## [2381] 0 0 0 0 0 0 2 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0
## [2415] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [2449] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [2483] 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0
## [2517] 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [2551] 0 0 0 0 0 0 0 1 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [2585] 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [2619] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0
## [2653] 0 0 0 0 0 0 1 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
## [2687] 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0
## [2721] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [2755] 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
## [2789] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2
## [2823] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [2857] 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [2891] 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [2925] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 0 0 0 0
## [2959] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
## [2993] 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1 0 0 0
## [3027] 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [3061] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0
## [3095] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## [3129] 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [3163] 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## [3197] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0
## [3231] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
## [3265] 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
## [3299] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0
## [3333] 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [3367] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## [3401] 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 0
## [3435] 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 1 0 1 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1
## [3469] 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [3503] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [3537] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
## [3571] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [3605] 1 0 1 0 0 0 0 1 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [3639] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0
## [3673] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0
## [3707] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0
## [3741] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
## [3775] 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [3809] 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0
## [3843] 2 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [3877] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1
## [3911] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0
## [3945] 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0
## [3979] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 0 0
## [4013] 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
## [4047] 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [4081] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
## [4115] 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
## [4149] 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [4183] 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [4217] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0
## [4251] 1 0 0 0 0 2 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0
## [4285] 0 0 0 0 0 0 0 0 0 1 0 1 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [4319] 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [4353] 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0
## [4387] 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0
## [4421] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [4455] 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0
## [4489] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0
## [4523] 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0
## [4557] 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0
## [4591] 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 2 0 1
## [4625] 0 0 0 0 0 0 0 0 0 0 1 0 0 2 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [4659] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0
## [4693] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 2 0 0 0 0 1
## [4727] 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [4761] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [4795] 0 0 0 0 0 0 0 0 0- How many movies lost money?
HoursMin <- function(input){input / 60}
HoursMin(60)## [1] 1movies$runtimeHrs <- HoursMin(movies$runtime)