No boxplot “Tempo de Tela dos Personagens” podemos ver que existem vários outliers conhecido como “os pontos fora da curva”, é um gráfico assimétrico, sua mediana está em 10minutos e seu maior outlier em 290 minutos. Sua média está em 27,26 minutos e o desvio padrão em 46.

Segundo o gráfico “Lealdade por casa” a casa que se destaca é a Ninguna com acima de 250 e com as menores porcentagens estão as casas Arryn, Tully e Tyrell. Já em “Casas iniciais dos personagens” percebemos que a casa Essos tem o número maior de personagens e logo após temos a casa Westeros e em terceiro lugar a casa Stark.

No gráfico de pizza junto com a tabela vemos que 53,11% dos personagens são nobres e 46,89% são plebeus.

load ("C:/Users/Kryst/OneDrive/Imagens/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, mean = "Boxplot Tempo de Tela dos Personagens", col = "pink")

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 = "pink")

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 = "pink")

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

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