Untitled

introdução

Nesse relaório será analisada uma base de dados que contém informações sobre a série Game of Thrones

passo a passo

para que posssamos analisar esses dados devemos seguir uma série de passos no R, assim podendo programar médias, tabelas e muito mais…

1. carregar a base de dados

primeiramente devemos carregar a base de dados que queremos analisar

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

2. analisaremos a base de dados

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

3.escolher dados para analise

após analisarmos os dados iremos escolher duas variaveis qualitativas para fazer uma analisada explicativa x explicada e transformaremos em tabelas, mas nesse caso como um dos dados escolhidos por mim esta em forma numérica e não em texto iremos corrigir esse problema primeiro

personagens_livro$nobre= ifelse(personagens_livro$nobre==1,"sim","não")

4.criação de uma tabela

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

5. tabela dos dados

dessa forma podemos fazer uma tabela de análise de dados

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

tabyl(personagens_livro,nobre,sexo)%>%adorn_percentages()%>%adorn_pct_formatting(digits = 2)%>%flextable()%>%theme_vader

nobre	femenino	masculino
não	14.99%	85.01%
sim	19.53%	80.47%

6.gráfico de barras

ja que ja analisamos os dados em uma tabela agora vamos inseri-los num gráfico de barras para julgar quem é nobre ou não e dividi-los pelo sexo

barplot(tabela1, col = c("violet","royalblue"), beside = TRUE, legend.text = rownames(tabela1), args.legend = list(x = "topleft"))

e foi isso!