R Markdown
#Carregar base de dados:
load("~/bases_curso_estatistica/Base_de_dados-master/Game of Thrones.RData")
#Tabela 1: sexo por lealdade.
tabela_sexo = table(personagens_livro$lealdade,
personagens_livro$sexo)
tabela_sexo
##
## femenino masculino
## Arryn 6 24
## Baratheon 6 58
## Greyjoy 5 70
## Guardia de la Noche 0 116
## Lannister 14 88
## Martell 14 23
## Ninguna 51 202
## Salvajes 16 24
## Stark 27 81
## Targaryen 6 30
## Tully 2 28
## Tyrell 10 16
#Agora vamos puxar a tabela de proporção.
#Porcentagem de mulheres e homem em cada casa.
tabela_sexo_percent <- round(prop.table(tabela_sexo,1)*100,1)
tabela_sexo_percent
##
## femenino masculino
## Arryn 20.0 80.0
## Baratheon 9.4 90.6
## Greyjoy 6.7 93.3
## Guardia de la Noche 0.0 100.0
## Lannister 13.7 86.3
## Martell 37.8 62.2
## Ninguna 20.2 79.8
## Salvajes 40.0 60.0
## Stark 25.0 75.0
## Targaryen 16.7 83.3
## Tully 6.7 93.3
## Tyrell 38.5 61.5
#Porcentagem de homens e porcentagem de mulheres em todas as casas.
tabela_sexo_percent <- round(prop.table(tabela_sexo,2)*100,1)
tabela_sexo_percent
##
## femenino masculino
## Arryn 3.8 3.2
## Baratheon 3.8 7.6
## Greyjoy 3.2 9.2
## Guardia de la Noche 0.0 15.3
## Lannister 8.9 11.6
## Martell 8.9 3.0
## Ninguna 32.5 26.6
## Salvajes 10.2 3.2
## Stark 17.2 10.7
## Targaryen 3.8 3.9
## Tully 1.3 3.7
## Tyrell 6.4 2.1
#Por linha
barplot(tabela_sexo,beside = T,
col = c("yellow","red","pink","purple","blue","black","orange","green"))
#No gráfico acima, as variáveis "sexo" e "lealdade" são analisadas para entender quantos homens e quantas mulheres existem nas casas de Game Of Thrones. Na tabela 1, indica quantas mulheres e a tabela 2 mostra quantos homens em cada casa.
#Existem casas que possuem uma quantidadade discrepante de homens e outras que nem mulheres possuem. Em um universo que se passa na antiguidade, não surpreende o fato de que as mulheres são minorias, visto que grande parte não teria nem condições de fazer parte destas casas.