Week 7 - Netflix

Let’s import necessary libraries.

library(tidyverse)
library(readr)
library(ggplot2)

Let’s load our data from the main source.

df <- read_csv("https://github.com/ygterl/EDA-Netflix-2020-in-R/raw/master/netflix_titles.csv")

Let’s take a look at our data.

head(df)

As can be seen from the graph below, there is a significant increase in the number of TV shows and movies released after 2000.

df %>% group_by(release_year) %>% count(release_year) %>%
        ggplot(aes(x=release_year, y=n, fill=n)) +
        geom_bar(stat='identity') +
        ggtitle("Number of movies and tv shows released over time") +
        xlab("Release Years") + ylab("Number of movies and tv shows")

Let’s try to find which directors directed most films or tv shows. For this, we have to first split the directors in the director column using “split” function with comma as our delimiter. Then, we create a new dataframe with directors that have 10 most directed films and what type of thing they directed (movie or tv show). As a last thing, we can create a dataframe consisting of this information and then plotting it in on bar chart.

k <- strsplit(df$director, split = ", ")
directors <- data.frame(type = rep(df$type, sapply(k, length)), directors = unlist(k))
directors$directors <- as.character(directors$directors)

amount_by_directors <- na.omit(directors) %>%
  group_by(directors, type) %>%
  summarise(count = n()) %>%
  arrange(desc(count))

`summarise()` has grouped output by 'directors'. You can override using the `.groups` argument.

top_10_directors <- head(amount_by_directors, 10)

top_10_directors$directors <- factor(top_10_directors$directors, levels = c(top_10_directors$directors))

top_10_directors %>%
        ggplot(aes(x=directors, y=count, fill=count)) +
        geom_bar(stat='identity') +
        ggtitle("Names of the directors who directed most movies and tv shows") +
        xlab("Directors") + ylab("Number of directed movies and tv shows") +
        theme(axis.text.x = element_text(angle = 60, hjust = 1, size=12))