Primeiro passo - carregar a base de dados e o pacote dplyr

load ("C:/Users/BISPO - ADV/Documents/bases_curso_estatistica/Base_de_dados-master/Game of Thrones.Rdata")
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

Segundo passo - Tabela das variáveis

personagens_livro$nobre <- ifelse(personagens_livro$nobre==1,"nobre","não nobre")

table(personagens_livro$sexo,personagens_livro$nobre)
           
            não nobre nobre
  femenino         73    84
  masculino       414   346
tabela_da_nobreza <- table (personagens_livro$sexo,personagens_livro$nobre)

Terceiro passo - Proporção da tabela

prop.table(tabela_da_nobreza,2)
           
            não nobre     nobre
  femenino  0.1498973 0.1953488
  masculino 0.8501027 0.8046512

Quarto passo - Barplot das variáveis

barplot(tabela_da_nobreza,legend=TRUE)

Agora, vou mudar as cores e o modelo do gráfico para melhor visualização.

barplot(tabela_da_nobreza,legend=TRUE,beside=TRUE,col=c("pink","skyblue"))

Conclusão

Podemos ver que a quantidade de homens “não nobres” é quase seis vezes maior do que a quantidade de mulheres “não nobres”, os afastando fortemente em questão de quantidade. As mulheres nobres, entretanto, estão em menor quantidade do que os homens nobres, em uma diferença também considerável.