Análise

No boxplot “Tempo de Tela dos Personagens” podemos observar que existem diversos outliers que são dados que se distanciam radicalmente de todos os outros, é um gráfico assimétrico, sua mediana está em 10minutos e seu maior outlier em 290 minutos.

De acordo com o gráfico “Lealdade por casa” a casa que se destaca é a Ninguna com 250 e com as menores porcentagens estão as casas Arryn e Tully. Já em “Casas iniciais dos personagens” percebemos que a casa Essos tem o maior número de personagens e logo em seguida temos a casa Westeros.

No gráfico de pizza vizualizamos que um pouco mais de 50% dos personagens são nobres e o restante plebeus.

load("C:/Users/Karen/Desktop/Base_de_dados-master/Game of Thrones.RData")
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_tt<-mean(tempo_de_tela$minutos)
media_tt
## [1] 27.26099
desvio_tt<-sd(tempo_de_tela$minutos)
desvio_tt
## [1] 46.03292
boxplot(tempo_de_tela$minutos, main = "Boxplot Tempo de Tela dos Personagens", col = "#0FA994")

lealdade <- table(personagens_livro$lealdade)
lealdade
## 
##               Arryn           Baratheon             Greyjoy Guardia de la Noche 
##                  30                  64                  75                 116 
##           Lannister             Martell             Ninguna            Salvajes 
##                 102                  37                 253                  40 
##               Stark           Targaryen               Tully              Tyrell 
##                 108                  36                  30                  26
barplot(lealdade, main = "Lealdade por casa", col = "#0FA994")

origem <- table(mudancas_aliancas$origem)
origem
## 
##     Casa Arryn Casa Baratheon   Casa Greyjoy Casa Lannister   Casa Martell 
##             19             34             14             31             11 
##     Casa Stark Casa Targaryen     Casa Tully    Casa Tyrell          Essos 
##             66              6             24             13            123 
##       Salvajes       Westeros  White Walkers 
##             41            101              5
barplot(origem, main = "Casas iniciais dos personagens", col = "#0FA994")

personagens_livro$nobre <- ifelse(personagens_livro$nobre == 0, "Nobre", "Plebeu")
nobreza <- table(personagens_livro$nobre)
pie(nobreza)

library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
personagens_livro %>% pull(nobre) %>% table %>% prop.table()*100
## .
##    Nobre   Plebeu 
## 53.10796 46.89204
origem <- table(mudancas_aliancas$origem)
origem
## 
##     Casa Arryn Casa Baratheon   Casa Greyjoy Casa Lannister   Casa Martell 
##             19             34             14             31             11 
##     Casa Stark Casa Targaryen     Casa Tully    Casa Tyrell          Essos 
##             66              6             24             13            123 
##       Salvajes       Westeros  White Walkers 
##             41            101              5
prop.table(origem)*100
## 
##     Casa Arryn Casa Baratheon   Casa Greyjoy Casa Lannister   Casa Martell 
##       3.893443       6.967213       2.868852       6.352459       2.254098 
##     Casa Stark Casa Targaryen     Casa Tully    Casa Tyrell          Essos 
##      13.524590       1.229508       4.918033       2.663934      25.204918 
##       Salvajes       Westeros  White Walkers 
##       8.401639      20.696721       1.024590