Introdução

Nessa atividade, analisarei as variáveis categoricas “idade” e “sobreviveu” das pessoas que estavam no Titanic.

Passo 1 - Carregar o banco de dados

load("/Users/carol/Desktop/Materia de estatistica/Base_de_dados-master/Titanic.RData")

Passo 2 - Resumo dos dados

summary(Titanic)

##   Classe                    Idade             Sexo               Sobreviveu  
##  Tripula\xe7\xe3o:885   criança: 109   Feminino : 470   Não sobreviveu:1490  
##  Primeira        :324   adulto :2091   Masculino:1730   Sobreviveu    : 710  
##  Segunda         :285                                                        
##  Terceira        :706

Passo 3 - Construção das tabelas

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

#Tabela de contingência
tabela1 <- Titanic %>% select(Idade, Sobreviveu) %>% table()

tabela1

##          Sobreviveu
## Idade     Não sobreviveu Sobreviveu
##   criança             52         57
##   adulto            1438        653

#Tabela de proporção

round(prop.table(tabela1, 1)*100,1)

##          Sobreviveu
## Idade     Não sobreviveu Sobreviveu
##   criança           47.7       52.3
##   adulto            68.8       31.2

Passo 4 - Construção do gráfico

barplot(tabela1, beside = TRUE,
        legend=TRUE,
        col=c('#4fd8f0','#19358a'),
        main= "Idade x Sobreviveu")

Interpretação

Através dos dados analisados podemos observar que a populaçao de adultos dentro do navio era muito maior que a de crianças. No total haviam 2091 adultos, enquanto 109 crianças.

Através da tabela de proporção, podemos concluir que mais da metade das crianças sobreviveram, enquanto somente 31,2% dos adultos sobreviveram, ou seja, proporcionalmente mais crianças sobreviveram do que adultos.

Atividade 4