Carregamento da base de dados Titanic

load("~/Base_de_dados-master/Titanic.RData")

Questão 1 - Quantas pessoas tinha no Titanic? Quantas informações (variáveis) existem no banco de dados?

Tinham 2200 pessoas no Titanic. Existem quatro variáveis no banco de dados (classe, idade, sexo, sobreviveu).

Questão 2 - Quantas pessoas sobreviveram ao Titanic?

tab_tit1<-table(Titanic$Sobreviveu)

tab_tit1
## 
## Não sobreviveu     Sobreviveu 
##           1490            710

1490 pessoas não sobreviveram ao Titanic. 710 sobreviveram.

Questão 3 - Qual é a proporção de pessoas que sobreviveram ao Titanic?

round(prop.table(tab_tit1)*100,2)
## 
## Não sobreviveu     Sobreviveu 
##          67.73          32.27

67,73% das pessoas não sobreviveram ao Titanic. 32,27% das pessoas sobreviveram.

Questão 4 - Quantas mulheres sobreviveram?

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
Titanic2<-Titanic[,c("Sexo", "Sobreviveu")]
Titanic2<-Titanic2[Titanic2$Sexo!="Masculino",]
tabela_sexo_tit<-table(Titanic2$Sobreviveu)
tabela_sexo_tit
## 
## Não sobreviveu     Sobreviveu 
##            126            344

Sobreviveram 344 mulheres.

Questão 5 - Quantas crianças sobreviveram?

Titanic3<-Titanic[,c("Idade", "Sobreviveu")]
Titanic3<-Titanic3[Titanic3$Idade!="adulto",]
tabela_idade_tit<-table(Titanic3$Sobreviveu)
tabela_idade_tit
## 
## Não sobreviveu     Sobreviveu 
##             52             57

Sobreviveram 57 crianças.

Questão 6 - Quantas pessoas da terceira classe sobreviveram?

Titanic6<-Titanic[,c("Classe", "Sobreviveu")]
Titanic6<-Titanic6[Titanic6$Classe!="Primeira",]
Titanic6<-Titanic6[Titanic6$Classe!="Segunda",]
Titanic6<-Titanic6[Titanic6$Classe!="Tripulação",]
tabela_classe_tit<-table(Titanic6$Sobreviveu)
tabela_classe_tit
## 
## Não sobreviveu     Sobreviveu 
##            528            178

Sobreviveram 178 pessoas da terceira classe.

Questão 7 - Qual o percentual de mulheres que sobreviveu?

tab_tit2<-table(Titanic2$Sobreviveu)
tab_tit2
## 
## Não sobreviveu     Sobreviveu 
##            126            344
round(prop.table(tab_tit2)*100,2)
## 
## Não sobreviveu     Sobreviveu 
##          26.81          73.19

Entre as mulheres sobreviveram 73,19%.

Questão 8 - Qual o percentual de crianças que sobreviveu?

tab_tit3<-table(Titanic3$Sobreviveu)
tab_tit3
## 
## Não sobreviveu     Sobreviveu 
##             52             57
round(prop.table(tab_tit3)*100,2)
## 
## Não sobreviveu     Sobreviveu 
##          47.71          52.29

52,29% é o percentual de crianças que sobreviveram.

Questão 9 - Qual o percentual da terceira classe que sobreviveu?

tab_tit4<-table(Titanic6$Sobreviveu)
tab_tit4
## 
## Não sobreviveu     Sobreviveu 
##            528            178
round(prop.table(tab_tit4)*100,2)
## 
## Não sobreviveu     Sobreviveu 
##          74.79          25.21

Dos passageiros da terceira classe, 25,21% sobreviveram.

Questão 10 - Que tipo de gráfico você pode utilizar nesse tipo de dado? Por quê?

O gráfico de barras, pois é o de melhor visualização quando se trabalha com variáveis qualitativas. Tem um visual melhor que o gráfico de pizza, por exemplo.

Questão 11 - Você poderia construir um gráfico para a variável “sobreviveu”?

library(ggplot2)

ggplot(Titanic) +
 aes(x = Sobreviveu) +
 geom_bar(fill = "#5a8f4d",) +
 theme_minimal()

Questão 12 - Você poderia construir um gráfico da variável “sobreviveu” por “sexo”?

Titanic12<-Titanic[,c("Sexo", "Sobreviveu")]
tabela_12<-table(Titanic12$Sobreviveu)


library(ggplot2)

ggplot(Titanic12) +
 aes(x = Sobreviveu, fill = Sexo) +
 geom_bar() +
 scale_fill_hue() +
 theme_minimal()