Base de dados

load("C:/Users/Thais/Downloads/Game of Thrones.RData")

Relacionando as variaveis de lealdade e sexo, para saber o quantitativo de genero em cada casa

sexo_lealdade =table(personagens_livro$sexo,personagens_livro$lealdade)
table(personagens_livro$sexo,personagens_livro$lealdade)
##            
##             Arryn Baratheon Greyjoy Guardia de la Noche Lannister Martell
##   femenino      6         6       5                   0        14      14
##   masculino    24        58      70                 116        88      23
##            
##             Ninguna Salvajes Stark Targaryen Tully Tyrell
##   femenino       51       16    27         6     2     10
##   masculino     202       24    81        30    28     16

#Porcentagem de sexo em cada casa

round(prop.table(sexo_lealdade,2)*100,2)
##            
##              Arryn Baratheon Greyjoy Guardia de la Noche Lannister Martell
##   femenino   20.00      9.38    6.67                0.00     13.73   37.84
##   masculino  80.00     90.62   93.33              100.00     86.27   62.16
##            
##             Ninguna Salvajes  Stark Targaryen  Tully Tyrell
##   femenino    20.16    40.00  25.00     16.67   6.67  38.46
##   masculino   79.84    60.00  75.00     83.33  93.33  61.54
personagens_livro$sexo = gsub("femenino","feminino",personagens_livro$sexo)

#Gráfico de sexo em cada casa

barplot(sexo_lealdade, beside = TRUE, main = "Gênero por casa", xlab = "femino e masculino", ylab = "número de integrantes", col = "purple")

#É possível perceber que o sexo masculino é predominante em todas as casa. A casa com menor desigualdade é a casa Tyrell, e a com maior desiguadade é a casa Guardia de la noche.

Portanto, é notável que as mulheres são sublocadas nas casas de Game of Thrones.