Nesta atividade, irei apresentar algumas análises acerca da base de dados Titanic, presente no arquvio “base de dados master”, disponibilizado pelo professor Steven Dutt-Ross.

Primeiro irei carregar a base de dados e a library que será utilizida(dplyr).

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

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

Agora irei fazer uma tabela com alguns dados.

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

Vamos vizualizar a tabela:

tabela1

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

Agora irei fazer uma tabela de proporção utilizando o comando “prop.table”.

prop.table(tabela1,1)

##          Sobreviveu
## Idade     Não sobreviveu Sobreviveu
##   criança      0.4770642  0.5229358
##   adulto       0.6877092  0.3122908

Para deixar a tabela mais agradável estéticamente, vou arredondar os valores

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

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

Por último, antes da análise, irei plotar um gráfico de barras para auxiliar na vizualização dos dados que serão analisados.

barplot(tabela1, main = "gráfico de barras", col = c("skyblue","coral"))

Análise

A partir da análise dos dados construídos com a tabela de proporção e com o gráfico de barras, é possível inferrir que a porcentagem de crianças que sobreviveram(52.3%) é consideravelmente maior que a de adultos que sobreviveram(31.2%).

Isto provavelmente ocorreu por conta da preferência dada a salvar crianças durante desastres, sejam eles naturais ou não, já que em muitas culturas o senso comum implica que a criança por ter a vida inteira pela frente e muitas possibilidades para o futuro merece uma chance maior, além é claro de fatores mais fisícos e biológicos, como o fato de a estrutura corporal de um adulto ser muito mais desenvolvida, oque aumenta por natureza suas chances de sobrevivência a lesões e condições mais extremas, como temperaturas muito baixas.

Outra informação que pode ser extraída é que o número total de adutlos que antes estavam presentes no navio era de 2091, e o número total de crianças era de 109. O núumero total de sobreviventes foi de 710, já o número total de óbitos foi de 1490.