Atividade 4

Analise bi-variada - TITANIC

Passo 0 Carregando a base de dados

load("C:/Users/Vaio/OneDrive/Área de Trabalho/Titanic.RData")

Passo 1 Variaveis da base de dados

a-classe
b-Idade
c-Sexo
d-Sobreviveu

Tabelas diversas relativas as variaveis

table(Titanic$Classe)
## 
## Tripulação   Primeira    Segunda   Terceira 
##        885        324        285        706
table(Titanic$Idade)
## 
## criança  adulto 
##     109    2091
table(Titanic$Sexo)
## 
##  Feminino Masculino 
##       470      1730
table(Titanic$Sobreviveu)
## 
## Não sobreviveu     Sobreviveu 
##           1490            710
table(Titanic$Classe,Titanic$Sobreviveu)
##             
##              Não sobreviveu Sobreviveu
##   Tripulação            673        212
##   Primeira              122        202
##   Segunda               167        118
##   Terceira              528        178
table(Titanic$Idade,Titanic$Sobreviveu)
##          
##           Não sobreviveu Sobreviveu
##   criança             52         57
##   adulto            1438        653
table(Titanic$Sexo,Titanic$Sobreviveu)
##            
##             Não sobreviveu Sobreviveu
##   Feminino             126        344
##   Masculino           1364        366
tabela1<-table(Titanic$Classe,Titanic$Sobreviveu)
tabela2<-table(Titanic$Idade,Titanic$Sobreviveu)
tabela3<-table(Titanic$Sexo,Titanic$Sobreviveu)
tabela4<-table(Titanic$Sobreviveu)
tabela5<-table(Titanic$Sobreviveu,Titanic$Sexo)

Atividade 1- Quantas pessoas tinha no Titanic? Quantas informacoes (variaveis) existem no banco de dados?

R.:O Titanic tinha em sua viagem inaugural (e unica) 2200 pessoas

R.:Sao 4 variaveis (classe, idade, sexo, sobrevivieu)

Atividade 2- Quantas pessoas sobreviveram?

R.: 710 pessoas sobreviveram

summary(Titanic$Sobreviveu)
## Não sobreviveu     Sobreviveu 
##           1490            710

Atividdade 3- Qual e a proporcao de pessoas que sobreviveram ao Titanic?

round(prop.table(tabela4)*100,2)
## 
## Não sobreviveu     Sobreviveu 
##          67.73          32.27

Atividade 4-Quantas mulheres sobreviveram?

R.: 344 mulheres sobreviveram

Atividade 5- Quantas crianças sobreviveram?

R.: 57 crianças sobreviveram

Atividade 6- Quantas pessoas da terceira classe sobreviveram?

R.: 178 pessoas da terceira classe sobreviveram

Atividade 7- Qual o percentual de mulheres que sobreviveu?

R.:73,19% das mulheres sobreviveram

prop.table(tabela3)*100
##            
##             Não sobreviveu Sobreviveu
##   Feminino        5.727273  15.636364
##   Masculino      62.000000  16.636364
round(prop.table(tabela3,1)*100,2)
##            
##             Não sobreviveu Sobreviveu
##   Feminino           26.81      73.19
##   Masculino          78.84      21.16

Atividade 8- Qual o percentual de crianças sobreviveu?

R.:52,29% das crianças sobreviveram

prop.table(tabela2)*100
##          
##           Não sobreviveu Sobreviveu
##   criança       2.363636   2.590909
##   adulto       65.363636  29.681818
round(prop.table(tabela2,1)*100,2)
##          
##           Não sobreviveu Sobreviveu
##   criança          47.71      52.29
##   adulto           68.77      31.23

Atividade 9- Qual o percentual da terceira classe que sobreviveu?

R.: 8,09% dos passageiros que sobreviveram pertenciam a terceira classe sendo que a terceira classe representava 32,09% da população analisada. Portanto, tem-se que 25,21% dos passageiros de terceira classe sobreviveu.

prop.table(tabela1)*100
##             
##              Não sobreviveu Sobreviveu
##   Tripulação      30.590909   9.636364
##   Primeira         5.545455   9.181818
##   Segunda          7.590909   5.363636
##   Terceira        24.000000   8.090909
round(prop.table(tabela1,1)*100,2)
##             
##              Não sobreviveu Sobreviveu
##   Tripulação          76.05      23.95
##   Primeira            37.65      62.35
##   Segunda             58.60      41.40
##   Terceira            74.79      25.21

Atividade 10- Que tipo de gráfico você pode utilizar nesse tipo de dado? Por quê?

R: O gráfico de barras consiste em alternativa recomendavel em função do numero de variaveis.

Atividade 11- Você poderia construir um gráfico para a variável “sobreviveu”?

R.:Segue abaixo o grafico

barplot(tabela4,
        beside=TRUE,
        col=c("blue","green"),
        main = "GRÁFICO I - SOBREVIVENTES",
        ylim = c(0,2200),ylab="Qtde de Pessoas",legend.text = TRUE)

Atividade 12- Você poderia construir um gráfico da variável “sobreviveu” por “sexo”?

R.: Será constuido a seguir um grafico sobreviventes por sexo

barplot(tabela3,
        beside=TRUE,
        col=c("red","blue"),
        main = "GRÁFICO II - SOBREVIVENTES POR SEXO",
        ylim = c(0,2200),ylab="Qtde de Pessoas",legend.text = TRUE)

### Atividade 13- Você poderia construir uma outra visualização de dados (além dessas duas)? Qual gráfico você sugere?

library(forcats)
library(ggpubr)
## Loading required package: ggplot2
library(ggplot2)

Sugerimos baloonplot e mosaicplot como a seguir:

BALLOONPLOT

tabela6<-table(Titanic$Idade,Titanic$Sobreviveu)
tabela6<-data.frame(tabela1)

ggballoonplot(tabela6, fill = "value")+
  ggtitle("Sobreviventes do Titanic por Idade")

MOSAICPLOT

mosaicplot(tabela1, main = "Titanic- sobreviventes por classe", color = c("green","yellow"))

mosaicplot(tabela2, main = " Titanic sobreviventes por Idade", color = c("red","blue"))

vetorcor<-c("red", "blue", "green", "yellow")

Atividade 14- Você consegue interpretar esses dois gráficos? o que eles estão dizendo?

R.:O balloonplot evidencia que a tripulação e aterceira classe foram as classes com mais vitimas.

O mosaicplot mostra, no primeiro mosaico, a mesma evidencia do balloonplot enquanto, no segundo mosaico, evidencia que as crianças tiveram percentual de sobrevivencia mais alto quando comparados aos adultos, salientando que a amostra(numero de crianças)foi infinitamente menor.

15 - Se você fosse fazer um Pitch (apresentação de 03 a 05 minutos) com recomendações sobre o Titanic a partir dos dados. Qual ideia você passaria? Quero um posicionamento!

Consideradas as estatisticas de sobrevivencia obtidas no banco de dados podemos especular que : mulheres e crianças tenham tido alguma prioridade no salvamento, uma vez que os percentuais de sobreviventes foram maiores. Pode-se imaginar também que os passageiros de primeira classe tenham se beneficiado de facilidades(logística ou prioridade)de forma que também tiveram notavelmente maior percentual de sobreviventes.