R Markdown

Dataframe

load("~/Base_de_dados-master/Game of Thrones.RData")

#Renomeação

personagens_livro$nobre = ifelse(personagens_livro$nobre==1,"nobreza","camponeses")
personagens_livro$sexo = gsub("femenino","feminino",personagens_livro$sexo)

#Tabela com duas variáveis qualitativas

Nobreza_dos_generos=table(personagens_livro$sexo,personagens_livro$nobre)
Nobreza_dos_generos
##            
##             camponeses nobreza
##   feminino          73      84
##   masculino        414     346

#Tabela 1

round(prop.table(Nobreza_dos_generos,1)*100)
##            
##             camponeses nobreza
##   feminino          46      54
##   masculino         54      46

#Tabela 2

round(prop.table(Nobreza_dos_generos,2)*100)
##            
##             camponeses nobreza
##   feminino          15      20
##   masculino         85      80

#Tabela de proporção com duas variáveis qualitativas

round(prop.table(Nobreza_dos_generos)*100,2)
##            
##             camponeses nobreza
##   feminino        7.96    9.16
##   masculino      45.15   37.73

#Tabela

library(janitor)
## Warning: package 'janitor' was built under R version 4.2.2
## 
## Attaching package: 'janitor'
## The following objects are masked from 'package:stats':
## 
##     chisq.test, fisher.test
library(flextable)
## Warning: package 'flextable' was built under R version 4.2.2
personagens_livro %>% tabyl(nobre,sexo) %>% flextable()%>%theme_vader()
personagens_livro %>% tabyl(nobre,sexo) %>% adorn_percentages("row") %>% adorn_pct_formatting(digits = 2) %>% flextable() %>% theme_vanilla()

#Gráfico de barras para duas variáveis qualitativa nominal

barplot(Nobreza_dos_generos,beside=TRUE,main="Nobreza dos generos", col=c("#f00a71","#0acdf0"),xlab="Camponeses e nobreza")

INTERPRETAÇÃO

Inicialmente no Rstudio foi criado uma tabela com duas váriaveis qualitativas, sendo a primeira de sexo e a segunda nobre. Após a criação dessa tabela foi criado a tabela para vizualizar isso proporcionalmente, podendo ver que a proporção de homens e mulheres tem uma distancia consideravel. E por fim um gráfico de barras para ter uma visão melhor.

Dado que a quantidade de homens camponeses e nobres são bem maiores que a quantidade de mulheres,sendo homens camponenes 45,15% e 37,73% e mulheres camponesas sendo 7,96% e nobres 9,16% é notório que mulheres estão quase em extinção em Game of Thrones.