finalCPAD

Intoxicação por animais peçonhentos

Gráfico de Barras

animais <- c("Escorpião", "Serpente", "Aranha", "Outros animais")
totais <- c(8208, 4944, 4661, 5834)

barplot(totais,
        names.arg = animais,
        col = c("gold", "darkgreen", "red", "blue"),
        main = "Casos de Intoxicação por Animal Peçonhento (2005)",
        xlab = "Animal",
        ylab = "Total de Casos",
        ylim = c(0, 9000))

legend("topright", legend = animais, fill = c("gold", "darkgreen", "red", "blue"))

porcentagens <- c(34.71, 20.91, 19.71, 24.67)

Gráfico de Pizza

pie(porcentagens,
    labels = paste(animais, round(porcentagens, 2), "%"),
    col = c("gold", "darkgreen", "red", "blue"),
    main = "Distribuição Percentual de Intoxicações por Animal (2005)")

legend("topleft", legend = animais, fill = c("gold", "darkgreen", "red", "blue"))