ClassificaçãoDoença

# 1. Vetor de dados fornecido pelo enunciado
dados_doenca <- c("moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", "moderado", 
                  "leve", "leve", "severo", "leve", "moderado", "moderado", "leve", "severo", 
                  "moderado", "moderado", "moderado", "leve")

# 2. Criando a tabela de frequências (organiza automaticamente em ordem alfabética: leve, moderado, severo)
tabela_doenca <- table(dados_doenca)

# 3. Calculando as porcentagens exatas de cada fatia
porcentagens <- round(100 * tabela_doenca / sum(tabela_doenca), 1)
labels_fatias <- paste0(porcentagens, "%")

# 4. Definindo uma cor diferente para cada grupo/estágio da categoria
# Ordem: Leve (Verde), Moderado (Laranja), Severo (Vermelho)
cores_doenca <- c("#2ca02c", "#ff7f0e", "#d62728")

# 5. Construindo o gráfico de pizza com os gráficos tradicionais do R
pie(
  tabela_doenca,
  labels = labels_fatias,                          # Inclui as porcentagens em cada fatia
  col = cores_doenca,                              # Define as cores distintas
  main = "Distribuição dos Estágios da Doença"     # Título do gráfico
)

# 6. Exigência extra: incluindo a legenda com o comando legend()
legend(
  "topright",                                      # Posição da legenda no gráfico
  legend = c("Leve", "Moderado", "Severo"),        # Nome das categorias
  fill = cores_doenca,                             # Cores correspondentes
  title = "Estágios"                               # Título da caixa de legenda
)