Relatório Game of Thrones

Atividade 3 - Relatório da base de dados de Game of Thrones

load("C:/Users/louiz/Downloads/Base_de_dados-master/Game of Thrones.RData")

Correção da nomenclatura na base de dados

personagens_livro$nobre2 = ifelse(personagens_livro$nobre==0, "Servo","Nobre")

Analise dos dados

tabela_nobre =table(personagens_livro$sexo,personagens_livro$nobre2)
tabela_nobre

##            
##             Nobre Servo
##   femenino     84    73
##   masculino   346   414

Tabela de Proporção

prop.table(tabela_nobre)

##            
##                  Nobre      Servo
##   femenino  0.09160305 0.07960742
##   masculino 0.37731734 0.45147219

prop.table(tabela_nobre,1)

##            
##                 Nobre     Servo
##   femenino  0.5350318 0.4649682
##   masculino 0.4552632 0.5447368

prop.table(tabela_nobre,1)*100

##            
##                Nobre    Servo
##   femenino  53.50318 46.49682
##   masculino 45.52632 54.47368

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

##            
##             Nobre Servo
##   femenino  53.50 46.50
##   masculino 45.53 54.47

prop.table(tabela_nobre,2)

##            
##                 Nobre     Servo
##   femenino  0.1953488 0.1498973
##   masculino 0.8046512 0.8501027

prop.table(tabela_nobre,2)*100

##            
##                Nobre    Servo
##   femenino  19.53488 14.98973
##   masculino 80.46512 85.01027

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

##            
##             Nobre Servo
##   femenino  19.53 14.99
##   masculino 80.47 85.01

Graficos

library(janitor)

## 
## Attaching package: 'janitor'

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

library(flextable)
library(RColorBrewer)

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

COR = brewer.pal(6, "Spectral")
COR

## [1] "#D53E4F" "#FC8D59" "#FEE08B" "#E6F598" "#99D594" "#3288BD"

barplot(tabela_nobre, main ="Distinção entre de gênero e classe na saga Game of Thrones", beside = T, col=COR, ylab = "Frequência",
        xlab= "Numero de homens e de mulheres e sua distinção de classes")

O que podemos afirmar da distribuição de gênero e classes dos personagens presentes na saga de Gelo e Fogo é que o autor pauta sua narrativa predominantemente em personagens masculinos.

Outra informação que podemos concluir nessa análise, é de que mesmo num universo de senhores de terra e disputa política entre nobres, personagens cuja origem não é de uma linhagem de nobreza são maioria na história contada por George RR Martin.