game

R Markdown

Introdução

Vamos fazer a análise de duas variáveis qualitativas. Vamos criar uma tabela de proporção dos personagens do livro de Game of thrones. Primeiro carregaremos a Base de dados

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

library(janitor)

## 
## Attaching package: 'janitor'

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

library(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

Tabela de Homens e Mulherer - Nobres e não Nobres

personagens_livro$nobre= ifelse(personagens_livro$nobre==0,"Nao Nobre","Nobre")
tabyl(personagens_livro,sexo,nobre) %>% flextable() %>%theme_tron()

sexo	Nao Nobre	Nobre
femenino	73	84
masculino	414	346

Percentual

tabyl(personagens_livro,sexo,nobre) %>% adorn_percentages("row") %>% adorn_pct_formatting(digits = 2) %>% adorn_ns() %>% flextable() %>%theme_tron()

sexo	Nao Nobre	Nobre
femenino	46.50% (73)	53.50% (84)
masculino	54.47% (414)	45.53% (346)

Grafico de barras

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

##            
##             femenino masculino
##   Nao Nobre       73       414
##   Nobre           84       346

barplot(tabela_nobre,main= "Nobres : Mulheres e Homens", col=c("#660066","#003300"), beside = TRUE, legend.text = rownames(tabela_nobre), args.legend = list(x="topleft"))

### Análise dos gráficos e tabelas 1 - Existem mais personagens masculinos do que femininos

2 - Existem mais mulheres que são nobres do que as que não são

3 - Existem mais homens não nobres do que os que são

4 - Todos os personagens da tabela de percentual pertencem a nobreza, homens e mulheres

5 - A desigualdade entre homens e mulheres pertencentes a nobreza é muito exarcebada, tendo uma quantidade consideravelmente maior de Homens.