Cauã Macedo
e-mail: caua.macedo@edu.unirio.br — Matrícula: 20212520039
Fabrício Marques
e-mail: fabriciomarques2407@edu.unirio.br — Matrícula: 20212520040
Giulia Pontes
e-mail: giuliaps@edu.unirio.br — Matrícula: 20212520026
Kelly Grigório
e-mail: kellygrigorio@edu.unirio.br — Matrícula: 202125200081 Introdução
2 Objetivo
3 Base de dados
3.1 Metodologia utilizada
4 Análise de Resultados
library(readxl)
library(dplyr)
library(tidyverse)
library(reactable)
library(ggplot2)
library(ggthemes)
options(scipen = 999)
Netflix_Basic <- read_excel("C:/Users/Kelly Grigorio/Desktop/NETFLIX/Netflix_Basic.xlsx")
4.1 A quantidade de filmes tem influencia no preço básico da netflix?
4.1.1 Teste de normalidade Shapiro-Wilk
H0: Os dados seguem uma distribuição normal
H1: Os dados não seguem uma distribuição normal
alpha: 0,05
Se p-valor < alpha rejeita H0
Se p-valor > alpha não rejeita H0
shapiro.test(Netflix_Basic$Price_USD)
##
## Shapiro-Wilk normality test
##
## data: Netflix_Basic$Price_USD
## W = 0.84794, p-value = 0.0000001203
shapiro.test(Netflix_Basic$Of_Movies)
##
## Shapiro-Wilk normality test
##
## data: Netflix_Basic$Of_Movies
## W = 0.90623, p-value = 0.00002023
4.1.2 Método de coeficiente de correlação de Spearman
H0: A quantidade de filmes tem influência no valor da assinatura básica da Netflix.
H1: A quantidade de filmes não tem influência no valor da assinatura básica da Netflix.
Alpha: 0,05
Se p-valor < alpha rejeita H0
Se p-valor > alpha não rejeita H0
cor.test(Netflix_Basic$Price_USD,Netflix_Basic$Of_Movies, method = "spearman")
##
## Spearman's rank correlation rho
##
## data: Netflix_Basic$Price_USD and Netflix_Basic$Of_Movies
## S = 54789, p-value = 0.0004441
## alternative hypothesis: true rho is not equal to 0
## sample estimates:
## rho
## 0.3813362
4.1.3 Gráfico de Dispersão
Netflix_Basic %>%
ggplot(aes(x=`Of_Movies`, y= Price_USD)) +
geom_point() +
geom_smooth(method = lm,colour = "#E50914") +
labs(title = "Preço vs Quantidade de filmes") +
theme_minimal() +
scale_fill_manual(values = c( "#2d2d2d", "#E50914")) +
theme(
legend.position = "none",
plot.title = element_text(
family = "Bebas Neue",
size = 20,
colour = "#E50914"
),
axis.title.x = element_blank(),
axis.title.y = element_blank(),
panel.grid.major.x = element_blank())
4.2 A quantidade de séries tem influencia no preço básico da netflix?
4.2.1 Teste de normalidade Shapiro-Wilk
H0: Os dados seguem uma distribuição normal
H1: Os dados não seguem uma distribuição normal
alpha: 0,05
Se p-valor < alpha rejeita H0
Se p-valor > alpha não rejeita H0
shapiro.test(Netflix_Basic$Price_USD)
##
## Shapiro-Wilk normality test
##
## data: Netflix_Basic$Price_USD
## W = 0.84794, p-value = 0.0000001203
shapiro.test(Netflix_Basic$of_TV_Shows)
##
## Shapiro-Wilk normality test
##
## data: Netflix_Basic$of_TV_Shows
## W = 0.88797, p-value = 0.000003478
4.2.2 Método de coeficiente de correlação de Spearman
H0: A quantidade de Séries tem influência no valor da assinatura básica da Netflix.
H1: A quantidade de Séries não tem influência no valor da assinatura básica da Netflix.
Alpha: 0,05
Se p-valor < alpha rejeita H0
Se p-valor > alpha não rejeita H0
cor.test(Netflix_Basic$Price_USD,Netflix_Basic$of_TV_Shows,
method = "spearman")
##
## Spearman's rank correlation rho
##
## data: Netflix_Basic$Price_USD and Netflix_Basic$of_TV_Shows
## S = 92756, p-value = 0.6745
## alternative hypothesis: true rho is not equal to 0
## sample estimates:
## rho
## -0.04737669
4.2.3 Gráfico de Dispersão
Netflix_Basic %>%
ggplot(aes(x= `of_TV_Shows`, y= Price_USD)) +
geom_point() +
geom_smooth(method = lm,colour = "#E50914") +
labs(title = "Preço vs Quantidade de séries") +
theme_minimal() +
scale_fill_manual(values = c( "#2d2d2d", "#E50914")) +
theme(
legend.position = "none",
plot.title = element_text(
family = "Bebas Neue",
size = 20,
colour = "#E50914"
),
axis.title.x = element_blank(),
axis.title.y = element_blank(),
panel.grid.major.x = element_blank())
4.3 A biblioteca (filmes e séries) tem influencia no preço básico da netflix?
4.3.1 Teste de normalidade Shapiro-Wilk
H0: Os dados seguem uma distribuição normal
H1: Os dados não seguem uma distribuição normal
alpha: 0,05
Se p-valor < alpha rejeita H0
Se p-valor > alpha não rejeita H0
shapiro.test(Netflix_Basic$Price_USD)
##
## Shapiro-Wilk normality test
##
## data: Netflix_Basic$Price_USD
## W = 0.84794, p-value = 0.0000001203
shapiro.test(Netflix_Basic$Total_Library_Size)
##
## Shapiro-Wilk normality test
##
## data: Netflix_Basic$Total_Library_Size
## W = 0.9184, p-value = 0.00007233
4.3.2 Método de coeficiente de correlação de Spearman
H0: A biblioteca (filmes e séries) tem influência no preço básico da Netflix.
H1: A biblioteca (filmes e séries) não tem influência no preço básico da Netflix.
Alpha: 0,05
Se p-valor < alpha rejeita H0
Se p-valor > alpha não rejeita H0
cor.test(Netflix_Basic$Price_USD,Netflix_Basic$Total_Library_Size,
method = "spearman")
##
## Spearman's rank correlation rho
##
## data: Netflix_Basic$Price_USD and Netflix_Basic$Total_Library_Size
## S = 65521, p-value = 0.019
## alternative hypothesis: true rho is not equal to 0
## sample estimates:
## rho
## 0.2601512
4.3.3 Gráfico de Dispersão
Netflix_Basic %>%
ggplot(aes(x= `Total_Library_Size`, y= Price_USD)) +
geom_point() +
geom_smooth(method = lm,colour = "#E50914") +
labs(title = "Preço vs Quantidade de filmes e séries") +
theme_minimal() +
scale_fill_manual(values = c( "#2d2d2d", "#E50914")) +
theme(
legend.position = "none",
plot.title = element_text(
family = "Bebas Neue",
size = 20,
colour = "#E50914"
),
axis.title.x = element_blank(),
axis.title.y = element_blank(),
panel.grid.major.x = element_blank())
5 Discussão
6 Conclusão
7 Referência Bibliográfica
Canaltech: Aumento do preço das assinaturas da netflix
Investing: Redução dos preços dos planos na Índia