MovieDataInsight

Task: To Visualize dataset of 5000 movie posters and other information(budget,rating,year of release etc.) to provide some innovative insights about it

Looking at dataset I can see that the dependent features used in the dataset to analyze the movies performance are based on two factors

• The practical entities such as color, director name, duration, gross, actor name, director, country ,language etc.
• The social media entities such as Facebook likes, critic reviews, imdb link etc.

Based on the data provided there are few questions that can answered such as

• What are values of budget by country?
• What drives gross?
• What is predictive model for duration?
• What is trend over title_year by color?
• What is the breakdown of Facebook likes by Country?
• Effect of gross income based on plot _keywords?

My Analysis :

I am very much fascinated by the role played by Social media on both promotion and success of the movie. Traditionally the success of the movie before the social media period was dependent on actors, directors, press, publicity, and word of mouth. Now due to social media movies that are made in low budget may have higher gross turnover at the box office. Movie audiences Facebook likes on the page of the Movie,Actors and Directors does seem to help bringing in more audience, Increase in gross and Imdb_score. Lets see the relation of the movie sucess w.r t facebook likes…….

ENVIRONMENT SETUP

# Load the required packages (if packages are not available, install them first)
for (package in c('caret','readr','ggplot2','magrittr','ggthemes','dplyr','corrplot','caTools')) {
  if (!require(package, character.only=T, quietly=T)) {
    install.packages(package)
    library(package,character.only=T)
  }
}

##Get the Data 
# Read the csv file and save in an object called "linear_data"
movie_data <- read.csv("C:/CompleteMLProjects/MovieDataModel/Movie_data.csv")

# Peek into the data
print(head(movie_data))

##   color     director_name num_critic_for_reviews duration
## 1 Color     James Cameron                    723      178
## 2 Color    Gore Verbinski                    302      169
## 3 Color        Sam Mendes                    602      148
## 4 Color Christopher Nolan                    813      164
## 5             Doug Walker                     NA       NA
## 6 Color    Andrew Stanton                    462      132
##   director_facebook_likes actor_3_facebook_likes     actor_2_name
## 1                       0                    855 Joel David Moore
## 2                     563                   1000    Orlando Bloom
## 3                       0                    161     Rory Kinnear
## 4                   22000                  23000   Christian Bale
## 5                     131                     NA       Rob Walker
## 6                     475                    530  Samantha Morton
##   actor_1_facebook_likes     gross                          genres
## 1                   1000 760505847 Action|Adventure|Fantasy|Sci-Fi
## 2                  40000 309404152        Action|Adventure|Fantasy
## 3                  11000 200074175       Action|Adventure|Thriller
## 4                  27000 448130642                 Action|Thriller
## 5                    131        NA                     Documentary
## 6                    640  73058679         Action|Adventure|Sci-Fi
##      actor_1_name                                             movie_title
## 1     CCH Pounder                                                 Avatar 
## 2     Johnny Depp               Pirates of the Caribbean: At World's End 
## 3 Christoph Waltz                                                Spectre 
## 4       Tom Hardy                                  The Dark Knight Rises 
## 5     Doug Walker Star Wars: Episode VII - The Force Awakens             
## 6    Daryl Sabara                                            John Carter 
##   num_voted_users cast_total_facebook_likes         actor_3_name
## 1          886204                      4834            Wes Studi
## 2          471220                     48350       Jack Davenport
## 3          275868                     11700     Stephanie Sigman
## 4         1144337                    106759 Joseph Gordon-Levitt
## 5               8                       143                     
## 6          212204                      1873         Polly Walker
##   facenumber_in_poster
## 1                    0
## 2                    0
## 3                    1
## 4                    0
## 5                    0
## 6                    1
##                                                      plot_keywords
## 1                           avatar|future|marine|native|paraplegic
## 2     goddess|marriage ceremony|marriage proposal|pirate|singapore
## 3                              bomb|espionage|sequel|spy|terrorist
## 4 deception|imprisonment|lawlessness|police officer|terrorist plot
## 5                                                                 
## 6               alien|american civil war|male nipple|mars|princess
##                                        movie_imdb_link
## 1 http://www.imdb.com/title/tt0499549/?ref_=fn_tt_tt_1
## 2 http://www.imdb.com/title/tt0449088/?ref_=fn_tt_tt_1
## 3 http://www.imdb.com/title/tt2379713/?ref_=fn_tt_tt_1
## 4 http://www.imdb.com/title/tt1345836/?ref_=fn_tt_tt_1
## 5 http://www.imdb.com/title/tt5289954/?ref_=fn_tt_tt_1
## 6 http://www.imdb.com/title/tt0401729/?ref_=fn_tt_tt_1
##   num_user_for_reviews language country content_rating    budget
## 1                 3054  English     USA          PG-13 237000000
## 2                 1238  English     USA          PG-13 300000000
## 3                  994  English      UK          PG-13 245000000
## 4                 2701  English     USA          PG-13 250000000
## 5                   NA                                        NA
## 6                  738  English     USA          PG-13 263700000
##   title_year actor_2_facebook_likes imdb_score aspect_ratio
## 1       2009                    936        7.9         1.78
## 2       2007                   5000        7.1         2.35
## 3       2015                    393        6.8         2.35
## 4       2012                  23000        8.5         2.35
## 5         NA                     12        7.1           NA
## 6       2012                    632        6.6         2.35
##   movie_facebook_likes
## 1                33000
## 2                    0
## 3                85000
## 4               164000
## 5                    0
## 6                24000

