Analise de dados sobre o Titanic

Agora vou abrir a base de dados

load("C:/Users/Kim Fonseca Coquet/Base_de_dados-master/Titanic.RData")
summary(Titanic)
##   Classe                    Idade             Sexo               Sobreviveu  
##  Tripula\xe7\xe3o:885   criança: 109   Feminino : 470   Não sobreviveu:1490  
##  Primeira        :324   adulto :2091   Masculino:1730   Sobreviveu    : 710  
##  Segunda         :285                                                        
##  Terceira        :706

Agora vamos fazer a limpeza de dados

Titanic$Classe = iconv(Titanic$Classe, "latin1", "UTF-8")
tail(Titanic)
##          Classe  Idade     Sexo     Sobreviveu
## 2195 Tripulação adulto Feminino     Sobreviveu
## 2196 Tripulação adulto Feminino     Sobreviveu
## 2197 Tripulação adulto Feminino     Sobreviveu
## 2198 Tripulação adulto Feminino Não sobreviveu
## 2199 Tripulação adulto Feminino Não sobreviveu
## 2200 Tripulação adulto Feminino Não sobreviveu

Agora vamos fazer as tabelas

tabela_classe = table(Titanic$Classe)
tabela_classe
## 
##   Primeira    Segunda   Terceira Tripulação 
##        324        285        706        885
tabela_idade = table(Titanic$Idade)
tabela_idade
## 
## criança  adulto 
##     109    2091
tabela_sexo = table(Titanic$Sexo)
tabela_sexo
## 
##  Feminino Masculino 
##       470      1730
tabela_sobreviveu = table(Titanic$Sobreviveu)
tabela_sobreviveu
## 
## Não sobreviveu     Sobreviveu 
##           1490            710

Proporções

prop.table(tabela_classe)*100
## 
##   Primeira    Segunda   Terceira Tripulação 
##   14.72727   12.95455   32.09091   40.22727
prop.table(tabela_idade)*100
## 
##   criança    adulto 
##  4.954545 95.045455
prop.table(tabela_sexo)*100
## 
##  Feminino Masculino 
##  21.36364  78.63636
prop.table(tabela_sobreviveu)*100
## 
## Não sobreviveu     Sobreviveu 
##       67.72727       32.27273

Pizzas

pie(tabela_classe,col=c("darkgreen","grey", "lightblue","#f11677" ))

pie(tabela_idade,col=c("skyblue","#f48607"))

pie(tabela_sexo,col=c("#f99998" ,"white"))

pie(tabela_sobreviveu,col=c("yellow","#f40617"))

Análise sobre as tabelas e gráficos.

Observando tudo, é possivel perceber que no Titanic a maioria eram homens, já que 78% eram homens e praticamente todos eram adultos como mostra o gráfico com 95%. Também podemos ver que 67% das pessoas que estavam no Titanic morreram. Além disso, conseguimos ver que 14% das pessoas eram da primeira classe, enquanto 12% eram da segunda classe e 32% eram da terceira classe e 40% formaram a tripulação.

Assim conseguimos perceber que no Titanic a maioria eram homens adultos e que quase metade das pessoas no navio faziam parte da tripulação. Além disso conseguimos ver que praticamente 2/3 das pessoas morreram.