Classificação de Doença

ClassificaçãoDoença

# Dados dos 20 pacientes
  dados <- c("moderado","leve","leve","severo","leve","moderado","moderado",
           "moderado","leve","leve","severo","leve","moderado","moderado",
           "leve","severo","moderado","moderado","moderado","leve")

# Contando cada estágio
contagem <- table(dados)

# Calculando porcentagens
porcentagens <- round(100 * contagem / sum(contagem), 1)

# Rótulos com porcentagem
rotulos <- paste0(porcentagens, "%")

# Cores para cada fatia
cores <- c(
  "leve"     = "#2A9D8F",
  "moderado" = "#E9C46A",
  "severo"   = "#E63946"
)

# Gráfico de pizza
pie(
  contagem,
  labels  = rotulos,
  col     = cores[names(contagem)],
  main    = "Classificação de Doença em 20 Pacientes",
  cex     = 1.2
)

# Legenda
legend(
  "bottomright",
  legend = names(contagem),
  fill   = cores[names(contagem)],
  title  = "Estágio",
  bty    = "n"
)