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

Dados

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

Gráficos

Gráfico de Barras

barplot(
  dados$Total,
  names.arg = dados$Animal,
  col = c("darkorange", "forestgreen", "steelblue", "purple"),
  main = "Casos de Intoxicação Humana por Animal Peçonhento\nBrasil – 2005",
  xlab = "Tipo de Animal",
  ylab = "Número de Casos",
  legend.text = dados$Animal
)

Gráfico de Pizza

pie(
  dados$Porcentagem,
  labels = paste(dados$Animal, "-", dados$Porcentagem, "%"),
  col = c("darkorange", "forestgreen", "steelblue", "purple"),
  main = "Distribuição Percentual dos Casos de Intoxicação\nBrasil – 2005"
)