Atividade - Tabela Cruzada

1) Importação da base de dados sobre a tragédia do Titanic

load("C:/Users/marce/Downloads/Base_de_dados-master/Base_de_dados-master/Titanic.RData")
View(Titanic)

2) Tabelas de dados de sexo, idade e classe por quantidade

library(knitr)
idade <- summary(Titanic$Idade)
kable(idade)

	x
criança	109
adulto	2091

sexo <- summary(Titanic$Sexo)
kable(sexo)

	x
Feminino	470
Masculino	1730

classe <- summary(Titanic$Classe)
kable(classe)

	x
Tripulação	885
Primeira	324
Segunda	285
Terceira	706

sobreviveu <- summary(Titanic$Sobreviveu)
kable(sobreviveu)

	x
Não sobreviveu	1490
Sobreviveu	710

3) Cruzamento de dados em relação à sobrevivência

library(knitr)
tab_idade <- table(Titanic$Idade,Titanic$Sobreviveu)
kable(tab_idade)

	Não sobreviveu	Sobreviveu
criança	52	57
adulto	1438	653

tab_sexo <- table(Titanic$Sexo,Titanic$Sobreviveu)
kable(tab_sexo)

	Não sobreviveu	Sobreviveu
Feminino	126	344
Masculino	1364	366

tab_classe <- table(Titanic$Classe,Titanic$Sobreviveu)
kable(tab_classe)

	Não sobreviveu	Sobreviveu
Tripulação	673	212
Primeira	122	202
Segunda	167	118
Terceira	528	178

4) O percentual de sobrevivência

library(knitr)
percentual_idade <- prop.table(tab_idade,1)*100
kable(percentual_idade)

	Não sobreviveu	Sobreviveu
criança	47.70642	52.29358
adulto	68.77092	31.22908

percentual_sexo <- prop.table(tab_sexo,1)*100
kable(percentual_sexo)

	Não sobreviveu	Sobreviveu
Feminino	26.80851	73.19149
Masculino	78.84393	21.15607

percentual_classe <- prop.table(tab_classe,1)*100
kable(percentual_classe)

	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

5) Epílogo

Com tais dados e análise, é possível perceber que mulheres, passageiros de primeira classe e crianças possuem maior número de sobreviventes. E os mais afetados foram homens e a tripulação.