3AV

Dados

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

Gráfico de Barras

barplot(valores, names.arg = categorias, col = "skyblue",
        main = "Casos de Intoxicação por Animal Peçonhento (2005)",
        xlab = "Animais", ylab = "Número de Casos")

Gráfico de Pizza

pie(valores, labels = categorias, col = rainbow(length(categorias)),
    main = "Distribuição Percentual por Animal")