Análise de variáveis qualitativas do banco de dados “Titanic”
load("C:/Users/PCY/Documents/Estatistica R/BASE DE DADOS ESTATISTICA/Titanic.RData")
Análise das váriaveis qualitativas “vivos” e “classe”
Construção das tabelas
# Tabelas
vivos<-table(Titanic$Sobreviveu)
classe<-table(Titanic$Classe)
vivos
##
## Não sobreviveu Sobreviveu
## 1490 710
classe
##
## Tripulação Primeira Segunda Terceira
## 885 324 285 706
Construção das tabelas de proporção
# Tabelas de proporção
round(prop.table(vivos)*100,2)
##
## Não sobreviveu Sobreviveu
## 67.73 32.27
round(prop.table(classe)*100,2)
##
## Tripulação Primeira Segunda Terceira
## 40.23 14.73 12.95 32.09
Construção de Gráficos de pizza e de barras
# Gráfico de pizza
pie(vivos,col = c("#08070a","#0ee35c"),main = "Gráfico 1 - Total de sobreviventes e não sobreviventes")
# Gráfico de barras
barplot(classe,col = c("#046ec4","#4afffc","#fc7830","#787176"),
main = "Gráfico 2 - Distribuição das classes",ylim = c(0,1000))
Percebe-se que a quantidade de sobreviventes não foi superior a 1/3, logo, o acidente resultou no falecimento de um pouco mais de 2/3 da população a bordo. Além disso, a população a bordo estava desproporcionalmente representada, sendo a maior parte pertencente a classes menos abastadas, que representou quase 3/4 do total, já as classes mais abastadas eram minoria, com um pouco mais de 1/4 do total.