library(tidyverse)
MovieRatings <- read.csv("2010_animation_ratings.csv", header = TRUE, sep = ",")
MovieRatings %>%
mutate(Title = as.character(title),
Title = recode(Title,
"Shrek Forever After (a.k.a. Shrek: The Final Chapter) (2010)" = "Shrek Forever",
"How to Train Your Dragon (2010)" = "Dragon",
"Toy Story 3 (2010)" = "Toy Story 3",
"Tangled (2010)" = "Tangled",
"Despicable Me (2010)" = "Despicable Me",
"Legend of the Guardians: The Owls of Ga'Hoole (2010)" = "Guardians",
"Megamind (2010)" = "Megamind",
"Batman: Under the Red Hood (2010)" = "Batman")) ->
MovieRatings