Abaixo, há a análise qualitativa de um banco de dados denominado “Titanic”. Nele, é analisado a taxa de sobreviventes e não sobreviventes e quais desses, são crianças ou adultos.
load("~/Base_de_dados-master/Titanic.RData")
tabela_sobrev= table(Titanic$Sobreviveu)
tabela_sobrev
##
## Não sobreviveu Sobreviveu
## 1490 710
round(prop.table(tabela_sobrev)*100,1)
##
## Não sobreviveu Sobreviveu
## 67.7 32.3
Depois dessas informações, percebemos que o número de mortes é muito maior que os de sobreviventes. Esses dados contam com todos os indivíduos presentes na embarcação, assim como a proporção. Diante dessa análise, percebe-se que, de fato, está tragédia tinha poucas chances de ter um resultado positivo, já que de 2.200 pessoas, apenas 710 sobreviveram.
Agora há a tabela de idades, para saber quais eram adultos e quais não eram, junto com a tabela de proporção do mesmos.
tabela_idade=table(Titanic$Idade)
tabela_idade
##
## criança adulto
## 109 2091
round(prop.table(tabela_idade)*100,1)
##
## criança adulto
## 5 95
Diante desses dados, nota-se que o número de adultos é 19 vezes maior que o de crianças.
Logo em seguida, vimos essas análises sendo interpretadas em gráficos, em especial o grafico de waffle para representar os sobreviventes e não sobreviventes.
barplot(tabela_sobrev,col=c("#c9a5c9","#c1e6d1"),main="Gráfico de Barras: Sobreviventes x Não Sobreviventes")
Depois, tamos o grafico de pizza para representar quantos adultos e crianças tinham na embarcação, tendo sobrevivido ou não.
pie(tabela_idade,col=c("#e6a485","#9be8e5"), main = "Gráfico de Pizza: Adultos x Crianças")
No final desse relatório, chegamos a conclusão que de fato, houve muitas fatalidades no acidente do “Titanic”. E que na embarção, tinha também crianças a bordo, em que provalvelmente muitas dentro de 109 crianças, vieram a morrer.