ClassificaçãoDoença

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

# Tabela de frequências
tabela <- table(classificacao)

# Cálculo das porcentagens
porcentagens <- round(100 * tabela / sum(tabela), 1)
labels <- paste(names(tabela), "-", porcentagens, "%")

# Define as cores
cores <- c("lightblue", "lightgreen", "salmon")

# Gráfico de pizza
pie(tabela, labels = labels, main = "Classificação dos Estágios da Doença", col = cores)

# Legenda
legend("topright", legend = names(tabela), fill = cores)