2VA - Questão 2: Classificação de Doença

ClassificaçãoDoença

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

tab <- table(dados)
tab

## dados
##     leve moderado   severo 
##        8        9        3

pct <- round(100 * tab / sum(tab), 1)

cores <- c("leve" = "lightgreen", "moderado" = "steelblue", "severo" = "tomato")
cores_ord <- cores[names(tab)]

rotulos <- paste0(names(tab), "\n", pct, "%")

pie(
  tab,
  labels = rotulos,
  col    = cores_ord,
  main   = "Classificação de Doença por Estágio"
)

legend(
  "bottomright",
  legend = paste0(names(tab), " (", pct, "%)"),
  fill   = cores_ord,
  title  = "Estágio"
)