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

R: Tinham 2200 pessoas. Existem 4 variáveis: Classe, Idade, Sexo e Sobreviveu.

load("C:/Users/roberta.bastos/Desktop/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 2: Quantas pessoas sobreviveram ao Titanic?

R: 710 pessoas

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

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

R: 32,3%

tabela1<-table(Titanic$Sobreviveu)
prop.table(tabela1)*100
## 
## Não sobreviveu     Sobreviveu 
##       67.72727       32.27273

Atividade 4: Quantas mulheres sobreviveram?

R: 344 mulheres

table(Titanic$Sobreviveu,Titanic$Sexo)
##                 
##                  Feminino Masculino
##   Não sobreviveu      126      1364
##   Sobreviveu          344       366

Atividade 5: Quantas crianças sobreviveram?

R: 57 crianças

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

Atividade 6: Quantas pessoas da terceira classe sobreviveram?

R: 178 pessoas.

table(Titanic$Classe,Titanic$Sobreviveu)
##             
##              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?

R: 73,2%

table(Titanic$Sobreviveu,Titanic$Sexo)
##                 
##                  Feminino Masculino
##   Não sobreviveu      126      1364
##   Sobreviveu          344       366
tabela3<-table(Titanic$Sobreviveu,Titanic$Sexo)
prop.table(tabela3,2)*100
##                 
##                  Feminino Masculino
##   Não sobreviveu 26.80851  78.84393
##   Sobreviveu     73.19149  21.15607

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

R: 52,3%

table(Titanic$Idade,Titanic$Sobreviveu)
##          
##           Não sobreviveu Sobreviveu
##   criança             52         57
##   adulto            1438        653
tabela4<-table(Titanic$Idade,Titanic$Sobreviveu)
prop.table(tabela4,1)*100
##          
##           Não sobreviveu Sobreviveu
##   criança       47.70642   52.29358
##   adulto        68.77092   31.22908

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

R: 25,2%

table(Titanic$Classe,Titanic$Sobreviveu)
##             
##              Não sobreviveu Sobreviveu
##   Tripulação            673        212
##   Primeira              122        202
##   Segunda               167        118
##   Terceira              528        178
tabela5<-table(Titanic$Classe,Titanic$Sobreviveu)
prop.table(tabela5,1)*100
##             
##              Não sobreviveu Sobreviveu
##   Tripulação       76.04520   23.95480
##   Primeira         37.65432   62.34568
##   Segunda          58.59649   41.40351
##   Terceira         74.78754   25.21246

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

R: Gráfico de barras, pois tratam-se de variáveis quantitativas e qualitativas.

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

barplot(tabela1,beside=TRUE,
        col=c("grey","darkgreen"),main="Gráfico 1 - Sobreviventes Titanic",
        ylim = c(0,1600),ylab = "Frequência")

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

barplot(tabela3,beside=TRUE,
        col=c("grey","darkgreen"),main="Gráfico 2 - Sobreviventes Titanic/Sexo",
        ylim = c(0,1600),ylab = "Frequência",
        legend.text=TRUE)

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

library(RColorBrewer)
brewer.pal(7,"Blues")
## [1] "#EFF3FF" "#C6DBEF" "#9ECAE1" "#6BAED6" "#4292C6" "#2171B5" "#084594"
AZUL<-brewer.pal(7,"Blues")
barplot(tabela5,beside = T, col = AZUL,
        ylim = c(0,800),
        legend.text=TRUE)

# Atividade 14: Você consegue interpretar esses dois gráficos? o que eles estão dizendo? R: Pela análise dos gráficos pode-se observar que a frequência de mortos foi maior na Tripulação e na Terceira classe.

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!

R: Ao observar os dados do Titani pode-se observar que foi dada prioridade para o salvamento de mulheres, e da Primeira e Segunda classes.