Atividade 4

Análise Qualitativa da Base de Dados Titanic

Carregando a Base de Dados.

load("C:/Users/VIC NOTE/Documents/Ciencia Politica/8 Periodo/Estatistica/bases_curso_estatistica/Base_de_dados-master/Titanic.RData")

Construindo as Tabelas.

tab_tit1<-table(Titanic$Classe)
tab_tit2<-table(Titanic$Sexo)
tab_tit3<-table(Titanic$Sobreviveu)

Cruzando tabelas

tab_tit4<-table(Titanic$Sexo,Titanic$Classe, exclude = "Masculino")
tab_tit5<-table(Titanic$Sobreviveu, Titanic$Sexo, exclude = "Masculino")

Construindo o Percentual das Tabelas.

round(prop.table(tab_tit1)*100,2)

## 
## Tripulação   Primeira    Segunda   Terceira 
##      40.23      14.73      12.95      32.09

round(prop.table(tab_tit2)*100,2)

## 
##  Feminino Masculino 
##     21.36     78.64

round(prop.table(tab_tit3)*100,2)

## 
## Não sobreviveu     Sobreviveu 
##          67.73          32.27

round(prop.table(tab_tit4)*100,2)

##           
##            Tripulação Primeira Segunda Terceira
##   Feminino       4.89    30.85   22.55    41.70

round(prop.table(tab_tit5)*100,2)

##                 
##                  Feminino
##   Não sobreviveu    26.81
##   Sobreviveu        73.19

Criando os Gráficos do tipo pizza e nomeando-os.

pie(tab_tit1, main= "Gráfico 1 - Distribuição por Classe", col = c("#1919e0","#33cc0c", "#ebe709", "#f00a1d"))

pie(tab_tit2, main = "Gráfico 2 - Distribuição por sexo dos passageiros", col = c("#db129b", "#121fde"))

pie(tab_tit3, main = "Gráfico 3 - Sobreviventes", col = c("#032620", "#069e85"))

Criando Gráfico de Barras.

O gráfico de barras é melhor para visualização de tres ou mais objetos de uma variável.

barplot(tab_tit1, main= "Gráfico 1 - Distribuição por Classe", col = c("royalblue", "dark green", "red", "yellow"),ylim = c(0,1000)) 

barplot(tab_tit4, main = "Gráfico 4 - Distribuição de Mulheres por Classe", col = c("royalblue", "dark green", "red", "yellow"),ylim = c(0,300))

Conclusão

Ao analisar as tabelas de variáveis qualitativas, dos 2200 integrantes do cruzeiro Titanic, podemos observar que a tripulação, ou seja, quem vai servir os passageiros, é quase três vezes o tamanho da Primeira Classe. Ainda analisando as classes do Titanic, a tripulaçao é a maior, seguida da Terceira Classe, Primeira Classe e por ultimo a Segunda Classe. O percentual de mulheres é 3,7 vezes menor do que dos homens no navio.

Das 2200 pessoas que embarcaram no cruzeiro, apenas 32,27% sobreviveu. Na tentativa de esmiuçar mais os dados e cruzando tabelas, excluindo o sexo masculino, das 470 mulheres que embarcaram no Titanic, a maior parte delas estava na Terceira Classe, seguida da Primeira Classe, Segunda Classe e Tripulaçao. Dos sobrevivententes com o sexo feminino, pudemos notar que das 470 mulheres que embarcaram no navio, retornaram com vida 73,26% o que equivale a 344 mulheres. Apesar de ter entrado em minoria, as mulheres foram quase a metade dos sobreviventes.