# Carregar base de dados

```r
load("~/ESTATISTICA/Base_de_dados-master/Game of Thrones.RData")

Criando a tabela com duas variáveis qualitativas

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
summary(personagens_livro)
##      nome             lealdade             sexo               nobre       
##  Length:917         Length:917         Length:917         Min.   :0.0000  
##  Class :character   Class :character   Class :character   1st Qu.:0.0000  
##  Mode  :character   Mode  :character   Mode  :character   Median :0.0000  
##                                                           Mean   :0.4689  
##                                                           3rd Qu.:1.0000  
##                                                           Max.   :1.0000  
##                                                                           
##  Guerra_dos_Tronos Furia_dos_Reis   Tormenta_de_Espadas Festim_dos_Corvos
##  Min.   :0.0000    Min.   :0.0000   Min.   :0.0000      Min.   :0.0000   
##  1st Qu.:0.0000    1st Qu.:0.0000   1st Qu.:0.0000      1st Qu.:0.0000   
##  Median :0.0000    Median :0.0000   Median :0.0000      Median :0.0000   
##  Mean   :0.2726    Mean   :0.3533   Mean   :0.4242      Mean   :0.2726   
##  3rd Qu.:1.0000    3rd Qu.:1.0000   3rd Qu.:1.0000      3rd Qu.:1.0000   
##  Max.   :1.0000    Max.   :1.0000   Max.   :1.0000      Max.   :1.0000   
##                                                                          
##  Danca_dos_Dragoes capitulo_apresentacao   ano_morte     livro inteiro da morte
##  Min.   :0.0000    Min.   : 0.00         Min.   :297.0   Min.   :1.000         
##  1st Qu.:0.0000    1st Qu.:11.00         1st Qu.:299.0   1st Qu.:2.000         
##  Median :0.0000    Median :27.00         Median :299.0   Median :3.000         
##  Mean   :0.2846    Mean   :28.86         Mean   :299.2   Mean   :2.928         
##  3rd Qu.:1.0000    3rd Qu.:43.00         3rd Qu.:300.0   3rd Qu.:4.000         
##  Max.   :1.0000    Max.   :80.00         Max.   :300.0   Max.   :5.000         
##                    NA's   :12            NA's   :612     NA's   :610           
##  capitulo_morte 
##  Min.   : 0.00  
##  1st Qu.:25.50  
##  Median :39.00  
##  Mean   :40.07  
##  3rd Qu.:57.00  
##  Max.   :80.00  
##  NA's   :618

Tabela de lealdade e de sexo, separadamente e depois juntos

tabela_lealdade = table(personagens_livro$lealdade)
tabela_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
tabela_sexo = table(personagens_livro$sexo)
tabela_sexo
## 
##  femenino masculino 
##       157       760

Tabela para relacionar o gênero a lealdade por casa em números inteiros. Usei o código “flextable” ” e concluí o que pode ser visto na tabela abaixo:

tabela_lealdade_sexo = table(personagens_livro$sexo,personagens_livro$lealdade)
tabela_lealdade_sexo
##            
##             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
library(flextable)
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
library(magrittr)
library(janitor)
## 
## Attaching package: 'janitor'
## The following objects are masked from 'package:stats':
## 
##     chisq.test, fisher.test
personagens_livro %>% tabyl(sexo,lealdade) %>%  flextable()%>%  theme_vanilla()

Tabelas de proporção em linha com as variáveis qualitativas sexo e lealdade.

prop.table(tabela_lealdade_sexo,1)
##            
##                  Arryn  Baratheon    Greyjoy Guardia de la Noche  Lannister
##   femenino  0.03821656 0.03821656 0.03184713          0.00000000 0.08917197
##   masculino 0.03157895 0.07631579 0.09210526          0.15263158 0.11578947
##            
##                Martell    Ninguna   Salvajes      Stark  Targaryen      Tully
##   femenino  0.08917197 0.32484076 0.10191083 0.17197452 0.03821656 0.01273885
##   masculino 0.03026316 0.26578947 0.03157895 0.10657895 0.03947368 0.03684211
##            
##                 Tyrell
##   femenino  0.06369427
##   masculino 0.02105263

Tabelas de proporção em coluna com variáveis qualitativas sexo e lealdade.

prop.table(tabela_lealdade_sexo,2)
##            
##                  Arryn  Baratheon    Greyjoy Guardia de la Noche  Lannister
##   femenino  0.20000000 0.09375000 0.06666667          0.00000000 0.13725490
##   masculino 0.80000000 0.90625000 0.93333333          1.00000000 0.86274510
##            
##                Martell    Ninguna   Salvajes      Stark  Targaryen      Tully
##   femenino  0.37837838 0.20158103 0.40000000 0.25000000 0.16666667 0.06666667
##   masculino 0.62162162 0.79841897 0.60000000 0.75000000 0.83333333 0.93333333
##            
##                 Tyrell
##   femenino  0.38461538
##   masculino 0.61538462

Arredondando as tabelas - em linha.

round(prop.table(tabela_lealdade_sexo,1)*100,2)
##            
##             Arryn Baratheon Greyjoy Guardia de la Noche Lannister Martell
##   femenino   3.82      3.82    3.18                0.00      8.92    8.92
##   masculino  3.16      7.63    9.21               15.26     11.58    3.03
##            
##             Ninguna Salvajes Stark Targaryen Tully Tyrell
##   femenino    32.48    10.19 17.20      3.82  1.27   6.37
##   masculino   26.58     3.16 10.66      3.95  3.68   2.11

Arredondando as tabelas - em coluna.

round(prop.table(tabela_lealdade_sexo,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

Gráfico de barras para as variáveis

library(flextable)

barplot(tabela_lealdade_sexo)

barplot(tabela_lealdade_sexo,
        main = "Quantidade de personagens do sexo feminino e masculino por casa")

Gráfico colorido

barplot(tabela_lealdade_sexo, beside = T, 
        main = "Quantidade de personagens do sexo feminino e masculino por casa",
        col = c("orange", "dark green"))

É possível avaliar, portanto, que a casa com o maior número de mulheres é a Casa Stark; a casa com a maior pariedade entre homens e mulheres é a Casa Tyrell, na qual as mulheres representam 38% das pessoas; a segunda com maior equidade é a Casa Martell, com o 37,8%; nas outras casas, as mulheres representam menos de 30% do total.Percebe-se, entretanto, que entre os selvagens as mulheres representam 40% do total de pessoas.