Introdução

Hoje trabalharemos com a base de dados game of thrones e dentro dela foi escolhida a variável “personagens_livro” como objeto de estudo

Importando base de dados

load("C:/Users/esthe/OneDrive/Área de Trabalho/Base_de_dados-master/Game of Thrones.RData")
View(personagens_livro)

Alterando variável

personagens_livro$nobre = ifelse(personagens_livro$nobre==1, "nobre", "nao")

Montando as tabelas

tabela1 = table(personagens_livro$sexo)

tabela2 = table(personagens_livro$nobre)

Fazendo a proporção

prop.table(tabela1)*100

## 
##  femenino masculino 
##  17.12105  82.87895

prop.table(tabela2)*100

## 
##      nao    nobre 
## 53.10796 46.89204

Gráfico de Waffle - Gênero

library(waffle)

## Carregando pacotes exigidos: ggplot2

pedacos = c(feminino=17, masculino=83)
waffle(pedacos)

Gráfico de Waffle - Nobre

pedacos2 = c(nobre=47, nao=53)
waffle(pedacos2)

Questão para pesquisa

Existe uma variança quando se relaciona o gênero e a nobreza?

Analisando os dados

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

##            
##             nao nobre
##   femenino   73    84
##   masculino 414   346

Gráfico para duas variáveis

barplot(tabela3)

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

Conclusão

A partir ds análises feitas acima, com os dados tirados da série Game of thrones, é fato que na série existe uma quantidade de pessoas do sexo masculino muito maior do que do sexo feminino, fazendo com que os números quando comparados em relação a nobreza ou falta dela também sejam bem descrepantes.

Em relação a essa nobreza especificamente, proporcionalmente falando o número de mulheres nobre ainda é maior que o de homens nobres, visto nos calculos e na obra.