atv2

ClassificaçãoDoença

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

contagem <- table(
  factor(classificacao, levels = c("leve", "moderado", "severo"))
)

percentual <- round(contagem / sum(contagem) * 100, 1)

labels_fatias <- paste(
  names(contagem),
  paste0(percentual, "%"),
  sep = "\n"
)

cores_pizza <- c("#56C596", "#FFD166", "#EF476F")

pie(
  contagem,
  labels = labels_fatias,
  col = cores_pizza,
  main = "Distribuição dos pacientes por estágio da doença",
  clockwise = TRUE,
  init.angle = 90,
  border = "white"
)

legend(
  "bottomleft",
  legend = names(contagem),
  fill = cores_pizza,
  title = "Classificação",
  bty = "n"
)