---

title: “Q2” author: “artur” date: “2026-06-13” output: html_document

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


tabela_frequencia <- table(dados_doenca)


porcentagens <- round(100 * prop.table(tabela_frequencia), 1)


rotulos <- paste(names(tabela_frequencia), " (", porcentagens, "%)", sep = "")


cores_pizza <- c("#99ff99", "#ffcc99", "#ff9999")


pie(tabela_frequencia, 
    labels = NA,                  
    col = cores_pizza,            
    main = "Classificação Doença")


legend("topright", 
       legend = rotulos, 
       fill = cores_pizza, 
       title = "Estágios da Doença",
       bty = "o")