Game of Thrones

R Markdown

Este Relatório tem como objetivo relacionar duas variáveis qualitativas da base de dados “personagens_livro” do objeto “Game of Thrones.RData”.

load("~/R/Base_de_dados-master/Game of Thrones.RData")
data.frame(head(personagens_livro))

##                      nome  lealdade      sexo nobre Guerra_dos_Tronos
## 1          Addam Marbrand Lannister masculino     1                 1
## 2 Aegon Frey (Jinglebell)   Ninguna masculino     1                 0
## 3         Aegon Targaryen Targaryen masculino     1                 0
## 4           Adrack Humble   Greyjoy masculino     1                 0
## 5          Aemon Costayne Lannister masculino     1                 0
## 6         Aemon Estermont Baratheon masculino     1                 0
##   Furia_dos_Reis Tormenta_de_Espadas Festim_dos_Corvos Danca_dos_Dragoes
## 1              1                   1                 1                 0
## 2              0                   1                 0                 0
## 3              0                   0                 0                 1
## 4              0                   0                 0                 1
## 5              0                   1                 0                 0
## 6              1                   1                 0                 0
##   capitulo_apresentacao ano_morte livro.inteiro.da.morte capitulo_morte
## 1                    56        NA                     NA             NA
## 2                    49       299                      3             51
## 3                     5        NA                     NA             NA
## 4                    20       300                      5             20
## 5                    NA        NA                     NA             NA
## 6                    NA        NA                     NA             NA

As variáveis qualitativas escolhidas foram “nobre” e “sexo”

#A variável “nobre” precisou ser ajustada na base de dados pois apesar de ser qualitativa, na tabela aparecia como 1 = nobre e 0 = não e foi ajustada para indicar “nobre” e “plebeu”.

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

#Correção, na base de dados, do valor “femenino” para “feminino”

personagens_livro$sexo = gsub("femenino","feminino",personagens_livro$sexo)

A tabela relacionando a nobreza (nobre ou plebeu) com o sexo (masculino ou feminino) está apresentada abaixo:

tabela_nobreza = table(personagens_livro$nobre)

tabela_sexo = table(personagens_livro$sexo)

tabela_nobreza_sexo = table(personagens_livro$nobre,personagens_livro$sexo)

library(janitor)

## 
## Attaching package: 'janitor'

## The following objects are masked from 'package:stats':
## 
##     chisq.test, fisher.test

library(flextable)

personagens_livro %>% tabyl(nobre,sexo) %>% flextable()%>%theme_tron_legacy()

O gráfico correspondente é:

barplot(tabela_nobreza_sexo, beside = TRUE,
        col = c ("#ba0f26","#524b32"), main = "Game of Thrones",legend.text = TRUE,
        args.legend = list(x="topleft"),
        ylab = "Frequência",xlab = "Nobreza & Sexo")

Análise Proporcional

1) Fazendo uma análise proporcional levando em consideração a nobreza, temos os seguintes resultados:

prop.table(tabela_nobreza_sexo,1)

##         
##           feminino masculino
##   nobre  0.1953488 0.8046512
##   plebeu 0.1498973 0.8501027

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

##         
##          feminino masculino
##   nobre     19.53     80.47
##   plebeu    14.99     85.01

personagens_livro %>% tabyl(nobre,sexo) %>% adorn_percentages("row") %>%
  adorn_pct_formatting(digits = 2) %>%
  flextable()%>% theme_tron_legacy()

Interpretação:

Dado que é nobre, 19,53% são do sexo feminino e 80,47% são do sexo masculino.

Dado que é plebeu, 14,99% são do sexo feminino e 85,01% são do sexo masculino.

2) Fazendo uma análise proporcional levando em consideração o sexo, temos os seguintes resultados:

prop.table(tabela_nobreza_sexo,2)

##         
##           feminino masculino
##   nobre  0.5350318 0.4552632
##   plebeu 0.4649682 0.5447368

round(prop.table(tabela_nobreza_sexo,2)*100,2)

##         
##          feminino masculino
##   nobre     53.50     45.53
##   plebeu    46.50     54.47

personagens_livro %>% tabyl(sexo,nobre) %>% adorn_percentages("row") %>%
  adorn_pct_formatting(digits = 2) %>%
  flextable()%>% theme_tron_legacy()

Interpretação:

Dado que é do sexo feminino, 53,50% é nobre e 46,50% é plebéia.

Dado que é do sexo masculino, 45,53% é nobre e 54,47% é plebeu.

Conclusão:

Analisando os dados apresentados acima, verificamos que há mais homens (sejam eles nobres ou plebeus) do que mulheres (sejam elas nobres ou plebéias).

Se considerarmos apenas o sexo feminino, há mais nobres do que plebéias.

Se considerarmos apenas o sexo masculino, há mais plebeus do que nobres.