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

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

Atividade 1: Quantas pessoas tinha no Titanic? Quantas informações (variáveis) existem no banco de dados?

2200 pessoas, o Banco de Dados tem 4 Variaveis

Atividade 2: Quantas pessoas sobreviveram ao Titanic?

710 pessoas

summary(Titanic$Sobreviveu)
## Não sobreviveu     Sobreviveu 
##           1490            710

Atividade 3: Qual é a proporção de pessoas que sobreviveram ao Titanic?

32,27%

sobreviventes<-table(Titanic$Sobreviveu)
sobreviventes
## 
## Não sobreviveu     Sobreviveu 
##           1490            710
round(prop.table(sobreviventes)*100,2)
## 
## Não sobreviveu     Sobreviveu 
##          67.73          32.27

Atividade 4: Quantas mulheres sobreviveram?

344

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
tabela001<-table(Titanic$Sexo,Titanic$Sobreviveu)
tabela001
##            
##             Não sobreviveu Sobreviveu
##   Feminino             126        344
##   Masculino           1364        366

Atividade 5: Quantas crianças sobreviveram?

57

tabela002<-table(Titanic$Idade,Titanic$Sobreviveu)
tabela002
##          
##           Não sobreviveu Sobreviveu
##   criança             52         57
##   adulto            1438        653

Atividade 6: Quantas pessoas da terceira classe sobreviveram?

178

tabela003<-table(Titanic$Classe,Titanic$Sobreviveu)
tabela003
##             
##              Não sobreviveu Sobreviveu
##   Tripulação            673        212
##   Primeira              122        202
##   Segunda               167        118
##   Terceira              528        178

Atividade 7: Qual o percentual de mulheres que sobreviveu?

73,19%

round(prop.table(tabela001,1)*100,2)
##            
##             Não sobreviveu Sobreviveu
##   Feminino           26.81      73.19
##   Masculino          78.84      21.16

Atividade 8: Qual o percentual de crianças que sobreviveu?

52,29%

round(prop.table(tabela002,1)*100,2)
##          
##           Não sobreviveu Sobreviveu
##   criança          47.71      52.29
##   adulto           68.77      31.23

Atividade 9: Qual o percentual da terceira classe que sobreviveu?

25,21%

round(prop.table(tabela003,1)*100,2)
##             
##              Não sobreviveu Sobreviveu
##   Tripulação          76.05      23.95
##   Primeira            37.65      62.35
##   Segunda             58.60      41.40
##   Terceira            74.79      25.21

Atividade 10: Que tipo de gráfico você pode utilizar nesse tipo de dado? Por quê?

Gráfico de Barras é o mais indicado, em virtude do quantitativo de variaveis

Atividade 11: Você poderia construir um gráfico para a variável “sobreviveu”?

tabela004<-table(Titanic$Sobreviveu)
tabela004
## 
## Não sobreviveu     Sobreviveu 
##           1490            710
barplot(tabela004,col =c ("blue","green"),main="Sobreviventes",ylim=c(0,2200))

Atividade 12: Você poderia construir um gráfico da variável “sobreviveu” por “sexo”?

tabela005<-table(Titanic$Sobreviveu,Titanic$Sexo)
tabela005
##                 
##                  Feminino Masculino
##   Não sobreviveu      126      1364
##   Sobreviveu          344       366
barplot(tabela005,col =c ("red","black"),main="Sobreviventes Conforme Sexo",ylim=c(0,2200),ylab = "Quantidade",legend.text = TRUE)

Criação de Nova Visualização de Dados

library(ggplot2)
library(ggpubr)
library(forcats)

tabela006<-table(Titanic$Classe,Titanic$Sobreviveu)
tabela006<-data.frame(tabela006)

Ballonplot 1

ggballoonplot(tabela006, fill = "value")+
  ggtitle("Sobreviventes do Titanic de acordo com o Sexo")

Mosaicplot 1

mosaicplot(table(Titanic$Classe,Titanic$Sobreviveu),main = "Sobreviventes do Titanic",color = c("red","Gray"))

Atividade 13: Você poderia construir uma outra visualização de dados (além dessas duas)? Qual gráfico você sugere?

###Sim, é possivel cruzar outros dados, como idade e genero.

Tabela007<-table(Titanic$Idade,Titanic$Sobreviveu)
Tabela007<-data.frame(Tabela007)

ggballoonplot(Tabela007, fill = "value")+
  ggtitle("Sobreviventes do Titanic de acordo com a Idade") 

Tabela008<-table(Titanic$Sexo,Titanic$Sobreviveu)
Tabela008<-data.frame(Tabela007)

ggballoonplot(Tabela008, fill = "value")+
  ggtitle("Sobreviventes do Titanic de acordo com Sexo") 

mosaicplot(table(Titanic$Sexo,Titanic$Sobreviveu),main = "Sobreviventes do Titanic de acordo com o sexo",color = c("blue","red"))

mosaicplot(table(Titanic$Idade,Titanic$Sobreviveu),main = "Sobreviventes do Titanic de acordo com a Idade",color = c("black","blue"))

Atividade 14: Você consegue interpretar esses dois gráficos? o que eles estão dizendo?

De acordo com os Gráficos é possivel identificar que o maior numero de sobreviventes era da primeira classse, e que o menor numero de sobreviventes é da tripulação

Atividade 15: Se você fosse fazer um Pitch (apresentação de 03 a 05 minutos) com recomendações sobre o Titanic a partir dos dados. Qual ideia você passaria? Quero um posicionamento!

a questão é que no momento do naufrágio, as pessoas com mais dinheiro e poder tiveram preferencia no salvamento, o que era normal na época, e continua sendo normal hoje.