Duas variáveis Qualitativas para o banco de dados Game Of Thrones
Rafael Moreira
2023-05-02
Iremos carregar um banco de dados do Rdata
load("C:/Users/usuario/Desktop/Base_de_dados-master/Game of Thrones.RData")Analisamos a base para ver se tem algo de errado
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 NAsummary(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 :618limpeza de dados na base qualititativa “sexo”
personagens_livro$sexo = gsub("femenino", "feminino", personagens_livro$sexo)bibliotecas
library(janitor)##
## Attaching package: 'janitor'## The following objects are masked from 'package:stats':
##
## chisq.test, fisher.testlibrary(flextable)tabelas e suas proporções
tabelaleal = table(personagens_livro$lealdade)
tabelaleal##
## 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 26tabelasexo = table(personagens_livro$sexo)
tabelasexo##
## feminino masculino
## 157 760prop.table(tabelaleal)*100##
## Arryn Baratheon Greyjoy Guardia de la Noche
## 3.271538 6.979280 8.178844 12.649945
## Lannister Martell Ninguna Salvajes
## 11.123228 4.034896 27.589967 4.362050
## Stark Targaryen Tully Tyrell
## 11.777535 3.925845 3.271538 2.835333prop.table(tabelasexo)*100##
## feminino masculino
## 17.12105 82.87895tabela1 = table(personagens_livro$sexo, personagens_livro$lealdade)
tabela1##
## Arryn Baratheon Greyjoy Guardia de la Noche Lannister Martell
## feminino 6 6 5 0 14 14
## masculino 24 58 70 116 88 23
##
## Ninguna Salvajes Stark Targaryen Tully Tyrell
## feminino 51 16 27 6 2 10
## masculino 202 24 81 30 28 16Antes eu utilizei primeiro lealdade antes do sexo, mas por questões estéticas no grafico de barras, mudei a ordem para sexo vir primeiro
individuos por sexo que são leais a cada personagem
tabyl(personagens_livro,lealdade,sexo) %>% flextable() %>%
theme_vaderlealdade | feminino | 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 |
tabela de proporção
prop.table(tabela1,1)*100##
## Arryn Baratheon Greyjoy Guardia de la Noche Lannister
## feminino 3.821656 3.821656 3.184713 0.000000 8.917197
## masculino 3.157895 7.631579 9.210526 15.263158 11.578947
##
## Martell Ninguna Salvajes Stark Targaryen Tully
## feminino 8.917197 32.484076 10.191083 17.197452 3.821656 1.273885
## masculino 3.026316 26.578947 3.157895 10.657895 3.947368 3.684211
##
## Tyrell
## feminino 6.369427
## masculino 2.105263prop.table(tabela1,2)*100##
## Arryn Baratheon Greyjoy Guardia de la Noche Lannister
## feminino 20.000000 9.375000 6.666667 0.000000 13.725490
## masculino 80.000000 90.625000 93.333333 100.000000 86.274510
##
## Martell Ninguna Salvajes Stark Targaryen Tully
## feminino 37.837838 20.158103 40.000000 25.000000 16.666667 6.666667
## masculino 62.162162 79.841897 60.000000 75.000000 83.333333 93.333333
##
## Tyrell
## feminino 38.461538
## masculino 61.538462Tabela em barra
barplot(tabela1, col = c("violet","royalblue"), beside = TRUE, legend.text = rownames(tabela1), args.legend = list(x = "topleft"))
Conclusão
Analisamos que na série Game Of Thrones, há muito mais personagens do sexo masculino com 760 integrantes e apenas 157 pessoas do sexo feminino, além disso analisamos que não existe nenhuma mulher leal ao “Guardia de la Noche” sendo que 116 homens são fiéis a ele
Podemos afirmar tambem que, existem muitos homens leais a Ninguna com o total de 202 e também a ninguma apresenta o maior numero de mulheres fieis a todos as outras variaveis, com 51 pessoas do sexo feminino. E da pra notar muito bem isso no gráfico acima, na qual a cor azul é dos homens e a cor rosa é das mulheres.