Análise de Dados

Classificação Doença

# Dados da doença
estagios <- c("moderado", "leve", "leve", "severo", "leve", "moderado", 
              "moderado", "moderado", "leve", "leve", "severo", "leve", 
              "moderado", "moderado", "leve", "severo", "moderado", 
              "moderado", "moderado", "leve")

# Contagem de cada estágio
contagem <- table(estagios)

# Cores das fatias
cores <- c("lightblue", "lightgreen", "lightcoral")

# Porcentagens
porcentagens <- round(100 * contagem / sum(contagem), 1)

# Rótulos com as porcentagens
rotulos <- paste(names(contagem), porcentagens, "%")

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

# Adicionando a legenda
legend('topright', legend = names(contagem), fill = cores)