Atividade do Titanic

Atividade Titanic

load(url("https://github.com/DATAUNIRIO/Base_de_dados/raw/master/Titanic.RData"))

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

### 2200 pessoas. Existem 4 variáveis

Quantas pessoas sobreviveram ao Titanic?

table(Titanic$Sobreviveu)

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

### 1490 pessoas sobreviveram

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

tabela_titanic1 <- table(Titanic$Sobreviveu)
prop.table(tabela_titanic1)*100

## 
## Não sobreviveu     Sobreviveu 
##       67.72727       32.27273

### 67% das pessoas sobreviveram ao ocorrido.

Quantas mulheres sobreviveram?

table(Titanic$Sobreviveu, Titanic$Sexo)

##                 
##                  Feminino Masculino
##   Não sobreviveu      126      1364
##   Sobreviveu          344       366

### 126 mulheres sobreviveram.

Quantas crianças sobreviveram?

table(Titanic$Sobreviveu, Titanic$Idade)

##                 
##                  criança adulto
##   Não sobreviveu      52   1438
##   Sobreviveu          57    653

### 57 crianças sobreviveram.

Quantas pessoas da terceira classe sobreviveram?

table(Titanic$Sobreviveu, Titanic$Classe)

##                 
##                  Tripula\xe7\xe3o Primeira Segunda Terceira
##   Não sobreviveu              673      122     167      528
##   Sobreviveu                  212      202     118      178

### 178 pessoas da terceira classe sobreviveram.

Qual o percentual de mulheres que sobreviveu?

tabela_titanic3 <- table(Titanic$Sobreviveu, Titanic$Sexo)
prop.table(tabela_titanic3)*100

##                 
##                   Feminino Masculino
##   Não sobreviveu  5.727273 62.000000
##   Sobreviveu     15.636364 16.636364

### 15% das mulheres que embarcaram, sobreviveram.

Qual o percentual de crianças que sobreviveu?

tabela_titanic4 <- table(Titanic$Sobreviveu, Titanic$Idade)
prop.table(tabela_titanic4)*100

##                 
##                    criança    adulto
##   Não sobreviveu  2.363636 65.363636
##   Sobreviveu      2.590909 29.681818

### Apenas 2,59% das crianças que embarcaram sobreviveram.

Qual o percentual da terceira classe que sobreviveu?

tabela_titanic5 <- table(Titanic$Sobreviveu, Titanic$Classe)
prop.table(tabela_titanic5)*100

##                 
##                  Tripula\xe7\xe3o  Primeira   Segunda  Terceira
##   Não sobreviveu        30.590909  5.545455  7.590909 24.000000
##   Sobreviveu             9.636364  9.181818  5.363636  8.090909

### 8,09% das pessoas de terceira classe que embarcaram sobreviveram.

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

### Acredito que o gráfico ideal para esse dado seja o Gráfico de Dispersão. Por serem duas váriaveis e este ser o melhor gráfico para representar duas variáveis.

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

plot(Titanic$Sexo, Titanic$Sobreviveu, col = "orange",
     main = "Sobreviveu M/F",
     ylab = "Sobreviveu",
     xlab = "Sexo")