Classificação de Doenças - Gráfico de Pizza

ClassificaçãoDoença

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

tabela <- table(doenca)

# Ordenando os níveis e calculando porcentagens
tabela <- tabela[c("leve", "moderado", "severo")]
porcentagens <- round(100 * tabela / sum(tabela), 1)
rotulos <- paste0(porcentagens, "%")

# Definindo cores para as fatias
cores <- c(
  "leve"     = "#2A9D8F",
  "moderado" = "#E9C46A",
  "severo"   = "#E63946"
)

# Gráfico de pizza
pie(
  tabela,
  labels  = rotulos,
  col     = cores,
  main    = "Classificação de Doença em 20 Pacientes",
  cex     = 1.1,
  border  = "white"
)

# Legenda com legend()
legend(
  "bottomright",
  legend = c(
    paste0("Leve     (n = ", tabela["leve"],     ")"),
    paste0("Moderado (n = ", tabela["moderado"], ")"),
    paste0("Severo   (n = ", tabela["severo"],   ")")
  ),
  fill   = cores,
  title  = "Estágio da Doença",
  bty    = "n",
  cex    = 1.0
)