Classes e Sobreviventes do Titanic

1. Importação da base de dados

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

2. Cruzamento dos dados

# Quali x Quali
Titanic$Classe <- as.factor(Titanic$Classe)
Titanic$Sobreviveu <- as.factor(Titanic$Sobreviveu)


#Table cruzada (duas variáveis qualitativas)
tabela1 <- table(Titanic$Classe, Titanic$Sobreviveu)


#Proporção - porcentagem
prop.table(table(Titanic$Classe, Titanic$Sobreviveu),1)*100

##             
##              Não sobreviveu Sobreviveu
##   Tripulação       76.04520   23.95480
##   Primeira         37.65432   62.34568
##   Segunda          58.59649   41.40351
##   Terceira         74.78754   25.21246

3. Conclusão

É fácil concluir observando a tabela cruzada acima que no caso Titanic existe relação entre a classe e sobrevivência. A primeira classe foi a classe que mais sobreviveu, seguida da segunda, terceira e por último a tripulação (funcionários do navio). Por consequência, a tripulação e a terceira classe que não obteve prioridade no salvamento foram as que mais tiveram afogamentos. Por fim, a clássica cena de Rose e Jack no mar se confirma nessa tabela, ela uma moça rica da primeira classe sobrevive, ele um rapaz podre da terceira classe não sobrevive.