#Introdução

#Esse é o meu relatório da aula do dia 28 de outubro

# Passo 1 - Carregar o banco
load("~/Base_de_dados-master/Game of Thrones.RData")

Passo 2 - Olhar a base de dados e fazer a limpeza

personagens_livro$nobre=ifelse(personagens_livro$nobre==1,"Nobre","Plebeus")
personagens_livro$Guerra_dos_Tronos=ifelse(personagens_livro$Guerra_dos_Tronos==1,"Presente","Ausente")

HIPÓTESES

Há mais nobres no primeiro livro

ANÁLISE DE DADOS

Duas variáveis qualitativas

tabela_nobres=table(personagens_livro$nobre,personagens_livro$Guerra_dos_Tronos)
tabela_nobres

##          
##           Ausente Presente
##   Nobre       295      135
##   Plebeus     372      115

prop.table(tabela_nobres,1)

##          
##             Ausente  Presente
##   Nobre   0.6860465 0.3139535
##   Plebeus 0.7638604 0.2361396

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

##          
##           Ausente Presente
##   Nobre     68.60    31.40
##   Plebeus   76.39    23.61

# Dado que dos nobres, 31,40% estava presente no primeiro livro


prop.table(tabela_nobres,2)

##          
##             Ausente  Presente
##   Nobre   0.4422789 0.5400000
##   Plebeus 0.5577211 0.4600000

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

##          
##           Ausente Presente
##   Nobre     44.23    54.00
##   Plebeus   55.77    46.00

# Dado que dos presentes no primeiro livro, 54% eram nobres

Passo 3 - Carregar bibliotecas

library(janitor)

## 
## Attaching package: 'janitor'

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

library(flextable)

Passo 4 - Tabelas

personagens_livro %>% 
  tabyl(nobre,Guerra_dos_Tronos) %>% 
  flextable() %>% theme_zebra()

personagens_livro %>% tabyl(nobre,Guerra_dos_Tronos)  %>%
  adorn_percentages("row") %>%
  adorn_pct_formatting(digits = 2) %>%
  flextable() %>% theme_zebra()

Passo 5 Gráfico

barplot(tabela_nobres,beside = T,
        col=c("Dark Green","Red"),
        legend.text = TRUE)

#Conclusão Com o uso dos dados da base dada, para criar as tabelas e gráficos, foi possível constatar que a hipotese inicial de que há mais nobres no primeiro livro da série de livros “Game of Thrones” foi verificada, porém, a distribuição é equilibrada.

Os dados utilizados apresentam 917 personagens, dentro dessa lista, foram classificados 430 deles como nobres e o restante (487) como não nobres, ou seja, plebeus, relacionando com as variáveis que representam a presença do personagens em cada livro, pudemos analisar a classe dos personagens retrados no primeiro livro como 54% nobres e 46% plebeus.