Untitled

Questão 2

categorias <- c("Escorpiao", "Serpente", "Aranha", "Outros animais")
total <- c(8208, 4944, 4661, 5834)
porcentagem <- c(34.71, 20.91, 19.71, 24.67)

Barras

barplot(total, 
        names.arg = categorias, 
        col = c('#FF5733', '#33FF57', '#3357FF', '#FF33A6'),
        main = "Distribuição Total por Categoria", 
        xlab = "Categorias", 
        ylab = "Total", 
        beside = TRUE)

Pizza

pie(porcentagem, 
    labels = categorias, 
    col = c('#FF5733', '#33FF57', '#3357FF', '#FF33A6'),
    main = "Distribuição Percentual por Categoria", 
    clockwise = TRUE, 
    radius = 1, 
    init.angle = 90)