atividade 04

#Atividade 04

Aqui temos a base de dados Titanic:

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

#Tabela de contigência (classes x sobreviventes).

summary(Titanic)

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

library(dplyr)

## Warning: package 'dplyr' was built under R version 4.0.5

## 
## 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

tabela1 <- Titanic %>% select(Classe, Sobreviveu) %>% table()
tabela1

##             Sobreviveu
## Classe       Não sobreviveu Sobreviveu
##   Tripulação            673        212
##   Primeira              122        202
##   Segunda               167        118
##   Terceira              528        178

#Aqui temos a tabela de proporção:

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

##             Sobreviveu
## Classe       Não sobreviveu Sobreviveu
##   Tripulação           76.0       24.0
##   Primeira             37.7       62.3
##   Segunda              58.6       41.4
##   Terceira             74.8       25.2

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

##             Sobreviveu
## Classe       Não sobreviveu Sobreviveu
##   Tripulação           45.2       29.9
##   Primeira              8.2       28.5
##   Segunda              11.2       16.6
##   Terceira             35.4       25.1

#Aqui temos o gráfico de barras:

barplot(tabela1,beside= TRUE, col=c("orange","blue","green","skyblue"), main = "Análise bivariada(classes x sobreviventes)",legend=TRUE)

#Análise do Gráfico:

Os dados dos gráficos são uma análise bivariada entre a classe social dos tripulantes e o número de sobreviventes do Titanic. Com isso, se torna possível observar que o índice de morte da classe dos tripulantes é muito maior, em relação aos seus sobreviventes.
A primeira classe é a que tem o menor número de mortes, com apenas 8,2%, a que menos sofreu com o acidente. Seguida da segunda classe, com 11,2 % de não sobreviventes. Já a terceira classe teve um percentual muito maior, com 35,4% de morte.