Análise de Dados

ClassificaçãoDoença

Abaixo está o gráfico de pizza gerado a partir dos dados de 20 pacientes examinados e classificados nos estágios leve, moderado e severo da doença.

dados <- c("moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", 
           "moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", 
           "leve", "severo", "moderado", "moderado", "moderado", "leve")


dados_fator <- factor(dados, levels = c("leve", "moderado", "severo"))
frequencias <- table(dados_fator)


porcentagens <- round(100 * frequencias / sum(frequencias), 1)
rotulos <- paste0(porcentagens, "%")


cores <- c("lightblue", "orange", "red")


pie(
  frequencias,
  labels = rotulos,
  col = cores,
  main = "Proporção dos Estágios da Doença entre os Pacientes"
)


legend(
  "topright", 
  legend = c("Leve", "Moderado", "Severo"), 
  fill = cores,
  bty = "n"  
)