---

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

# 1. Criar o vetor com os dados brutos dos 20 pacientes
dados_doenca <- c("moderado", "leve", "leve", "severo", "leve", "moderado", 
                  "moderado", "moderado", "leve", "leve", "severo", "leve", 
                  "moderado", "moderado", "leve", "severo", "moderado", 
                  "moderado", "moderado", "leve")

# 2. Criar a tabela de frequências absolutas
tabela_frequencia <- table(dados_doenca)

# 3. Calcular as porcentagens arredondadas para cada estágio
porcentagens <- round(100 * prop.table(tabela_frequencia), 1)

# 4. Criar os rótulos de texto combinando o nome da categoria com a porcentagem (ex: "leve (45%)")
rotulos <- paste(names(tabela_frequencia), " (", porcentagens, "%)", sep = "")

# 5. Definir cores estáticas para cada uma das fatias
cores_pizza <- c("#99ff99", "#ffcc99", "#ff9999")

# 6. Gerar o gráfico de pizza tradicional (sem rótulos diretos para usar a função legend)
pie(tabela_frequencia, 
    labels = NA,                  # Remove os rótulos automáticos da borda
    col = cores_pizza,            # Aplica as cores definidas
    main = "Distribuição dos Estágios da Doença nos Pacientes")

# 7. Adicionar a legenda mapeando os rótulos com as porcentagens criadas
legend("topright", 
       legend = rotulos, 
       fill = cores_pizza, 
       title = "Estágios da Doença",
       bty = "o")