1) Base de Dados - Titanic
load("C:/Users/Paulo/Documents/trabalhos do tiago/Base_de_dados-master/Base_de_dados-master/Titanic.RData")
View(Titanic)
2) Tabelas de idade e classe por quantidade
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) Dados cruzados em relação à sobrevivência dos tripulantes do Navio
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) Percentual de Sobreviventes
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) Conclusão
Diante dos dados e das tabelas apresentadas pode-se perceber que, os homens, tripulação e os passageiros da terceira classe foram os que mais sofreram e poucos conseguiram se salvar. Muito por conta de suas posições no momento do acidente. Na maioria das vezes, tais classes ficam na parte baixa da embarcação e tem poucas chances de sobreviver. E, os homens, por tentar salvar suas famÃlias e ajudar outras pessoas. Por outro lado, mulheres, crianças e Primeira classe conseguiram se salvar em maior número.
