Base Titanic

O presente trabalho faz uma relação entre as três classes de tripulantes do navio Titanic e a quantidade de sobreviventes do naufrágio entre essas classes.

library(readxl)
Titanic.RData<- load("C:/Users/victo/Desktop/Base_de_dados-master/Titanic.RData")

Quantidade de tripulantes por classe e de sobreviventes

Comparando a quantidade de pessoas por classe, percebe-se que a maior parte que compunha a tripulação era da terceira classe. Quando naufragou, um pouco menos de 1/3 da tripulação sobreviveu.

Titanic$Classe <- as.factor(Titanic$Classe)
Titanic$Sobreviveu<- as.factor(Titanic$Sobreviveu)

library(knitr)
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
# Grafico com as duas variantes 
par(mfrow=c(1,2))
boxplot(Classe, col = "Orange", main= "Classe")
boxplot(Sobreviveu, col = "Green", main= "Sobreviveu")

Cruzamento dos dados “Classe” e “Sobreviveu”

Embora a tripulação fosse composta de maior parte de pessoas da terceira classe, é possível constatar, nas representações abaixo, que o maior número de sobreviventes do trágico acidente era da primeira classe, enquanto o maior número de mortos pertencia à terceira classe.

tab_Classe_Sobreviveu <- table(Titanic$Classe,Titanic$Sobreviveu)
kable(tab_Classe_Sobreviveu)
Não sobreviveu Sobreviveu
Tripulação 673 212
Primeira 122 202
Segunda 167 118
Terceira 528 178

Cruzamento de dados em porcentagem

percentual_Classe_Sobreviveu <- prop.table(tab_Classe_Sobreviveu,1)*100
kable(percentual_Classe_Sobreviveu)
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

Conclusão

Sendo assim, é possível notar que, em fim, consegui mexer neste programa, e que R é difícil sim!!!