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

R Markdown

Tabela simples

O dado qualitativo selecionado para esta análise foi a quantidade de pessoas que sobreviveram comparado com as que não sobreviveram ao acidente do navio Titanic.

tabela_Titanic = table(Titanic$Sobreviveu)
tabela_Titanic
## 
## Não sobreviveu     Sobreviveu 
##           1490            710

Tabela de proporção

Agora comparando proporcionalmente os dados vistos na tabela anterior, temos que 67% da população não sobreviveu, enquanto 32% sobreviveu.

prop.table(tabela_Titanic)*100
## 
## Não sobreviveu     Sobreviveu 
##       67.72727       32.27273

Gráfico de Pizza com um toque de cor

Por fim, temos o gráfico da proporção vista acima, onde a porção violeta representa os tripulantes que não sobreviveram, e a rosa claro representa os que sobreviveram.

pie(tabela_Titanic)

pie(tabela_Titanic, col = c("violet", "pink"))