Carregamento da base de dados:

load("C:/Users/natps/Downloads/bases_curso_estatistica/Base_de_dados-master/Game of Thrones.RData")

Visualizando a base de dados:

View(personagens_livro)

Tratamento dos dados da variável “nobre”:

personagens_livro$nobre = ifelse(personagens_livro$nobre==1,"Nobre","Plebeu")

Tabela com duas variáveis qualitativas:

tabela 1

sexo_nobreza = table(personagens_livro$sexo,personagens_livro$nobre)
table(personagens_livro$sexo,personagens_livro$nobre)
##            
##             Nobre Plebeu
##   femenino     84     73
##   masculino   346    414

Tabelas de proporção:

tabela 2

#Porcentagem de nobres e plebeus por gênero (relação entre fem-fem e masc-masc):
round(prop.table(sexo_nobreza,1)*100,2)
##            
##             Nobre Plebeu
##   femenino  53.50  46.50
##   masculino 45.53  54.47

tabela 3

#Porcentagem de nobres e plebeus por gênero (relação entre fem-masc e masc-fem):
round(prop.table(sexo_nobreza,2)*100,2)
##            
##             Nobre Plebeu
##   femenino  19.53  14.99
##   masculino 80.47  85.01

Gráfico de barras para duas variáveis qualitativas nominais:

library(RColorBrewer)
cor = brewer.pal(4, "Purples")
barplot(sexo_nobreza,main = "Nobreza da variável sexo de Game of Thrones",beside = TRUE, col = cor)

Os dados das tabelas e do gráfico de barras, foram retirados da base de dados “Game of Thrones.RDATA”, onde suas variáveis estão distribuídas entre 13 categorias, contendo 917 informações no total. A proposta do presente relatório é apresentar a relação entre as duas variáveis qualitativas estudadas, “Sexo” e “Nobre”. Na primeira tabela geral, com duas variáveis qualitativas, é possível ver seu resultado de forma simplificada, ao passo que nas tabelas de proporção o resultado é visto em forma de porcentagem.

A primeira tabela de proporção nos mostra a porcentagem de nobres e plebeus divididos por gênero (feminino e feminino, masculino e masculino), é possível ver que a porcentagem de mulheres categorizadas como “nobre” é mais alta do que as categorizadas como “plebeu”, contendo 53,50 e 46,50, respectivamente. Ao passo que para os homens, o valor é o contrário, contendo 45,53 para nobres, e 54,47 para plebeus.

A segunda tabela de proporção apresenta a porcentagem de nobres e plebeus divididos por gênero, mas levando em conta todos os gêneros (feminino e masculino, masculino e feminino), nela é possível observar que as mulheres alcançam uma porcentagem de 19,53 como “nobre”, e os homens, 80,47. Já na categoria “plebeu”, é possível ver que esse número é mais baixo entre as mulheres, apresentando 14,99, ao passo que entre os homens houve um aumento, mostrando 85,01. De forma simplificada, há mais homens na categoria “nobre”, e também, na categoria “plebeu” em relação às mulheres.

É possível ver essa distribuição no gráfico de barras, onde a primeira e a segunda barra representam as mulheres e os homens nobres, respectivamente. A terceira e a quarta barra, também, representam as mulheres e os homens respectivamente.