Casos de Intoxicação por Animais Peçonhentos (Brasil - 2005)

Gráficos

Gráfico de Barras

par(xpd = TRUE, mar = c(8, 5, 4, 8))

barplot(
  dados$Total,
  names.arg = dados$Animal,
  col = c("darkorange", "darkgreen", "purple", "steelblue"),
  main = "Casos de Intoxicação por Animais Peçonhentos (2005)",
  xlab = "Animal",
  ylab = "Número de casos",
  las = 2  # gira os rótulos
)

legend(
  "topright",
  inset = c(-0.40, 0),
  legend = dados$Animal,
  fill = c("darkorange", "darkgreen", "purple", "steelblue"),
  title = "Legenda",
  bty = "n"
)

par(xpd = FALSE)

Gráfico de Pizza

par(xpd = TRUE, mar = c(5, 5, 4, 8))

cores <- c("darkorange", "darkgreen", "purple", "steelblue")

pie(
  dados$Total,
  labels = paste0(dados$Animal, " (", dados$Porcentagem, "%)"),
  col = cores,
  main = "Distribuição Percentual dos Casos (2005)"
)

legend(
  "topright",
  inset = c(-0.35, 0),  
  legend = dados$Animal,
  fill = cores,
  title = "Legenda",
  bty = "n"
)

par(xpd = FALSE)