Passo 01 - Base de Dados

Aqui vou carregar a Base de Dados e demostrar a variável escolhida:

# PASSO 01 - Carregar base de dados e qual variável foi escolhida
load("C:/Users/Samsung/Desktop/01_ Pedro Henrique Miceli/01_ Escolaridade/07_ UNIRIO/02_ UNIRIO 2021.1/05_ TME0018_ Estatistica ACS/00 - Base de dados/Game of Thrones.RData")
head(tempo_de_tela)
                nome minutos episodios
1   Tyrion Lannister  293.30        54
2          Jon Nieve  268.15        49
3 Daenerys Targaryen  221.30        49
4   Cersei Lannister  201.45        52
5        Sansa Stark  199.30        47
6         Arya Stark  189.15        47
head(tempo_de_tela$minutos)
[1] 293.30 268.15 221.30 201.45 199.30 189.15

Passo 02 - Estatística

Aqui vou mostrar as estatísticas sobre o tempo de tela de cada personagem da variável escolhida, onde vamos poder observar todas as informações, como mínimo, primeiro quantil, média, mediana (segundo quantil), terceiro quantil e máximo:

# PASSO 02 - Estatística para saber média e mediana
summary(tempo_de_tela)
     nome              minutos          episodios    
 Length:191         Min.   :  1.150   Min.   : 2.00  
 Class :character   1st Qu.:  4.375   1st Qu.: 4.00  
 Mode  :character   Median : 10.300   Median : 7.50  
                    Mean   : 27.261   Mean   :12.44  
                    3rd Qu.: 27.650   3rd Qu.:17.00  
                    Max.   :293.300   Max.   :54.00  
                                      NA's   :15     
summary(tempo_de_tela$minutos)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  1.150   4.375  10.300  27.261  27.650 293.300 
media_tempo_de_tela_minutos <- mean(tempo_de_tela$minutos)
media_tempo_de_tela_minutos
[1] 27.26099
mediana_tempo_de_tela_minutos <- median(tempo_de_tela$minutos)
mediana_tempo_de_tela_minutos
[1] 10.3

Passo 03 - Var. e DP

Aqui vou fazer e apresentar a Variância (Var.) e o Desvio-Padrão (DP):

# PASSO 03 - Variância e Desvio-Padrão
varianca_tempo_de_tela_minutos <- var(tempo_de_tela$minutos)
varianca_tempo_de_tela_minutos
[1] 2119.029
desvio_padrao_tempo_de_tela_minutos <- sd(tempo_de_tela$minutos)
desvio_padrao_tempo_de_tela_minutos
[1] 46.03292

Passo 04 - Boxplot

Aqui vou fazer e apresentar o Boxplot do Tempo de Tela dos personagens e realizar a análise do mesmo ao final:

# PASSO 04 - Boxplot dos Minutos no Tempo de Tela
boxplot(tempo_de_tela$minutos, col = "#008000", main = "Bloxpot de Tempo de Tela (Minutos)")

Conclusão

Dessa forma, podemos observar que se trata de um Boxplot levemente assimétrico, concentrado (ou seja, pouca disperção de dados) e apresentando mais de 20 outliers, e que podemos concluir que a maior parte dos personagens, tem um tempo de tela similares no decorrer da série

.