Atividade 4 - Análise Qualitativa

Passo 1 - Carregando a base de dados

Carregando a base dados

# passo 1 - carregar base de dados

load("C:/Users/carol/OneDrive/Documentos/Estatistica/Base_de_dados-master/Titanic.RData")

Passo 2 - Construção de tabelas

2.1 Tabela - Titanic sobreviventes

#Tabela de sobreviventes
tab_tita1<-table(Titanic$Sobreviveu)
tab_tita1
## 
## Não sobreviveu     Sobreviveu 
##           1490            710

2.2 Tabela - Titanic Classes

#Tabela de Classe
tab_tita2<- table(Titanic$Classe)
tab_tita2
## 
## Tripulação   Primeira    Segunda   Terceira 
##        885        324        285        706

Passo 3 - Transformando os valores em porcentagem e arredondando

3.1 Percentual - Titanic sobreviventes

#passo 3 - mostrar os percentuais

#Titanic - sobreviventes
prop.table(tab_tita1)
## 
## Não sobreviveu     Sobreviveu 
##      0.6772727      0.3227273

Porcentagem e arredondamento em duas casas - Titanic sobreviventes

# pocentagem e arredondamento de duas casas
round(prop.table(tab_tita1)*100,2)
## 
## Não sobreviveu     Sobreviveu 
##          67.73          32.27

3.2 Percentual - Titanic Classes

#Titanic - Classes
prop.table(tab_tita2)
## 
## Tripulação   Primeira    Segunda   Terceira 
##  0.4022727  0.1472727  0.1295455  0.3209091

Porcentagem e arredondamento em duas casas - Titanic Classes

# pocentagem e arredondamento de duas casas
round(prop.table(tab_tita2)*100,2)
## 
## Tripulação   Primeira    Segunda   Terceira 
##      40.23      14.73      12.95      32.09

Passo 4 - Criando Gráficos de pizza e de barras

4.1 Gráfico de pizza

Titanic Sobreviventes

# 4.1 Gráfico de pizza 

#Titanic Sobreviventes
pie(tab_tita1, main = "Grafico Pizza 1 - Titanic Sobreviventes", col=c("#a85ac4","#f07dde"))

Titanic Classes

#Titanic Classes
pie(tab_tita2, main = "Grafico Pizza 2 - Titanic Classes", col=c("#eacbf5", "#d4a3e6","#c449b1", "#942883"))

4.2 Gráficos de barras

Titanic Sobreviventes

#Titanic Sobreviventes
barplot(tab_tita1, main = "Gráfico de barras 1 - Titanic Sobreviventes", col=c("#d40b18", "#750b11"), ylim=c (0,1600))

Titanic Classes

#Titanic Classes
barplot(tab_tita2, main = "Gráfico de barras 2 - Titanic Classes", col =c("#ff0dd9","#ff0d86","#db1478", "#8f044a"), ylim=c (0,1000))

Interpretação

Ao analisar os dois gráficos (Sobreviventes e Classes do Titanic) podemos analisar que a “tripulação” era uma grande maioria das pessoas em comparação à primeira e a segunda classe do navio. E quanto aos sobrevivente apenas 32% sobreviveram