#—————————————————————————
#—————————————————————————
A ideia é realizar uma análise simples sobre uma base de dados da tragédia do naufrágio do Titanic, muito famosa por ter sido eternizada no filme estrelado por Leonardo di Caprio.
Optei por analisar dados sobre a tripulação do navio, analisando especificamente por sexo e por faixa etária.
load(“C:/Users/55219/Desktop/Base_de_dados-master/Titanic.RData”)
read.csv (“C:/Users/55219/Desktop/Base_de_dados-master/titanic3.csv”)
tabela_sexo = table(Titanic$Sexo) tabela_sexo
Feminino Masculino 470 1730
prop.table(tabela_sexo)*100
Feminino Masculino 21.36364 78.63636
barplot(tabela_sexo, col=c(“#93c47d”,“#38761d”))
tabela_idade = table(Titanic$Idade) tabela_idade
criança adulto 109 2091
prop.table(tabela_idade)*100
criança adulto 4.954545 95.045455
barplot(tabela_idade, col=c(“#134f5c”,“#76a5af”))
O primeiro gráfico mostra a relação da tripulação por sexo, revelando que a tripulação era majoritariamente masculina no dia da tragédia. Sendo mais exato, eram 78,6% de homens contra 21,3% de mulheres a bordo.
Já o segundo gráfico mostra a diferença por faixa etária, nos revelando algo um pouco óbvio: A maioria esmagadora da tripulação era adulta. No entanto, apesar de somente serem 4,95% da tripulação total, as crianças afetadas na tragédia chegam a 109.
Com isso, nossa análise conclui que, dos 2200 passageiros a bordo do navio Titanic, a maior parte era adulta e homem.