Untitled

ClassificaçãoDoença

# Inserindo os dados
dados <- c("moderado", "leve", "leve", "severo", "leve", "moderado", 
           "moderado", "moderado", "leve", "leve", "severo", "leve", 
           "moderado", "moderado", "leve", "severo", "moderado", 
           "moderado", "moderado", "leve")

# Criando a tabela de frequência
tabela <- table(dados)

# Calculando as percentagens para os rótulos
pct <- round(tabela / sum(tabela) * 100)
rotulos <- paste(pct, "%", sep="")

# Definindo as cores
cores <- c("lightgreen", "orange", "red")

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

# Adicionando a legenda
legend("topright", legend = names(tabela), fill = cores)