Introdução

Na análise de hoje, iremos utilizar os dados “personagens_livro” pertencente ao pacote de dados denominado Game Of Thrones.RData. Nesse relátorio vamos examinar as tabelas, proporções e gráficos a respeito do sexo dos personagens e sua decendência.

Tabela de Nobres e não Nobres do sexo feminino e masculino

load("~/Base_de_dados-master/Game of Thrones.RData")
library(janitor)
## 
## Attaching package: 'janitor'
## The following objects are masked from 'package:stats':
## 
##     chisq.test, fisher.test
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
personagens_livro$nobre= ifelse(personagens_livro$nobre==0,"Nao Nobre","Nobre")
tabyl(personagens_livro,sexo,nobre) %>% flextable() %>% theme_tron()

sexo

Nao Nobre

Nobre

femenino

73

84

masculino

414

346

No gráfico acima temos, em números absolutos, a quantitade nobres e não nobres do sexo feminino e masculino. Percebe-se que há muito mais homens que não são nobres que homens pertecentes a nobreza. O contrário se espelha na mulher, há mais mulheres nobres do que mulheres pebleias. Assim como também podemos observar que há muito mais homens do que mulheres, seja nobres ou não.

Tabela Percentual de Nobres e não Nobres do sexo feminino e masculino

Pelo dado anterior, a uma curiosidade para saber como está o percentual entre essas pessoas.

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

sexo

Nao Nobre

Nobre

femenino

46.50% (73)

53.50% (84)

masculino

54.47% (414)

45.53% (346)

Na análise do grafico acima, nota-se que os percentuais em relação aos nobres e pebleus, tanto feminino quanto masculino, são relativamente próximos. A nobreza das mulheres tem apenas 7% de diferença. Enquanto os homens, é de 11%, um pouco maior.

Gráfico de Barras de Nobres e não Nobres do sexo feminino e masculino

tabela_nobre=table(personagens_livro$nobre,personagens_livro$sexo)
tabela_nobre
##            
##             femenino masculino
##   Nao Nobre       73       414
##   Nobre           84       346
barplot(tabela_nobre,main= "Nobres : Mulheres e Homens", col=c("#026873","#011F26"), beside = TRUE, legend.text = rownames(tabela_nobre), args.legend = list(x = "topleft"))

O gráfico acima só reforça o que ja foi expressado antes. Nota-se que há uma mais nobres homens do mulheres oriundas da nobreza. Essa disparidade númerica é superior em números absolutos também, pois pelo gráfico pode perceber que há muitos mais homens do que mulheres.

Além disso, o gráfico nos indica que o número de homens(indepedente de sua classe social), é praticamente 4 vezes maior que o n° de nulheres.

Conclusão

Diante dessa análise, conseguimos perceber que há uma desigualdade muito grande na inserção de personagens femininas em relação aos masculinos. Há uma maior partipação masculina ao decorrer de toda a franquia. Porém, podemos ressaltar que dentro das mulheres, a maioria é de família nobre. O que se observa ser ao cobtrário em relação aos homens, que há um maior número de plebeus.