Essa quarta atividade é feita com a base de dados Titanic. O Titanic ficou conhecido pelas lendas de que era inafundável, visto que foi *projetado pra ser o mais luxuoso e seguro navio mas infelizmente o final foi diferente do esperado pelos engenheiros.
Na primeira tabela podemos ver a relação entre o número de sobreviventes e suas classes no navio.
load("C:/Users/lineb/Desktop/Base_de_dados-master/Titanic.RData")
View(Titanic)
tabela_sobreviveu_classe<-table(Titanic$Classe, Titanic$Sobreviveu)
tabela_sobreviveu_classe
##
## Não sobreviveu Sobreviveu
## Tripulação 673 212
## Primeira 122 202
## Segunda 167 118
## Terceira 528 178
Há uma famosa história sobre o Titanic onde afirma-se que mulheres e crianças foram os primeiros a serem colocados em botes após o início de evacuação. Ao pesquisar sobre tal, encontrei o seguinte trecho: “Segundo oficial Lightoller se dirigiu ao capitão e sugeriu que a evacuação fosse iniciada com as mulheres e crianças. Smith, ainda em estado de paralisia, concordou com a cabeça e disse”coloque as mulheres e crianças e abaixe-os“. Entretanto, os dois homens interpretaram as ordens de maneira diferente: o primeiro oficial entendeu que eram mulheres e crianças primeiro, enquanto o segundo oficial presumiu que eram mulheres e crianças apenas.” (trecho retirado da página da Wikipédia)
Para visualizar melhor essa afirmação, podemos conferir as seguintes tabelas:
tabela_sexo_idade<-table(Titanic$Sexo, Titanic$Idade)
tabela_sexo_idade
##
## criança adulto
## Feminino 45 425
## Masculino 64 1666
tabela_idade_sobreviveu<-table(Titanic$Idade, Titanic$Sobreviveu)
tabela_idade_sobreviveu
##
## Não sobreviveu Sobreviveu
## criança 52 57
## adulto 1438 653
tabela_sobreviveu_sexo<-table(Titanic$Sobreviveu, Titanic$Sexo)
tabela_sobreviveu_sexo
##
## Feminino Masculino
## Não sobreviveu 126 1364
## Sobreviveu 344 366