Crie um gráfico de barras e pizza para os dados apresentados abaixo. Adicione título, cores, legendas e nomes aos eixos.

Utilizando a função data.frame é possível criar um banco de dados com as informações sobre intoxicação humana por animal peçonhento como visto no código abaixo:

Animal <- c("Escorpião", "Serpente", "Aranha", "Outros animais", "Total")
Total <- c(8.208, 4.944, 4.661, 5.834, 23.647)
Porcentagem <- c(34.71, 20.91, 19.71, 24.67, 100)

dados <- data.frame(Animal, Total, Porcentagem, stringsAsFactors=FALSE)

head(dados)
##           Animal  Total Porcentagem
## 1      Escorpião  8.208       34.71
## 2       Serpente  4.944       20.91
## 3         Aranha  4.661       19.71
## 4 Outros animais  5.834       24.67
## 5          Total 23.647      100.00

Sendo assim, podemos plotar essas informações em forma de gráficos, aqui do tipo barras e pizza.

# Gráfico de pizza
labels <- c("Escorpião", "Serpente", "Aranha", "Outros animais", "Total")
fatias <- c(34.71, 20.91, 19.71, 24.67, 100)

# Adicionando porcentagem ao gráfico
pctg <- round(fatias/sum(fatias)*100)
labels2 <- paste(labels, " ", pctg, "%", sep = "")

# Plotar o gráfico de pizza
pie(fatias, labels = labels2, col = rainbow(length(labels2)),
    main = "Intoxicação humana por animal peçonhento")

#Gráfico de barras

# Excluir a linha "Total" para focar no gráfico dos animais individuais
dados_filt <- dados[dados$Animal != "Total",]

# Plotar o gráfico de barras usando a função barplot
gb <- barplot(height = dados_filt$Total,
        names.arg = dados_filt$Animal,
        col = "lightblue",
        main = "Total de Incidentes por Tipo de Animal",
        xlab = "Animal",
        ylab = "Total de Incidentes",
        ylim = c(0, 9),
        las = 1)
# Adicionar os valores no topo de cada barra
text(x = gb, y = dados_filt$Total, label = dados_filt$Total, pos = 3, cex = 0.8, col = "black")