Atividade 6

Carreguei a base de dados e rodei a primeira vez para obter as informações sobre os personagens do livro.

load("H:/Faculdade/ESTATISTICA/Base_de_dados-master/Game of Thrones.RData")
head(personagens_livro)
##                      nome  lealdade      sexo nobre Guerra_dos_Tronos
## 1          Addam Marbrand Lannister masculino     1                 1
## 2 Aegon Frey (Jinglebell)   Ninguna masculino     1                 0
## 3         Aegon Targaryen Targaryen masculino     1                 0
## 4           Adrack Humble   Greyjoy masculino     1                 0
## 5          Aemon Costayne Lannister masculino     1                 0
## 6         Aemon Estermont Baratheon masculino     1                 0
##   Furia_dos_Reis Tormenta_de_Espadas Festim_dos_Corvos Danca_dos_Dragoes
## 1              1                   1                 1                 0
## 2              0                   1                 0                 0
## 3              0                   0                 0                 1
## 4              0                   0                 0                 1
## 5              0                   1                 0                 0
## 6              1                   1                 0                 0
##   capitulo_apresentacao ano_morte livro inteiro da morte capitulo_morte
## 1                    56        NA                     NA             NA
## 2                    49       299                      3             51
## 3                     5        NA                     NA             NA
## 4                    20       300                      5             20
## 5                    NA        NA                     NA             NA
## 6                    NA        NA                     NA             NA

library(dplyr)

Tratamento nas informações sobre os personagens do livro. Quantos eram nobres, não nobres, e os seus gêneros.

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)
tabela_da_nobreza
##            
##             não nobre nobre
##   femenino         73    84
##   masculino       414   346

Ajuste do gráfio com legenda e alteração de cores para uma melhor identificação.

prop.table(tabela_da_nobreza,2)
##            
##             não nobre     nobre
##   femenino  0.1498973 0.1953488
##   masculino 0.8501027 0.8046512
barplot(tabela_da_nobreza,legend=TRUE)

barplot(tabela_da_nobreza,legend=TRUE,beside=TRUE,col = c("red", "blue"))

Um pouco mais das informações que achei relevante trazer para o trabalho.

Diante disso, podemos afirmar que o livro contém 73 mulheres não nobres, 84 mulheres nobres, 414 homens não nobres e 346 homens nobres. No gráfico, o sexo masculino está identificado na cor azul, o sexo feminino na cor vermelha, além de possuir as legendas que facilitam a compreensão.

Observando os números, podemos também perceber a diferença entre a quantidade de homens e de mulheres que estão no livro. Fazendo uma rápida conta, temos no total 760 homens e 157 mulheres.

E Uma outra análise que podemos fazer é que no total temos 487 personagens não nobres e 430 não nobres. Totalizando o nosso número total de personagens, 917.