library(stringr) movies <- read.csv(“C:”) str(movies)
summary(movies) movies\(genre <-
as.character(movies\)genre) movies\(genre <- str_remove_all(movies\)genre,
“Drama,?”) movies\(genre <-
str_remove_all(movies\)genre, “Action,?”) movies\(genre <- str_remove_all(movies\)genre,
“Adventure,?”) movies\(genre <-
str_remove_all(movies\)genre, “Fantasy,?”) movies\(genre <- str_remove_all(movies\)genre,
“Comedy,?”) movies\(genre <-
str_remove_all(movies\)genre, “Romance,?”) movies\(genre <- str_remove_all(movies\)genre,
“Thriller,?”) movies\(genre <-
str_remove_all(movies\)genre, “Crime,?”) movies\(genre <- str_remove_all(movies\)genre,
“Horror,?”) movies\(genre <-
str_remove_all(movies\)genre, “History,?”) movies\(genre <- str_remove_all(movies\)genre,
“Mystery,?”)
movies\(genre <-
str_remove_all(movies\)genre, “War,?”) movies\(genre <- str_remove_all(movies\)genre,
“Western,?”) movies\(genre <-
str_remove_all(movies\)genre, “Music,?”) movies\(genre <- str_remove_all(movies\)genre,
“Documentary,?”) movies\(genre <-
str_remove_all(movies\)genre, “Family,?”) movies\(genre <- str_remove_all(movies\)genre,
“Science Fiction,?”) movies\(genre <-
str_remove_all(movies\)genre, “Animation,?”)
table(movies\(genre) anova_model <- aov(revenue ~ genre, data = movies) summary(anova_model) regression_model <- lm(revenue ~ budget_x, data = movies) summary(regression_model) plot(movies\)budget_x, movies$revenue, xlab = “Budget”, ylab = “Revenue”) abline(regression_model, col = “red”) regression_model2 <- lm(revenue ~ budget_x + genre, data = movies) summary(regression_model2) rm(list = ls())