Carregando a Base de dados

load("C:/Users/sgonc/Desktop/Base_de_dados-master/Titanic.RData")

Visualizando os dados

View(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

Tabela de Proporção - Sobrevivência por Idade

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(Sobreviveu, Idade) %>% table()
tabela1
##                 Idade
## Sobreviveu       criança adulto
##   Não sobreviveu      52   1438
##   Sobreviveu          57    653
round(prop.table(tabela1,1)*100,1)
##                 Idade
## Sobreviveu       criança adulto
##   Não sobreviveu     3.5   96.5
##   Sobreviveu         8.0   92.0
round(prop.table(tabela1,2)*100,1)
##                 Idade
## Sobreviveu       criança adulto
##   Não sobreviveu    47.7   68.8
##   Sobreviveu        52.3   31.2

Visualização - Gráfico de barras

barplot(tabela1, beside = TRUE, col = c("lightgray","lightpink"), main = "Gráfico de Barras para Duas Variáveis", horiz = TRUE, legend.text = TRUE)

A tabela de contingência nos mostra que a maioria dos sobreviventes eram adultos e apenas 8% eram crianças. Contudo, dos que não sobreviveram 96,5% eram adultos e 3,5% eram crianças. Sendo assim, podemos concluir que existiam mais adultos do que crianças no navio.

A tabela de proporção nos mostra que mais da metade das crianças sobreviveram, enquanto 47,7% delas morreram. Quanto aos adultos, as mortes foram de 68,8%, sobrevivendo apenas 31,2%. É possível ver que morreram proporcionalmente mais adultos do que crianças.

O gráfico de Barras nos mostra mais facilmente que havia uma maior população adulta no navio e que o número de não-sobreviventes adultos é mais que o dobro de sobreviventes-adultos. Enquanto entre a população infantil não existe tanta diferença (57 sobreviventes e 52 não-sobreviventes).