questao1

Questão 2

Barras

# dados
animais <- c(
  "Escorpião",
  "Serpente",
  "Aranha",
  "Outros animais"
)

casos <- c(
  8208,
  4944,
  4661,
  5834
)

cores <- c(
  "red",
  "forestgreen",
  "steelblue",
  "orange"
)

# Gráfico de barras
barplot(
  casos,
  names.arg = animais,
  col = cores,
  main = "Casos de intoxicação humana por animal peçonhento (Brasil - 2005)",
  xlab = "Animal",
  ylab = "Número de casos"
)

legend(
  "topright",
  legend = animais,
  fill = cores,
  title = "Animal"
)

pizza

# dados
animais <- c(
  "Escorpião",
  "Serpente",
  "Aranha",
  "Outros animais"
)

casos <- c(
  8208,
  4944,
  4661,
  5834
)

cores <- c(
  "red",
  "forestgreen",
  "steelblue",
  "orange"
)

# porcentagens
porcentagem <- round(casos/sum(casos)*100, 2)

rotulos <- paste(
  animais,
  "-",
  porcentagem,
  "%"
)

# pizza
pie(
  casos,
  labels = rotulos,
  col = cores,
  main = "Casos de intoxicação humana por animal peçonhento (Brasil - 2005)"
)

legend(
  "topright",
  legend = animais,
  fill = cores,
  title = "Animal"
)