## Gráfico de Barras

# Dados
valores <- c(8208, 4944, 4661, 5834)
nomes <- c("Escorpião", "Serpente", "Aranha", "Outros")

# Gráfico de Pizza
pie(valores, labels = nomes,
    main = "Intoxicação Humana por Animal Peçonhento",
    col = rainbow(4))