R Markdown

#install.packages("usethis")

#usethis::use_course("https://github.com/DATAUNIRIO/Base_de_dados/archive/master.zip")

Depois que instalamos o banco de dados, vamos importar a pasta titanic

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

Nós encontramos um erro em um nome das classes, que tinha que ser “tripulação”, então para corrigir esse nome, iremos fazer uma limpeza simples

Titanic$Classe = gsub("<e7>", "ç", Titanic$Classe)
Titanic$Classe = gsub("<e3>", "ã", Titanic$Classe)
PROBLEMA CORRIGIDO

Agora iremos descobrir as tabelas e seus valores das variáveis

Número de pessoas em cada classe
tabela_classe = table(Titanic$Classe)
tabela_classe
## 
##   Primeira    Segunda   Terceira Tripulação 
##        324        285        706        885
Número de individuos de acordo com a sua idade
tabela_idade = table(Titanic$Idade)
tabela_idade
## 
## criança  adulto 
##     109    2091
Número de passageiros e seu sexo
tabela_genero = table(Titanic$Sexo)
tabela_genero
## 
##  Feminino Masculino 
##       470      1730
Número de sobreviventes
tabela_remanescente = table(Titanic$Sobreviveu)
tabela_remanescente
## 
## Não sobreviveu     Sobreviveu 
##           1490            710

Com os valores das variáveis, iremos descobrir a proporção em porcentagem de cada uma das tabelas

prop.table(tabela_classe)*100
## 
##   Primeira    Segunda   Terceira Tripulação 
##   14.72727   12.95455   32.09091   40.22727
prop.table(tabela_genero)*100
## 
##  Feminino Masculino 
##  21.36364  78.63636
prop.table(tabela_idade)*100
## 
##   criança    adulto 
##  4.954545 95.045455
prop.table(tabela_remanescente)*100
## 
## Não sobreviveu     Sobreviveu 
##       67.72727       32.27273

Descobrimos o numero de quem sobreviveu por idade

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

Descobrimos quantos passageiros de cada gênero sobreviveu

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

Descobrimos quantas pessoas de cada classe sobreviveu

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

Nas próximas tabelas descobrimos a tabela e a proporção de cada sobreviventes e de que idades, sexos e classes eram.

Sobreviventes por idade

tabela_titanic1 = table(Titanic$Sobreviveu, Titanic$Idade)
tabela_titanic1
##                 
##                  criança adulto
##   Não sobreviveu      52   1438
##   Sobreviveu          57    653
prop.table(tabela_titanic1)*100
##                 
##                    criança    adulto
##   Não sobreviveu  2.363636 65.363636
##   Sobreviveu      2.590909 29.681818

Sobreviventes por gênero

tabela_titanic2 = table(Titanic$Sobreviveu, Titanic$Sexo)
tabela_titanic2
##                 
##                  Feminino Masculino
##   Não sobreviveu      126      1364
##   Sobreviveu          344       366
prop.table(tabela_titanic2)*100
##                 
##                   Feminino Masculino
##   Não sobreviveu  5.727273 62.000000
##   Sobreviveu     15.636364 16.636364

Sobreviventes por classe

tabela_titanic3 = table(Titanic$Sobreviveu, Titanic$Classe)
tabela_titanic3
##                 
##                  Primeira Segunda Terceira Tripulação
##   Não sobreviveu      122     167      528        673
##   Sobreviveu          202     118      178        212
prop.table(tabela_titanic3)*100
##                 
##                   Primeira   Segunda  Terceira Tripulação
##   Não sobreviveu  5.545455  7.590909 24.000000  30.590909
##   Sobreviveu      9.181818  5.363636  8.090909   9.636364

Agora iremos fazer os Gráficos

Quantidade de pessoas por classe

barplot(tabela_classe,col=c("#eafa05","#deed0c","#cedb0f","#a6b01a"))

Quantidade de pessoas por idade

pie(tabela_idade,col=c("#07edf2","#075c5e"))

Quantidade de pessoas por gênero

pie(tabela_genero,col=c("#5bab8d","#116646"))

Quantidade de sobreviventes

barplot(tabela_remanescente,col=c("#550370","#8b04b8"))

Apresentação e Interpretação dos gráficos e tabelas

Nós podemos analisar após as descobertas desses dados, todos os acidentes ocorridos no Titanic, temos o números de mortos e sobreviventes em cada gênero, classes. Na tabela de classe, analisamos que estavam no navio 2200 passageiros, sendo 324 da primeira classe, 285 da segunda, 706 da terceira e 885 da tripulação, sendo que respectivamente sobreviveram 202,118,178,212 passageiros. Analisamos também que desses 2200 passageiros, 109 eram crianças e 2091 adultos, sendo que 57 crianças e 653 adultos sobreviveram.

Além de que tinha 470 mulheres e 344 sobreviveram e tinham 1730 homens sendo que apenas 366 sobreviveram, atraves de todos esses valores nós podemos descobrir a proporção em porcentagem de cada um deles, que estão expostos no grafico de pizza, logo podemos afirmas que mais de 50% dos passageiros presentes no navio, acabaram falescendo.