#Convert the data into data frames
movie_data <- as.data.frame(movie_data)

# Check for the column names
colnames(movie_data)

##  [1] "color"                     "director_name"            
##  [3] "num_critic_for_reviews"    "duration"                 
##  [5] "director_facebook_likes"   "actor_3_facebook_likes"   
##  [7] "actor_2_name"              "actor_1_facebook_likes"   
##  [9] "gross"                     "genres"                   
## [11] "actor_1_name"              "movie_title"              
## [13] "num_voted_users"           "cast_total_facebook_likes"
## [15] "actor_3_name"              "facenumber_in_poster"     
## [17] "plot_keywords"             "movie_imdb_link"          
## [19] "num_user_for_reviews"      "language"                 
## [21] "country"                   "content_rating"           
## [23] "budget"                    "title_year"               
## [25] "actor_2_facebook_likes"    "imdb_score"               
## [27] "aspect_ratio"              "movie_facebook_likes"

# #Check for any NA values
any(is.na(movie_data))

## [1] TRUE

movie_data <- na.omit(movie_data)
# omit the rows with Na's 
dim(movie_data)

## [1] 3801   28

DATA VISUALIZATION

#Let us use ggplot2 to visualize the data and get more understanding.
library(ggplot2)
library(ggthemes)
library(dplyr)

# Create a plot to understnd corelation between features in the dataframe.
# Grab only the numeric columns
num.cols <- sapply(movie_data, is.numeric)
# filter numeric columns for corelation
# Use cor function to grab the corerealtion between each pf numeric variable
cor.data <- cor(movie_data[,num.cols])
print(cor.data)

