Carregar uma base de dados do RData
#-------------------------------------------
# Carregar uma base de dados do RData
#-------------------------------------------
load("/Users/mac/Desktop/Base_de_dados-master/Game of Thrones.RData")
Chamar gênero:
#-------------------------------------------
# Chamar gênero:
#-------------------------------------------
tabela1<- table(personagens_livro$sexo)
tabela1
##
## femenino masculino
## 157 760
Qual a proporção de personagens masculinos e femininos?
#-------------------------------------------
# Qual a proporção de personagens masculinos e femininos?
#-------------------------------------------
tabela2<- round(prop.table(tabela1)*100,2)
tabela2
##
## femenino masculino
## 17.12 82.88
Gráfico de pizza de porcentagem de gênero
#-------------------------------------------
# Gráfico de pizza de porcentagem de gênero
#-------------------------------------------
porcentagem<-round(tabela2*100/sum(tabela2),2)
rotulos<-paste("(",porcentagem,"%)")
pie(tabela2,
col = c("#A76FAB","#17A1BF") ,
main = "Gráfico 1 - Porcentagem de gênero",
labels=rotulos,
cex=0.7)
legend(1,1,names(tabela2),col = c("#A76FAB","#17A1BF"),pch=rep(15,2))
Interpretação do gráfico
Concluimos que a maioria de personagens do livro é composta pelo sexo masculino, com 82,88%. Enquanto apenas 17,12% é composto por personagens femininos.
Qual casa ele é leal?
#----------------------------------------------
# Qual casa ele é leal?
#--------------------------------------------
tabela3<- table(personagens_livro$lealdade)
tabela3
##
## Arryn Baratheon Greyjoy Guardia de la Noche
## 30 64 75 116
## Lannister Martell Ninguna Salvajes
## 102 37 253 40
## Stark Targaryen Tully Tyrell
## 108 36 30 26
Qual a proporção de lealdade?
#-------------------------------------------
# Qual a proporção de lealdade?
#-------------------------------------------
tabela4 <- round(prop.table(tabela3)*100,2)
tabela4
##
## Arryn Baratheon Greyjoy Guardia de la Noche
## 3.27 6.98 8.18 12.65
## Lannister Martell Ninguna Salvajes
## 11.12 4.03 27.59 4.36
## Stark Targaryen Tully Tyrell
## 11.78 3.93 3.27 2.84
Gráfico de barra de porcentagem
#-------------------------------------------
# Gráfico de barra de porcentagem
#-------------------------------------------
par (cex=0.4)
barras<- barplot(tabela4,
col = c("#B63674","#B0D327","#F4E425","#F45F25","#567CB9","#8CCD5A","#8B179E","#C06A8B","#F46010","#6F83A8","#8CCD5A","#B63674"),
main = "Gráfico 2 - Qual a porcentagem de lealdade?",
ylim = c(0,30))
text(barras, 0, tabela4,cex=2,pos=3,
col = c("black", "black","black","black", "black","black","black", "black","black","black", "black","black"))
Interpretação do gráfico
Podemos chegar a conclusão que a casa de Lealdade que tem mais pessoas é Ninguna, aproximadamente com 27,6%. Interessante analisamos que a Ninguna tem mais que o dobro de pessoas do segundo lugar (Guardia de la Noche - 12,65%). A casa que tem menos pessoas é Tyrell com apenas 2,84%. Arryn e Tully empatam em penúltimo lugar com 3,27%.