Introdução

Vamos trabalhar duas variáveis qualitativas.

Carregar base de dados

load("C:/Users/Kim Fonseca Coquet/Base_de_dados-master/Game of Thrones.RData")

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
library(flextable)
library(janitor)
## 
## Attaching package: 'janitor'
## The following objects are masked from 'package:stats':
## 
##     chisq.test, fisher.test
# %>% operador pipe

head(personagens_livro) %>% flextable() %>% theme_tron()

nome

lealdade

sexo

nobre

Guerra_dos_Tronos

Furia_dos_Reis

Tormenta_de_Espadas

Festim_dos_Corvos

Danca_dos_Dragoes

capitulo_apresentacao

ano_morte

livro inteiro da morte

capitulo_morte

Addam Marbrand

Lannister

masculino

1

1

1

1

1

0

56

Aegon Frey (Jinglebell)

Ninguna

masculino

1

0

0

1

0

0

49

299

3

51

Aegon Targaryen

Targaryen

masculino

1

0

0

0

0

1

5

Adrack Humble

Greyjoy

masculino

1

0

0

0

0

1

20

300

5

20

Aemon Costayne

Lannister

masculino

1

0

0

1

0

0

Aemon Estermont

Baratheon

masculino

1

0

1

1

0

0

Tabela com 2 variáveis

# tabela simples
tabela = table(personagens_livro$lealdade,personagens_livro$sexo)
tabela
##                      
##                       femenino 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 melhorada
library(janitor)
tabyl(personagens_livro,lealdade,sexo) %>% flextable() %>% theme_vader()

lealdade

femenino

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(tabela,1)*100
##                      
##                         femenino  masculino
##   Arryn                20.000000  80.000000
##   Baratheon             9.375000  90.625000
##   Greyjoy               6.666667  93.333333
##   Guardia de la Noche   0.000000 100.000000
##   Lannister            13.725490  86.274510
##   Martell              37.837838  62.162162
##   Ninguna              20.158103  79.841897
##   Salvajes             40.000000  60.000000
##   Stark                25.000000  75.000000
##   Targaryen            16.666667  83.333333
##   Tully                 6.666667  93.333333
##   Tyrell               38.461538  61.538462

Gráfico

barplot(tabela,col=c("darkred","lightblue"),beside = TRUE,
        legend.text = rownames(tabela),
        args.legend = list(x = "topleft"))

tabela = table(personagens_livro$lealdade,personagens_livro$sexo)

prop.table(tabela,1)*100 %>% round(digits = 2)
##                      
##                         femenino  masculino
##   Arryn                20.000000  80.000000
##   Baratheon             9.375000  90.625000
##   Greyjoy               6.666667  93.333333
##   Guardia de la Noche   0.000000 100.000000
##   Lannister            13.725490  86.274510
##   Martell              37.837838  62.162162
##   Ninguna              20.158103  79.841897
##   Salvajes             40.000000  60.000000
##   Stark                25.000000  75.000000
##   Targaryen            16.666667  83.333333
##   Tully                 6.666667  93.333333
##   Tyrell               38.461538  61.538462

Análise estatistica

Conseguimos notar que há uma maioria de homens nas casas de lealdade entre os personagens.

Além disso conseguimos ver que não tem mulheres na casa de lealdade chamada Guardia de La Noche.