Avalição_4

Duas Variáveis Qualitativas

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

Tabela 1

tabela1= table(personagens_livro$sexo)
tabela1

## 
##  femenino masculino 
##       157       760

Proporção

prop.table(tabela1)*100

## 
##  femenino masculino 
##  17.12105  82.87895

Tabela de waffle 1

Gráfico

barplot(tabela1, col= c("blue","green"))

library(waffle)

## Carregando pacotes exigidos: ggplot2

pedaços = c(masculino=83, feminino=17)
waffle(pedaços)

Tabela 2

tabela2= table(personagens_livro$nobre)
tabela2

## 
##   0   1 
## 487 430

Proporção

prop.table(tabela2)*100

## 
##        0        1 
## 53.10796 46.89204

Tabela de waffle 2

Gráfico

barplot(tabela2, col= c("brown","blue"))

library(waffle)

pedaços = c(Não=53, nobre=47)
waffle(pedaços)

Flextable

library(dplyr)
library(flextable)

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 3

tabela3 = table(personagens_livro$sexo, personagens_livro$nobre)
tabela3

##            
##               0   1
##   femenino   73  84
##   masculino 414 346

library(janitor)

## 
## Attaching package: 'janitor'

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

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

sexo	0	1
femenino	73	84
masculino	414	346

prop.table(tabela3,1)*100

##            
##                    0        1
##   femenino  46.49682 53.50318
##   masculino 54.47368 45.52632

prop.table(tabela3,2)*100

##            
##                    0        1
##   femenino  14.98973 19.53488
##   masculino 85.01027 80.46512

Gráficos

barplot(tabela3,col= c("red","black"))

barplot(tabela3,col= c("red","black"),beside = TRUE)

barplot(tabela3,col= c("red","black"),beside = TRUE,
        legend.text = rownames(tabela3),
        args.legend = list(x = "topleft"))

Conclusão

Foi realizada a análise estátistica do banco de dados Game of Thrones, na qual foram observados os índices de sexo e grau de nobreza de cada componente do banco de dados personagens_livro, presentando os dados estátisticos da primeira tabela fica claro que a maior parte dos personagens é composto por pessoas do sexo masculino, sendo explicitado em dados de proporção uma base de 17% mulheres e 83% de homens.Na segunda tabela é onde foram avaliados os índices de nobreza, onde a pesquisa estátistica teve como resultado 47% classificados como nobres e 53% não se adequando a essa classificação. Por fim conclui-se que a maior parte de personagens classificados como nobres são do sexo feminino.