Trabalho 2 Estatística

Instalando banco de dados

#install.packages("usethis")

#usethis::use_course("https://github.com/DATAUNIRIO/Base_de_dados/archive/master.zip")

Utilizando a pasta titanic

load("C:/Users/digos/Downloads/Base_de_dados-master/Titanic.RData")

Ajeitei o nome tripulação que estava escrito errado

Titanic$Classe = gsub("<e7>", "ç", Titanic$Classe)
Titanic$Classe = gsub("<e3>", "ã", Titanic$Classe)

Tabela de pessoas de cada classe do navio

tabela_classe = table(Titanic$Classe)
tabela_classe

## 
##   Primeira    Segunda   Terceira Tripulação 
##        324        285        706        885

Tabela de diferenciação de idade dos tripulantes

tabela_idade = table(Titanic$Idade)
tabela_idade

## 
## criança  adulto 
##     109    2091

Tabela de genêros dos tripulantes

tabela_sexo = table(Titanic$Sexo)
tabela_sexo

## 
##  Feminino Masculino 
##       470      1730

Tabela de sobreiventes do navio

tabela_sobreviventes = table(Titanic$Sobreviveu)
tabela_sobreviventes

## 
## Não sobreviveu     Sobreviveu 
##           1490            710

Aqui fizemos a proporção em porcentagem das tabelas anteriores

prop.table(tabela_classe)*100

## 
##   Primeira    Segunda   Terceira Tripulação 
##   14.72727   12.95455   32.09091   40.22727

prop.table(tabela_sexo)*100

## 
##  Feminino Masculino 
##  21.36364  78.63636

prop.table(tabela_idade)*100

## 
##   criança    adulto 
##  4.954545 95.045455

prop.table(tabela_sobreviventes)*100

## 
## Não sobreviveu     Sobreviveu 
##       67.72727       32.27273

Tabela de crianças e adultos sobreviventes

tabela_titanic1 = table(Titanic$Sobreviveu, Titanic$Idade)
tabela_titanic1

##                 
##                  criança adulto
##   Não sobreviveu      52   1438
##   Sobreviveu          57    653

Esse codigo representa quem sobreviveu por idade em porcentagem e tabela

tabela_sobidade = table(Titanic$Sobreviveu, Titanic$Idade)
prop.table(tabela_sobidade)*100

##                 
##                    criança    adulto
##   Não sobreviveu  2.363636 65.363636
##   Sobreviveu      2.590909 29.681818

tabela_sobidade

##                 
##                  criança adulto
##   Não sobreviveu      52   1438
##   Sobreviveu          57    653

Aqui descobrimos que quase 50% das crianças morreram

O gráfico Rosa são os mortos e amarelo os tripulantes sobreviventes

barplot(tabela_sobidade,col=c("pink","yellow"))

# Gráfico de classes

barplot(tabela_classe,col=c("blue","green","purple","red"))

# Gráfico de idades

pie(tabela_idade,col=c("grey","black"))

# Gráfico de genero dos tripulantes

barplot(tabela_sexo,col=c("red","pink"))

# Gráfico de sobreiventes

pie(tabela_sobreviventes,col=c("red","green"))

#Nesse gráfico, percebemos que quase um terço dos tripulantes morreram

Nesse trabalho fizemos uma analise grafica de sobreiventes do titanic, desastre eu aconteceu na decada de 1910, mais especificamente em abril de 1912, e marcou geraçoes, até mesmo um filme super premiado, que ate hoje, deixou frustraçoes para pessoas que sentem vontade de viajar em cruzeiros, ou navios.

Analisando os gráfico e tabelas, podemos ter noção de mortes, sobreiventes, quantidade de pessoas por idade vivas e que não sobreviveram, quantas pessoas faziam parte de cada classe da tripulação, e podemos afirmar que mais de 50% das pessoas não sobreviveu ao acidente e que quase 50% das crianças morreram.