Atividade 3 - Estatística

R Markdown

Atividade 3 de estatística

load("C:/Users/luisa/OneDrive/Documentos/Base_de_dados-master/Game of Thrones.RData")
personagens_livro$nobre=ifelse(personagens_livro$nobre==1,"Nobre","Não nobre")

Avaliação das variáveis qualitativas sexo e nobreza

ANÁLISE DOS DADOS

Qual a diferença de sexo entre as pessoas nobres e não nobres?

• Nobreza - variável endógena

• Sexo - variável exógena

1. CONSTRUÇÃO DAS TABELAS

tabela_FemininoMasculino=table(personagens_livro$sexo)
tabela_FemininoMasculino 

## 
##  femenino masculino 
##       157       760

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

##            
##             Não nobre Nobre
##   femenino         73    84
##   masculino       414   346

2. TABELAS DE PROPORCIONALIDADE

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

##            
##             Não nobre Nobre
##   femenino      46.50 53.50
##   masculino     54.47 45.53

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

##            
##             Não nobre Nobre
##   femenino      14.99 19.53
##   masculino     85.01 80.47

3. CONSTRUÇÃO DO GRÁFICO BASEADO NAS TABELAS

library(RColorBrewer)
COR=brewer.pal(4,"Pastel2")
COR

## [1] "#B3E2CD" "#FDCDAC" "#CBD5E8" "#F4CAE4"

barplot(tabela_sexo,beside=TRUE,col=COR)

A partir das informações apresentadas na base de dados “personagens_livro” do objeto “Game of Thrones.RData” podemos extrair importantes dados e com isso compreender melhor a construção literária. A partir dos dados coletados descobrimos, por exemplo, que a obra conta predominantemente com personagens masculinos que totalizam 760, enquanto só há a paricipação de 157 personagens femininas. Além disso, por meio das tabelas e do gráfico constrídos, podemos perceber que o número de pessoas do sexo feminino nobres (53.50) e não nobres (46.50) é bem próximo, assim como o de pessoas do sexo masculino nobres (45.53) e não nobres (54.47). Já em relação a comparação entre os gêneros masculino e feminino a uma discrepância é realmente muito maior, em decorrência da predominância de personagens masculinos, isso é facilmente observado no gráfico acima.