3va

2ª Questão

Barra

# Dados da tabela
animais <- c("Escorpião", "Serpente", "Aranha", "Outros animais")
total <- c(8208, 4944, 4661, 5834)
porcentagem <- c(34.71, 20.91, 19.71, 24.67)

# Gráfico de barras
barplot(total,
        names.arg = animais,
        col = rainbow(length(animais)),
        main = "Casos de Intoxicação Humana por Animal Peçonhento (2005)",
        xlab = "Animal",
        ylab = "Número de Casos",
        legend.text = animais,
        args.legend = list(x = "topright", bty = "n"))

Pizza

# Dados da tabela
animais <- c("Escorpião", "Serpente", "Aranha", "Outros animais")
total <- c(8208, 4944, 4661, 5834)
porcentagem <- c(34.71, 20.91, 19.71, 24.67)

# Gráfico de pizza
pie(porcentagem,
    labels = paste0(animais, " - ", porcentagem, "%"),
    col =  rainbow(length(animais)),
    main = "Proporção de Intoxicações por Animal Peçonhento (2005)")