load("C:/Users/Marta/Downloads/Game of Thrones (6).RData")
back.table<-table(personagens_livro$lealdade,personagens_livro$sexo)
table<-as.data.frame(unclass(back.table))
table<-cbind(table,lealdade=rowSums(table))
table<-rbind(table,sexo=colSums(table))
table
##                     femenino masculino lealdade
## Arryn                      6        24       30
## Baratheon                  6        58       64
## Greyjoy                    5        70       75
## Guardia de la Noche        0       116      116
## Lannister                 14        88      102
## Martell                   14        23       37
## Ninguna                   51       202      253
## Salvajes                  16        24       40
## Stark                     27        81      108
## Targaryen                  6        30       36
## Tully                      2        28       30
## Tyrell                    10        16       26
## sexo                     157       760      917
prop<-as.data.frame(round(unclass(prop.table(back.table)*100),3))
#colnames(prop)<-c('Nao-nobre','Nobre')
prop<-cbind(prop,lealdade=rowSums(prop))
prop<-rbind(prop,sexo=colSums(prop))
prop
##                     femenino masculino lealdade
## Arryn                  0.654     2.617    3.271
## Baratheon              0.654     6.325    6.979
## Greyjoy                0.545     7.634    8.179
## Guardia de la Noche    0.000    12.650   12.650
## Lannister              1.527     9.597   11.124
## Martell                1.527     2.508    4.035
## Ninguna                5.562    22.028   27.590
## Salvajes               1.745     2.617    4.362
## Stark                  2.944     8.833   11.777
## Targaryen              0.654     3.272    3.926
## Tully                  0.218     3.053    3.271
## Tyrell                 1.091     1.745    2.836
## sexo                  17.121    82.879  100.000

Nas tabelas acima, vemos que a maior parte dos peronagens é do sexo masculino (760, ou 82.88%) e que não jurou lealdade a ninguém (253, ou 27.59%). Tanto entre homens (202 ou 22.03% do total de personangens) quanto mulheres (51, ou 5.56% do total),há mais personagens sem lealdade. Vemos também que há apenas personagens masculinos (116, 12.65% do total)leais à Patrulha da Noite (Guardia de la Noche). Os Tyrell são os que possuem menos personagens leais a eles (26 personagens, 2.84%).

graph.table<-unclass(table(personagens_livro$sexo,personagens_livro$nobre))
colnames(graph.table)<-c('Nao-nobre','Nobre')
graph.table
##            
##             Nao-nobre Nobre
##   femenino         73    84
##   masculino       414   346
barplot(graph.table,col=c('red','blue')
        ,beside = T
        ,main='Nobres e não-nobres por sexo do personagem')
legend('topleft'
       ,c('Feminino','Masculino')
       ,fill=c('red','blue'))

Vemos, pela tabela acima e pelo gráfico gerado a partir da mesma, que existem muito mais personagens masculinos que femininos, o que foi visto nas tabelas anteriores. Vemos, porém, que, entre as pesonagens femininas, existem mais nobres que nao-nobres, enquanto que há mais personagens masculinos nao nobres que nobres.