##                           num_critic_for_reviews    duration
## num_critic_for_reviews                1.00000000  0.22770510
## duration                              0.22770510  1.00000000
## director_facebook_likes               0.17691581  0.17973400
## actor_3_facebook_likes                0.25508576  0.12577123
## actor_1_facebook_likes                0.17019757  0.08471988
## gross                                 0.46853499  0.24474304
## num_voted_users                       0.59498973  0.33803814
## cast_total_facebook_likes             0.24100544  0.12117142
## facenumber_in_poster                 -0.03400866  0.02909973
## num_user_for_reviews                  0.56679514  0.35039147
## budget                                0.10568105  0.06816122
## title_year                            0.41038049 -0.12942203
## actor_2_facebook_likes                0.25583672  0.12945227
## imdb_score                            0.34388077  0.36612369
## aspect_ratio                          0.18064082  0.15311429
## movie_facebook_likes                  0.70396936  0.21493610
##                           director_facebook_likes actor_3_facebook_likes
## num_critic_for_reviews                 0.17691581             0.25508576
## duration                               0.17973400             0.12577123
## director_facebook_likes                1.00000000             0.11824025
## actor_3_facebook_likes                 0.11824025             1.00000000
## actor_1_facebook_likes                 0.09073261             0.25372024
## gross                                  0.13993814             0.30158391
## num_voted_users                        0.30061915             0.26945536
## cast_total_facebook_likes              0.11974122             0.49068631
## facenumber_in_poster                  -0.04761895             0.10501768
## num_user_for_reviews                   0.21831138             0.20732096
## budget                                 0.01855931             0.04047813
## title_year                            -0.04460636             0.11553537
## actor_2_facebook_likes                 0.11690032             0.55418237
## imdb_score                             0.19083814             0.06497354
## aspect_ratio                           0.03787106             0.04712336
## movie_facebook_likes                   0.16273728             0.27251268
##                           actor_1_facebook_likes       gross
## num_critic_for_reviews                0.17019757  0.46853499
## duration                              0.08471988  0.24474304
## director_facebook_likes               0.09073261  0.13993814
## actor_3_facebook_likes                0.25372024  0.30158391
## actor_1_facebook_likes                1.00000000  0.14704475
## gross                                 0.14704475  1.00000000
## num_voted_users                       0.18226526  0.62694784
## cast_total_facebook_likes             0.94492526  0.23868703
## facenumber_in_poster                  0.05757968 -0.03225370
## num_user_for_reviews                  0.12522139  0.54710674
## budget                                0.01708638  0.10038914
## title_year                            0.09374233  0.05236800
## actor_2_facebook_likes                0.39267587  0.25465945
## imdb_score                            0.09313142  0.21212439
## aspect_ratio                          0.05760375  0.06526004
## movie_facebook_likes                  0.13177824  0.36849402
##                           num_voted_users cast_total_facebook_likes
## num_critic_for_reviews         0.59498973                0.24100544
## duration                       0.33803814                0.12117142
## director_facebook_likes        0.30061915                0.11974122
## actor_3_facebook_likes         0.26945536                0.49068631
## actor_1_facebook_likes         0.18226526                0.94492526
## gross                          0.62694784                0.23868703
## num_voted_users                1.00000000                0.25194009
## cast_total_facebook_likes      0.25194009                1.00000000
## facenumber_in_poster          -0.03202642                0.08098495
## num_user_for_reviews           0.77992455                0.18228784
## budget                         0.06682395                0.02942336
## title_year                     0.02193838                0.12401462
## actor_2_facebook_likes         0.24666028                0.64401612
## imdb_score                     0.47791732                0.10625870
## aspect_ratio                   0.08548456                0.06967465
## movie_facebook_likes           0.51869065                0.20706080
##                           facenumber_in_poster num_user_for_reviews
## num_critic_for_reviews             -0.03400866           0.56679514
## duration                            0.02909973           0.35039147
## director_facebook_likes            -0.04761895           0.21831138
## actor_3_facebook_likes              0.10501768           0.20732096
## actor_1_facebook_likes              0.05757968           0.12522139
## gross                              -0.03225370           0.54710674
## num_voted_users                    -0.03202642           0.77992455
## cast_total_facebook_likes           0.08098495           0.18228784
## facenumber_in_poster                1.00000000          -0.07940360
## num_user_for_reviews               -0.07940360           1.00000000
## budget                             -0.02175723           0.07125387
## title_year                          0.06795245           0.01759409
## actor_2_facebook_likes              0.07413806           0.18958182
## imdb_score                         -0.06429247           0.32252237
## aspect_ratio                        0.01662043           0.09855669
## movie_facebook_likes                0.01433235           0.37197029
##                                budget  title_year actor_2_facebook_likes
## num_critic_for_reviews     0.10568105  0.41038049             0.25583672
## duration                   0.06816122 -0.12942203             0.12945227
## director_facebook_likes    0.01855931 -0.04460636             0.11690032
## actor_3_facebook_likes     0.04047813  0.11553537             0.55418237
## actor_1_facebook_likes     0.01708638  0.09374233             0.39267587
## gross                      0.10038914  0.05236800             0.25465945
## num_voted_users            0.06682395  0.02193838             0.24666028
## cast_total_facebook_likes  0.02942336  0.12401462             0.64401612
## facenumber_in_poster      -0.02175723  0.06795245             0.07413806
## num_user_for_reviews       0.07125387  0.01759409             0.18958182
## budget                     1.00000000  0.04629319             0.03621089
## title_year                 0.04629319  1.00000000             0.11973855
## actor_2_facebook_likes     0.03621089  0.11973855             1.00000000
## imdb_score                 0.02904057 -0.12926516             0.10206038
## aspect_ratio               0.02579646  0.21977924             0.06421530
## movie_facebook_likes       0.05303510  0.30283494             0.23363209
##                            imdb_score aspect_ratio movie_facebook_likes
## num_critic_for_reviews     0.34388077   0.18064082           0.70396936
## duration                   0.36612369   0.15311429           0.21493610
## director_facebook_likes    0.19083814   0.03787106           0.16273728
## actor_3_facebook_likes     0.06497354   0.04712336           0.27251268
## actor_1_facebook_likes     0.09313142   0.05760375           0.13177824
## gross                      0.21212439   0.06526004           0.36849402
## num_voted_users            0.47791732   0.08548456           0.51869065
## cast_total_facebook_likes  0.10625870   0.06967465           0.20706080
## facenumber_in_poster      -0.06429247   0.01662043           0.01433235
## num_user_for_reviews       0.32252237   0.09855669           0.37197029
## budget                     0.02904057   0.02579646           0.05303510
## title_year                -0.12926516   0.21977924           0.30283494
## actor_2_facebook_likes     0.10206038   0.06421530           0.23363209
## imdb_score                 1.00000000   0.02845372           0.27947774
## aspect_ratio               0.02845372   1.00000000           0.11031824
## movie_facebook_likes       0.27947774   0.11031824           1.00000000

