Carregando a base de dados

load("C:/Users/Marcelle Oliveira/Desktop/Meus documentos/Base_de_dados-master/Titanic.RData")
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
Documento1 <- Titanic %>% select(Sobreviveu,Idade) %>% table()

Tabela de contingência

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

Tabela de Proporções

round(prop.table(Documento1,1)*100,1)
##                 Idade
## Sobreviveu       criança adulto
##   Não sobreviveu     3.5   96.5
##   Sobreviveu         8.0   92.0

Gráfico de Barras

barplot(Documento1,col=c("Orange","Royalblue"),
      ylab="Pessoas", main = "Gráfico")

Minha hipótese é que as crianças têm mais chance de sobreviver do que os adultos, e essa estatística confirma minha hipótese, pois, 52.3% das crianças sobreviveram e 68.8% dos adultos não sobreviveram.