O Titanic é um navio brabíssimo na teoria, mas a prática difere da teoria.
Navio grande não afunda, eles disseram…
“Podem ir numa boa, que vão chegar ao destino na data prevista”.
Pra quem tá planejando um cruzeiro pro final do ano: Tamanho não é documento!!
Se tiver uma piscininha e camarão já tá bom, desde que não afunde…
1) BASE DO TITANIC
load("C:/Users/Vitor/Desktop/Base_de_dados-master/Titanic.RData")
View(Titanic)
2) Quantidade de tripulantes por idade e classe
library(knitr)
idade <- summary(Titanic$Idade)
kable(idade)
classe <- summary(Titanic$Classe)
kable(classe)
| Tripulação |
885 |
| Primeira |
324 |
| Segunda |
285 |
| Terceira |
706 |
sobreviveu <- summary(Titanic$Sobreviveu)
kable(sobreviveu)
| Não sobreviveu |
1490 |
| Sobreviveu |
710 |
3)Cruzamento de dados no que diz respeito à sobrevivência (qtd)
library(knitr)
tab_idade <- table(Titanic$Idade,Titanic$Sobreviveu)
kable(tab_idade)
| criança |
52 |
57 |
| adulto |
1438 |
653 |
tab_classe <- table(Titanic$Classe,Titanic$Sobreviveu)
kable(tab_classe)
| Tripulação |
673 |
212 |
| Primeira |
122 |
202 |
| Segunda |
167 |
118 |
| Terceira |
528 |
178 |
4) Sobrevivência (%)
library(knitr)
percentual_idade <- prop.table(tab_idade,1)*100
kable(percentual_idade)
| criança |
47.70642 |
52.29358 |
| adulto |
68.77092 |
31.22908 |
percentual_classe <- prop.table(tab_classe,1)*100
kable(percentual_classe)
| Tripulação |
76.04520 |
23.95480 |
| Primeira |
37.65432 |
62.34568 |
| Segunda |
58.59649 |
41.40351 |
| Terceira |
74.78754 |
25.21246 |
5) Síntese
Através de pesquisas, é possível perceber que é difícil sobreviver à acidentes em navios, pois grande parte dos tripulantes morreram. Esse triste episódio na vida de diversas pessoas ocorreu em 1912. Pelo menos a maior parcela das crianças sobreviveu, apesar de grande parte dos adultos ter partido dessa para uma melhor. ;(
