|
|
@@ -21,6 +21,7 @@ tvseries %>% |
|
|
|
inner_join(ratings, by = c("eptconst" = "tconst")) %>% |
|
|
|
inner_join(tvepisodes, by = c("eptconst" = "tconst")) %>% |
|
|
|
select(-eptconst, episodeTitle = primaryTitle) %>% |
|
|
|
mutate_at(vars(season, episode, averageRating, numVotes), as.numeric) %>% |
|
|
|
arrange(seriesTitle, season, episode) -> |
|
|
|
final |
|
|
|
|
|
|
|