Casos de Intoxicação Humana por Animal Peçonhento (Brasil, 2005)

Gráfico de Barras

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


cores <- c("#e74c3c", "#2ecc71", "#3498db", "#f1c40f")


bp <- barplot(
  total_casos,
  names.arg = animais,
  col = cores,
  main = "Casos de Intoxicação Humana por Animal Peçonhento\n(Brasil, 2005)",
  xlab = "Tipo de Animal",
  ylab = "Total de Casos",
  ylim = c(0, 10000)
)


text(bp, total_casos + 300,
     labels = total_casos,
     cex = 0.9,
     font = 2)

Gráfico de Pizza

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


labels_pizza <- paste0(animais, " (", porcentagens, "%)")


pie(
  total_casos,
  labels = labels_pizza,
  col = cores,
  main = "Distribuição Percentual dos Casos por Animal (2005)"
)


legend(
  "bottomleft",
  legend = animais,
  fill = cores,
  title = "Animais",
  cex = 0.8
)