dados <- data.frame(
  Animal = c("Escorpião", "Serpente", "Aranha", "Outros animais"),
  Casos = c(8208, 4944, 4661, 5834),
  Porcentagem = c(34.71, 20.91, 19.71, 24.67)
)

Gráfico de Barras

Gráfico de Pizza