A seguir, será feita uma análise do número de sobreviventes e não sobreviventes do acidente do Titanic em 1912. Também será analisado qual o sexo dos passageiros e tripulantes que estavam no navio, se eram pessoas do sexo feminino ou masculino.
load("~/Base_de_dados-master/Titanic.RData")
tab_tit1<-table(Titanic$Sobreviveu)
tab_tit1
##
## Não sobreviveu Sobreviveu
## 1490 710
tab_tit2<-table(Titanic$Sexo)
tab_tit2
##
## Feminino Masculino
## 470 1730
round(prop.table(tab_tit1)*100,2)
##
## Não sobreviveu Sobreviveu
## 67.73 32.27
round(prop.table(tab_tit2)*100,2)
##
## Feminino Masculino
## 21.36 78.64
pie (tab_tit1, main = "Gráfico 1 - Sobreviventes do Titanic", col = c("#fcf51c", "#554ed4"))
pie (tab_tit2, main = "Gráfico 2 - Sexo dos passageiros e da tripulação", col = c("#19fcd3", "#f0b47d"))