Gráficos

Gráfico de Barras

animais     <- c("Escorpião", "Serpente", "Aranha", "Outros animais")
total       <- c(8208, 4944, 4661, 5834)
cores       <- c("#E63946", "#457B9D", "#F4A261", "#2A9D8F")

barplot(total,
        names.arg = animais,
        main  = "Casos de Intoxicação por Animal Peçonhento - Brasil 2005",
        xlab  = "Animal",
        ylab  = "Número de Casos",
        col   = cores,
        legend.text = animais,
        args.legend = list(x = "topright"))

Gráfico de Pizza

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

pie(porcentagem,
    labels = paste0(animais, "\n", porcentagem, "%"),
    main   = "Distribuição dos Casos por Animal Peçonhento",
    col    = cores)
legend("topright", legend = animais, fill = cores)