TITANIC

“Só Deus afunda esse navio”… só que não.

Brincando com a base de dados sobre o naufrágio do Titanic.

1) Importanto a base de dados

load("C:/Users/Priscila/Desktop/Base_de_dados-master/Titanic.RData")

2) Visualização da base de dados

View(Titanic)

3) Tabela por classe

table (Titanic$Classe)

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

4) Tabela por idade

table (Titanic$Idade)

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

5) Tabela por sexo

table (Titanic$Sexo)

## 
##  Feminino Masculino 
##       470      1730

6) Tabela de sobreviventes

table (Titanic$Sobreviveu)

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

7) Atribuição de objetos para visualização dos dados

tab_classe <- (Titanic$Classe)
tab_idade <- (Titanic$Idade)
tab_sexo <- (Titanic$Sexo)
tab_sobreviveu <- (Titanic$Sobreviveu)
idade <- (Titanic$Idade)
classe <- (Titanic$Classe)
sexo <- (Titanic$Sexo)
sobreviveu <- (Titanic$Sobreviveu) 

8) Gráfico relação da tripulação e idade

pie (table(Titanic$Idade),main = "Gráfico 1 - Tripulação por idade", col = c("#e37705","#0b0166"))

Podemos verificar que a tripulação do navio é majoritariamente adulta. A partir da análise da tabela de idade, validamos que o número de adultos é quase 20 vezes maior que o contingente de crianças a bordo.

9) Gráfico relação tripulação e sexo

pie(table(Titanic$Sexo),main = "Gráfico 2 - Tripulação por sexo", col = c("#eefc92", "#194525"))

Podemos verificar que a a tripulação masculina é bem maior que a feminina. Com relação a tabela de sexo, notamos que a tripulação masculina é 4 vezes maior que a feminina.

10) Gráfico relação de sobreviventes

pie (table(tab_sobreviveu), main = "Gráfico 4 - Sobreviventes", col = c("#4c3d4f", "#eab8f5"))

Podemos notar que não tinha colete salva-vidas suficiente e nem objetos flutuantes para que as pessoas pudessem se agarrar. Menos da metade da tripulação sobreviveu ao acidente. Rose podia muito bem ter dividido a porta com o Jack mas ela não quis.

11) Gráfico em barra relação da tripulação por classe

barplot(table(tab_classe), main = "Gráfico 3 - Tripulação por classe", col = c("#aef5ee", "#78ccc4", "#18a396", "#014740"))

O número de tripulantes da terceira classe é bem maior que a primeira e a segunda. Ao analisarmos os números da tabela de classe, podemos notar que a soma da primeira e da segunda classe é quase igual ao contingente de pessoas da terceira classe.

12) Conclusão

Será que o grande número de não sobreviventes tem relação com o número de tripulantes da terceira classe? O filme mostra que essa classe não era prioritária para o ingresso nos botes e muito menos para utilzar o colete salva-vidas (devemos acreditar em Hollywood?).