Primeiros passos

Para a realização da atividade, devemos, primeiramente, importar a base de dados.

load("C:\\Users\\Lenovo\\Base_de_dados-master\\Game of Thrones.RData")

Preparação

Em seguida, as bibliotecas necessárias para as funções utilizadas.

library(janitor)
library(dplyr)
library(flextable)

Análise de dados

A tabela a seguir exibe a quantidade de homens e mulheres leais a cada casa de Game of Thrones.

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

As tabelas abaixo exibem a proporção para as duas variáveis analisadas.

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
round(prop.table(tabela_lealdade)*100,1)
## 
##               Arryn           Baratheon             Greyjoy Guardia de la Noche 
##                 3.3                 7.0                 8.2                12.6 
##           Lannister             Martell             Ninguna            Salvajes 
##                11.1                 4.0                27.6                 4.4 
##               Stark           Targaryen               Tully              Tyrell 
##                11.8                 3.9                 3.3                 2.8
round(prop.table(tabela_sexo)*100,1)
## 
##  femenino masculino 
##      17.1      82.9

A última tabela analisa a associação entre as duas variáveis qualitativas, lealdade e sexo, da base de dados.

tabyl(personagens_livro, lealdade,sexo) %>% 
  adorn_percentages("row") %>%
  adorn_pct_formatting(digits = 2) %>%
  adorn_ns() %>% flextable() %>% theme_booktabs()

lealdade

femenino

masculino

Arryn

20.00% (6)

80.00% (24)

Baratheon

9.38% (6)

90.62% (58)

Greyjoy

6.67% (5)

93.33% (70)

Guardia de la Noche

0.00% (0)

100.00% (116)

Lannister

13.73% (14)

86.27% (88)

Martell

37.84% (14)

62.16% (23)

Ninguna

20.16% (51)

79.84% (202)

Salvajes

40.00% (16)

60.00% (24)

Stark

25.00% (27)

75.00% (81)

Targaryen

16.67% (6)

83.33% (30)

Tully

6.67% (2)

93.33% (28)

Tyrell

38.46% (10)

61.54% (16)

Análise gráfica

Por fim, realizaremos a análise dos dados por meio de um gráfico de barras.

barplot(tabela1,
        main = "Análise de gênero e lealdade",
        col=c("blue", "green", "yellow", "orange","coral2", "red", "deeppink", "magenta", "magenta3","purple", "darkblue", "black" ),
        beside = TRUE,
        legend.text = rownames(tabela1),
        args.legend = list(x = "topleft"))

Conclusões da análise

Por meio das ferramentas de análise, podemos notar a predominância da população masculina em todas as casas e categorias sociais apresentadas. As 9 casas de Game of Thrones, assim como três categorias posicionadas separadamente ou a margem da sociedade fictícia apresentam uma tendência consistente em relação ao gênero dos seus membros.

A casa Tyrell se destaca justamente por divergir da considerável discrepância entre homens e mulheres, já que há uma diferença de apenas 6 membros masculinos e femininos nesta casa. Os membros da patrulha da noite, por outro lado, são exclusivamente masculinos, enquanto o maior número absoluto de mulheres pertence a categoria ninguém.