Carregando a Base de dados

load("C:/Users/ziin/Documents/estatistica/Titanic.RData")

Resumo da base de dados Titanic

summary(Titanic)
##         Classe        Idade             Sexo               Sobreviveu  
##  Tripulação:885   criança: 109   Feminino : 470   Não sobreviveu:1490  
##  Primeira  :324   adulto :2091   Masculino:1730   Sobreviveu    : 710  
##  Segunda   :285                                                        
##  Terceira  :706

Construindo a Tabela

QUANTIDADE DE SOBREVIVENTES E NAO SOBREVIVENTES POR IDADE

Com análise dessas variaveis , pretendo encontrar uma relação,entre quantidade de mortos sobreviventes,com respectivas idades.

library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
tabela1 <- Titanic %>% select(Idade,Sobreviveu) %>% table()
tabela1
##          Sobreviveu
## Idade     Não sobreviveu Sobreviveu
##   criança             52         57
##   adulto            1438        653

#Tabela de proporção

prop.table(tabela1,1)
##          Sobreviveu
## Idade     Não sobreviveu Sobreviveu
##   criança      0.4770642  0.5229358
##   adulto       0.6877092  0.3122908
round(prop.table(tabela1,1)*100,1)
##          Sobreviveu
## Idade     Não sobreviveu Sobreviveu
##   criança           47.7       52.3
##   adulto            68.8       31.2

#Grafico de Barras para analise das variaveis Sobreviventes e Idade

Podemos observar no gráfico abaixo,a partir das duas variáveis, que o número de mortos na faixa etaria adulta,foi bem mais crescente do que de criança.E de sobreviventes ao contrário do anterior, o número de sobreviventes foi pela faixa etaria de adultos,mas podemos concluir que tanto os sobreviventes e não sobreviventes , os maiores números ficaram na variável adulta.

Fatos que poderiam explicar esses dados são o número menor de crianças embarcadas em comparação ao número de adultos,por isso,o número significante de mortes e sobreviventes adultos, em detrimento das crianças,as questões climáticas durante fatalidade junto ao com contato com a água,poderiam interferido no sistema imunológico das crianças,facilitando a sua morte mais rapidamente,pois tendem a ser mais frágeis.

barplot(tabela1,beside = TRUE,col = c("pink","black"),main = "Analise Bivariada",legend=TRUE )