BASE DE DADOS

load("C:/Users/dessa/Documents/R/Base_de_dados-master/Titanic.RData")

TABELAS

tabela1<-table(Titanic$Classe)
tabela2<-table(Titanic$Sexo)
tabela3<-table(Titanic$Sobreviveu)

CRUZAMENTO DE DADOS

tabela4<-table(Titanic$Sexo,Titanic$Classe, exclude = "Masculino")
tabela5<-table(Titanic$Sobreviveu,Titanic$Sexo, exclude = "Masculino")

PERCENTUAL DOS DADOS

round(prop.table(tabela1)*100,2)
## 
## Tripulação   Primeira    Segunda   Terceira 
##      40.23      14.73      12.95      32.09
round(prop.table(tabela2)*100,2)
## 
##  Feminino Masculino 
##     21.36     78.64
round(prop.table(tabela3)*100,2)
## 
## Não sobreviveu     Sobreviveu 
##          67.73          32.27
round(prop.table(tabela4)*100,2)
##           
##            Tripulação Primeira Segunda Terceira
##   Feminino       4.89    30.85   22.55    41.70
round(prop.table(tabela5)*100,2)
##                 
##                  Feminino
##   Não sobreviveu    26.81
##   Sobreviveu        73.19

GRÁFICOS DE PIZZA

pie(tabela1, main = "Distribuição por Classe", col = c("green","grey","blue","pink"))

pie(tabela2, main = "Distribuição por Sexo", col = c("red","yellow"))

pie(tabela3, main = "Sobreviventes",col = c("blue","orange"))

GRÁFICOS DE BARRA

barplot(tabela1, main = "Distribuição por Classe", col = c("black","darkblue","purple","white"), ylim = c(0,1000))

barplot(tabela4, main = " Mulheres por Classe", col = c("red"), ylim = c(0,300))

ANÁLISE

Através da análise dos dados, concluimos que a tripulação presente no navio é três vezes maior que o número de passageiros da primeira classe. A terceira classe vem logo em seguida, no que diz respeito ao contingente, seguido pela primeira classe e por último a primeira classe. O número de sobreviventes é menor que 50% e as mulheres presentes, em sua maioria pertenciam a terceira classe. Também foram a maioria entre os sobreviventes.