Antes de começar a analisar os dados conforme a atividade sugeria, precisei instalar os pacotes que não tinha, pois seriam utilizados na análise. Instalei o pacote “janitor” e o pacote “flextable”, por via das dúvidas. Após isso, fiz a chamada do arquivo sugerido para essa análise que estava dentro de Game of Thrones.RData, o personagens_livro.

install.packages("flextable")
library(janitor)
load(("~/bases_curso_estatistica/Base_de_dados-master/Game of Thrones.RData")

Antes de qualquer análise, os dados precisam estar objetivos e com clareza para facilitar a análise e não gerar duplo sentido. Renomei duas colunas, a primeira foi “Nobre” e “Não nobre” e a segunda foi se apareceram ou não no livro Guerra dos Tronos.

{#Organizando os dados} personagens_livro$nobre= ifelse(personagens_livro$nobre==0,"Nao nobre"," Nobre") personagens_livro$Guerra_dos_Tronos = ifelse(personagens_livro$Guerra_dos_Tronos==0, "Nao apareceu", "apareceu")

Depois, puxei as tabelas de proporção de duas variáveis quantitativas, ambas totalizando 100% nas linhas e colunas, conforme solicitado no exercício.

# Variável Nobre x Participante do Livro Guerra dos Tronos
Tabela1 = table(personagens_livro$nobre, personagens_livro$Guerra_dos_Tronos)
round(prop.table(Tabela1,1)*100,2)

O resultado no console foi esse:

     apareceu Nao apareceu
     Nobre 31.40 68.60 Nao nobre 23.61 76.39
round(prop.table(Tabela2,2)*100,2)

O resultado no console foi esse:

apareceu Nao apareceu Nobre 54.00 44.23 Nao nobre 46.00 55.77

Explicando: apareceu -> apareceu no livro Guerra dos Tronos Nao apareceu -> não apareceu no livro Guerra dos Tronos

Tentei deixar o visual das tabelas mais bonitos, utilizando tabyl, porém meu R não estava entendendo o comando %>% mesmo após atualizar.

personagens_livro %>% tabyl(nobre,Guerra_dos_Tronos) %>% flextable() %>%
  theme_vader()

# Erro:

Após isso, criei um gráfico de barras utilizando barplot.

{# Fazendo um gráfico de barras} barplot(Tabela1,beside = T, legend.text = T, main = "Nobreza e aparição no Guerra dos Tronos", border = T, width = T, col=c("#CCFFFF","#A52A2A"))

Conclui-se que, ao olhar para a primeira tabela que é uma interpreção de linha, 68.6% dos personagens nobres listados no arquivo não apareceram no livro Guerra dos Tronos. Sob esta interpretação, apenas 31,4% dos nobres listados apareceram no primeiro livro da saga.

Ao olhar para a interpretação em colunas, 54% dos que apareceram no primeiro livro da saga eram nobres e boa parte dos que não apareceram eram não-nobres, o que nos leva a entender que os Não nobres foram aparecendo em outros livros da saga, o que torna a trama mais interessante já que o nome é Guerra dos Tronos.

Ao observar o gráfico de barras, fica nítido o que foi explicado no parágrafo anterior: Representados pela cor vermelha, os Não-Nobres foram os que menos apareceram no primeiro livro da saga. Já os nobres, representados pela cor azul claro, foram os que mais apareceram.