Atividade 3

#Baixar a Base de Dados

load("~/bases_curso_estatistica/Base_de_dados-master/Game of Thrones.RData")

#Nomear as Variáveis

personagens_livro$nobre = ifelse(personagens_livro$nobre == 1,"nobre","plebeu")

personagens_livro$Guerra_dos_Tronos = ifelse(personagens_livro$Guerra_dos_Tronos==1,"sim","nao")

#Relacionando a variável “lealdade” e “nobreza”, para analisar quantos nobres/pebleus:

##tabela nobreza

tabela_nobre =table(personagens_livro$nobre,personagens_livro$lealdade)
tabela_nobre

##         
##          Arryn Baratheon Greyjoy Guardia de la Noche Lannister Martell Ninguna
##   nobre     20        47      37                  11        66      25      93
##   plebeu    10        17      38                 105        36      12     160
##         
##          Salvajes Stark Targaryen Tully Tyrell
##   nobre        10    69        10    21     21
##   plebeu       30    39        26     9      5

#Tabela de Proporção 1 - Porcentagem de nobres ou plebeus por personagem:

round(prop.table(tabela_nobre,1)*100,1)

##         
##          Arryn Baratheon Greyjoy Guardia de la Noche Lannister Martell Ninguna
##   nobre    4.7      10.9     8.6                 2.6      15.3     5.8    21.6
##   plebeu   2.1       3.5     7.8                21.6       7.4     2.5    32.9
##         
##          Salvajes Stark Targaryen Tully Tyrell
##   nobre       2.3  16.0       2.3   4.9    4.9
##   plebeu      6.2   8.0       5.3   1.8    1.0

#Tabela de Proporção 2 -Porcentagem de nobres ou plebeus por casas:

round(prop.table(tabela_nobre,1)*100,2)

##         
##          Arryn Baratheon Greyjoy Guardia de la Noche Lannister Martell Ninguna
##   nobre   4.65     10.93    8.60                2.56     15.35    5.81   21.63
##   plebeu  2.05      3.49    7.80               21.56      7.39    2.46   32.85
##         
##          Salvajes Stark Targaryen Tully Tyrell
##   nobre      2.33 16.05      2.33  4.88   4.88
##   plebeu     6.16  8.01      5.34  1.85   1.03

#Gráfico de Barras

library(RColorBrewer)
COR = brewer.pal(4,"Set3")
barplot(tabela_nobre,main = "Nobreza das Casas de Game of Thrones", col = COR,
        beside = T)