Visualise the corelated data using ‘corrplot’

library(corrplot)
print(corrplot(cor.data, method = 'color'))

##                           num_critic_for_reviews    duration
## num_critic_for_reviews                1.00000000  0.22770510
## duration                              0.22770510  1.00000000
## director_facebook_likes               0.17691581  0.17973400
## actor_3_facebook_likes                0.25508576  0.12577123
## actor_1_facebook_likes                0.17019757  0.08471988
## gross                                 0.46853499  0.24474304
## num_voted_users                       0.59498973  0.33803814
## cast_total_facebook_likes             0.24100544  0.12117142
## facenumber_in_poster                 -0.03400866  0.02909973
## num_user_for_reviews                  0.56679514  0.35039147
## budget                                0.10568105  0.06816122
## title_year                            0.41038049 -0.12942203
## actor_2_facebook_likes                0.25583672  0.12945227
## imdb_score                            0.34388077  0.36612369
## aspect_ratio                          0.18064082  0.15311429
## movie_facebook_likes                  0.70396936  0.21493610
##                           director_facebook_likes actor_3_facebook_likes
## num_critic_for_reviews                 0.17691581             0.25508576
## duration                               0.17973400             0.12577123
## director_facebook_likes                1.00000000             0.11824025
## actor_3_facebook_likes                 0.11824025             1.00000000
## actor_1_facebook_likes                 0.09073261             0.25372024
## gross                                  0.13993814             0.30158391
## num_voted_users                        0.30061915             0.26945536
## cast_total_facebook_likes              0.11974122             0.49068631
## facenumber_in_poster                  -0.04761895             0.10501768
## num_user_for_reviews                   0.21831138             0.20732096
## budget                                 0.01855931             0.04047813
## title_year                            -0.04460636             0.11553537
## actor_2_facebook_likes                 0.11690032             0.55418237
## imdb_score                             0.19083814             0.06497354
## aspect_ratio                           0.03787106             0.04712336
## movie_facebook_likes                   0.16273728             0.27251268
##                           actor_1_facebook_likes       gross
## num_critic_for_reviews                0.17019757  0.46853499
## duration                              0.08471988  0.24474304
## director_facebook_likes               0.09073261  0.13993814
## actor_3_facebook_likes                0.25372024  0.30158391
## actor_1_facebook_likes                1.00000000  0.14704475
## gross                                 0.14704475  1.00000000
## num_voted_users                       0.18226526  0.62694784
## cast_total_facebook_likes             0.94492526  0.23868703
## facenumber_in_poster                  0.05757968 -0.03225370
## num_user_for_reviews                  0.12522139  0.54710674
## budget                                0.01708638  0.10038914
## title_year                            0.09374233  0.05236800
## actor_2_facebook_likes                0.39267587  0.25465945
## imdb_score                            0.09313142  0.21212439
## aspect_ratio                          0.05760375  0.06526004
## movie_facebook_likes                  0.13177824  0.36849402
##                           num_voted_users cast_total_facebook_likes
## num_critic_for_reviews         0.59498973                0.24100544
## duration                       0.33803814                0.12117142
## director_facebook_likes        0.30061915                0.11974122
## actor_3_facebook_likes         0.26945536                0.49068631
## actor_1_facebook_likes         0.18226526                0.94492526
## gross                          0.62694784                0.23868703
## num_voted_users                1.00000000                0.25194009
## cast_total_facebook_likes      0.25194009                1.00000000
## facenumber_in_poster          -0.03202642                0.08098495
## num_user_for_reviews           0.77992455                0.18228784
## budget                         0.06682395                0.02942336
## title_year                     0.02193838                0.12401462
## actor_2_facebook_likes         0.24666028                0.64401612
## imdb_score                     0.47791732                0.10625870
## aspect_ratio                   0.08548456                0.06967465
## movie_facebook_likes           0.51869065                0.20706080
##                           facenumber_in_poster num_user_for_reviews
## num_critic_for_reviews             -0.03400866           0.56679514
## duration                            0.02909973           0.35039147
## director_facebook_likes            -0.04761895           0.21831138
## actor_3_facebook_likes              0.10501768           0.20732096
## actor_1_facebook_likes              0.05757968           0.12522139
## gross                              -0.03225370           0.54710674
## num_voted_users                    -0.03202642           0.77992455
## cast_total_facebook_likes           0.08098495           0.18228784
## facenumber_in_poster                1.00000000          -0.07940360
## num_user_for_reviews               -0.07940360           1.00000000
## budget                             -0.02175723           0.07125387
## title_year                          0.06795245           0.01759409
## actor_2_facebook_likes              0.07413806           0.18958182
## imdb_score                         -0.06429247           0.32252237
## aspect_ratio                        0.01662043           0.09855669
## movie_facebook_likes                0.01433235           0.37197029
##                                budget  title_year actor_2_facebook_likes
## num_critic_for_reviews     0.10568105  0.41038049             0.25583672
## duration                   0.06816122 -0.12942203             0.12945227
## director_facebook_likes    0.01855931 -0.04460636             0.11690032
## actor_3_facebook_likes     0.04047813  0.11553537             0.55418237
## actor_1_facebook_likes     0.01708638  0.09374233             0.39267587
## gross                      0.10038914  0.05236800             0.25465945
## num_voted_users            0.06682395  0.02193838             0.24666028
## cast_total_facebook_likes  0.02942336  0.12401462             0.64401612
## facenumber_in_poster      -0.02175723  0.06795245             0.07413806
## num_user_for_reviews       0.07125387  0.01759409             0.18958182
## budget                     1.00000000  0.04629319             0.03621089
## title_year                 0.04629319  1.00000000             0.11973855
## actor_2_facebook_likes     0.03621089  0.11973855             1.00000000
## imdb_score                 0.02904057 -0.12926516             0.10206038
## aspect_ratio               0.02579646  0.21977924             0.06421530
## movie_facebook_likes       0.05303510  0.30283494             0.23363209
##                            imdb_score aspect_ratio movie_facebook_likes
## num_critic_for_reviews     0.34388077   0.18064082           0.70396936
## duration                   0.36612369   0.15311429           0.21493610
## director_facebook_likes    0.19083814   0.03787106           0.16273728
## actor_3_facebook_likes     0.06497354   0.04712336           0.27251268
## actor_1_facebook_likes     0.09313142   0.05760375           0.13177824
## gross                      0.21212439   0.06526004           0.36849402
## num_voted_users            0.47791732   0.08548456           0.51869065
## cast_total_facebook_likes  0.10625870   0.06967465           0.20706080
## facenumber_in_poster      -0.06429247   0.01662043           0.01433235
## num_user_for_reviews       0.32252237   0.09855669           0.37197029
## budget                     0.02904057   0.02579646           0.05303510
## title_year                -0.12926516   0.21977924           0.30283494
## actor_2_facebook_likes     0.10206038   0.06421530           0.23363209
## imdb_score                 1.00000000   0.02845372           0.27947774
## aspect_ratio               0.02845372   1.00000000           0.11031824
## movie_facebook_likes       0.27947774   0.11031824           1.00000000

