Primeiro vamos carregar a base de dados

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

Agora iremos abrie e verificar a base de dados dos personagens de livro

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

Baixamos as bibliotecas para conseguir fazer as tabelas

library(janitor)
## 
## Attaching package: 'janitor'
## The following objects are masked from 'package:stats':
## 
##     chisq.test, fisher.test
library(flextable)

Fizemos uma limpeza de dados junto com uma modificação para facilitar nossas tabelas

personagens_livro$sexo = gsub("femenino", "feminino", personagens_livro$sexo)
personagens_livro$Guerra_dos_Tronos <- ifelse(personagens_livro$Guerra_dos_Tronos==0," Não aparece","Aparece")

Fizemos as tabelas e as proporçoes multiplicando por 100

tabelasexo = table(personagens_livro$sexo)
tabelasexo
## 
##  feminino masculino 
##       157       760
tabelagt = table(personagens_livro$Guerra_dos_Tronos)
tabelagt
## 
##  Não aparece      Aparece 
##          667          250
prop.table(tabelasexo)*100
## 
##  feminino masculino 
##  17.12105  82.87895
prop.table(tabelagt)*100
## 
##  Não aparece      Aparece 
##     72.73719     27.26281
tabela1 = table(personagens_livro$sexo, personagens_livro$Guerra_dos_Tronos)
tabela1
##            
##              Não aparece Aparece
##   feminino           125      32
##   masculino          542     218

Personagens por sexo que aparecem na série

tabyl(personagens_livro,sexo,Guerra_dos_Tronos) %>% flextable() %>%
  theme_vader

sexo

Não aparece

Aparece

feminino

125

32

masculino

542

218

Proporção na horizontal e vertical

prop.table(tabela1,1)*100
##            
##              Não aparece  Aparece
##   feminino      79.61783 20.38217
##   masculino     71.31579 28.68421
prop.table(tabela1,2)*100
##            
##              Não aparece  Aparece
##   feminino      18.74063 12.80000
##   masculino     81.25937 87.20000

Tabela em barra

barplot(tabela1,col = c("pink","blue"),beside = TRUE,legend.text = rownames(tabela1),args.legend = list(x = "topright"))

Fiz o trabalho relacionando os personegens que apareceram na série que estavam na lista e o sexo de deles, para isso fizemos tabelas horizontal e vertical com porcentagem de homens e mulheres, relacionando com o que aparecia e o que não aparecia, e tabelas em barras respectivamente.