Carregando a base de dados

load("C:/Users/vitor/Desktop/Base_de_dados-master/Titanic.Rdata")
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

Tabela de Contigência

tabela <- Titanic %>% select(Classe, Sobreviveu) %>% table() 
tabela
            Sobreviveu
Classe       Não sobreviveu Sobreviveu
  Tripulação            673        212
  Primeira              122        202
  Segunda               167        118
  Terceira              528        178

Na tabela de contigência podemos ver quantas pessoas sobreviveram ou não de cada classe(Funcionário, Primeira Classe, Segunda Classe ou Terceira Classe), além de saber o total de passageiros. O Titanic tinha 2200 passageiros, desses 885 eram da Tripulação, 324 da Primeira Classe, 285 da Segunda Classe e 706 da Terceira Classe.

Tabela de Proporção

round(prop.table(tabela,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

Vemos a mesma informação da tabela anterior, mas agora proporcionalmente. De acordo com a tabela de proporção, 76% da tripulação não sobreviveu, assim como 37,7% da primeira classe, 58,6% da segunda e 74,8% da terceira.

Gráfico de Barras

barplot(tabela, beside = TRUE,
        col = c("red","blue","green","white"),
        legend.text = c("Tripulação","Primeira Classe","Segunda Classe","Terceira Classe"),
        main = "Bivariância entre as classes dos passageiros com o número de sobreviventes",
        ylim = c(0, 700))

O gráfico de barras nos mostra a quantidade de pessoas que sobreviveram e não sobreviveram de cada classe, sendo as colunas vermelhas representando a tripulação, azul a primeira classe, verde a segunda classe e branca a terceira classe. O grupo de colunas da esquerda representa as pessoas que não sobreviveram e o grupo da direita, as que sobreviveram.