#We can observe here that here that features such as gross and number of voted user are high correlated to each other. 
# Also there seems to be some inverse corelation  between (title_year ,duration,imdb_score and budget

# Lets Visualize the relation between Facebook likes,Imdb score and gross 

# Visualize plot w.r.t number of likes on Movie face book page

movie_data %>% select(movie_facebook_likes,gross,imdb_score) %>%
ggplot(aes(movie_facebook_likes,imdb_score,color=gross))+ geom_point() +
scale_colour_gradient( low="green", high="red")

# we can see the more no of likes on Movie facebook page reflects few higher gross and higher imdb rating.

# Visualize relation between Actor, director and cast facbook likes w.r.t imdb_score and gross
# Actor 1 facebook_likes
movie_data %>% select(actor_1_facebook_likes,gross,imdb_score) %>%
ggplot(aes(actor_1_facebook_likes,imdb_score,color=gross))+ geom_point() +
scale_colour_gradient( low="green", high="red")

 # For  Actor_1 facebook likes are but less but have higher gross and higher imdb rating. 
# So for good gross and imdb scores the first actor should be big or popular enough to overcome his/her presence in social media.

# Actor 2 facebook_likes
movie_data %>% select(actor_2_facebook_likes,gross,imdb_score) %>%
ggplot(aes(actor_2_facebook_likes,imdb_score,color=gross))+ geom_point() +
scale_colour_gradient( low="green", high="red")

