Base de dados

load("C:/Users/danie/Desktop/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

Tabelas 1 e 2

tabela1 <- Titanic %>% select(Sexo, Sobreviveu) %>% table()
tabela1
##            Sobreviveu
## Sexo        Não sobreviveu Sobreviveu
##   Feminino             126        344
##   Masculino           1364        366
round(prop.table(tabela1,1)*100,1)
##            Sobreviveu
## Sexo        Não sobreviveu Sobreviveu
##   Feminino            26.8       73.2
##   Masculino           78.8       21.2

Analisando a primeira tabela, podemos perceber que muito mais homens morreram no desastre do Titanic em comparação a mulheres. De 1730 homens a bordo do titanic, 1364 faleceram. Ja em relação as mulheres, de 470 mulheres a bordo, apenas 126 não sobreviveram. Na segunda tabela essa desproporção fica mais evidente, mostrando que 73.2% do sexo feminino sobreviveram e apenas 21.2% do sexo masculino vieram a sobreviver

Gráfico de barras

barplot(tabela1,beside = TRUE,main = "Sobrevivencia no Titanic",col = c("red","blue"),ylim =c(0,1500))

O gráfico de barras ajuda a mostrar visualmente essa desproporção, sendo representada pela cor vermelha as pessoas do sexo feminino e em azul as de sexo masculino.