Trabalho aula 2

#Trabalho da aula 2 #Análise qualitativa de dados

summary(Titanic)

## Number of cases in table: 2201 
## Number of factors: 4 
## Test for independence of all factors:
##  Chisq = 1637.4, df = 25, p-value = 0
##  Chi-squared approximation may be incorrect

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

Passo a passo

#Passo 1: Importar dados do Rdata

Tabela_Idade=table(Titanic$Idade)
Tabela_Sexo=table(Titanic$Sexo)
Tabela_Sobreviveu=table(Titanic$Sobreviveu)

round(prop.table(Tabela_Idade)*100)

## 
## criança  adulto 
##       5      95

round(prop.table(Tabela_Sexo)*100)

## 
##  Feminino Masculino 
##        21        79

round(prop.table(Tabela_Sobreviveu)*100)

## 
## Não sobreviveu     Sobreviveu 
##             68             32

#Passo 2: Implementação dos gráficos

pie(Tabela_Idade,col = c("green","pink", main= "Gráfico da idade dos passageiros"))

pie(Tabela_Sexo,col = c("yellow","pink", main= "Gráfico do sexo dos passageiros"))

pie(Tabela_Sobreviveu,col = c("purple","pink", main= "Gráfico dos sobreviventes"))

#Passo 3: Interpretação dos gráficos

No Primeiro Gráfico, podemos ver que a maior parte dos passageiros era composta por adultos, tendo exatamente 95% da tripulação, os 5% restantes são a porcentagem da quantidade de crianças que estavam no navio.

No Segundo Gráfico, fica claro que 79% dos passageiros eram do sexo masculino, enquanto apenas 21% eram mulheres.

No terceiro Gráfico, vemos que mais da metade dos passageiros não sobreviveu ao acidente, 68% dos passageiros morreu e apenas 32% dos passageiros sobreviveu a essa fatalidade.