# Actor_2 seems to be in median range 

# Actor 3
movie_data %>% select(actor_3_facebook_likes,gross,imdb_score) %>%
ggplot(aes(actor_3_facebook_likes,imdb_score,color=gross))+ geom_point() +
scale_colour_gradient( low="green", high="red")

# Actor3 facebook likes seems to give a big variace here.
# More number of Facebook likes have very less affect  on the  gross, so even big and popular star acting as Actor_3 will not help in movie success


# Director_facebook_likes
movie_data %>% select(director_facebook_likes,gross,imdb_score) %>%
ggplot(aes(director_facebook_likes,imdb_score,color=gross))+ geom_point() +
scale_colour_gradient( low="green", high="red")

# Director with most Facebook likes gave the most gross but not always.

# cast total facebook likes
movie_data %>% select(cast_total_facebook_likes,gross,imdb_score) %>%
ggplot(aes(cast_total_facebook_likes,imdb_score,color=gross))+ geom_point() +
scale_colour_gradient( low="green", high="red")

# Popularity of the total cast on facebook seems to be making not much effect on the gross and imdb_score of the movie.Highest gross and imdb_score have less facebook likes.

Further we can also visualize other features such as Critic ratings, imdb links etc to find how the impact Social media makes on the success of movies in today’s times. Also we can make two separate tables one with social media aspects and other without. And compare both of them to see before the social media time how movies performed. This analysis can be formulated to promote the success of the film at some remote place in any part of the world where movie lovers are not much into social media.