3VAQ2

Questão 2

Faça um gráfico de barras e um gráfico de pizza para os dados apresentados na tabela abaixo. Adicione título, cores, legenda e nomes de eixos(gráfico de barras).

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

Gráfico de Barras

library(ggplot2)

grafico_barras <- ggplot(tabela, aes(x = Animal, y = Total, fill = Animal)) +
  geom_bar(stat = "identity") +
  labs(title = "Casos de Intoxicação Humana por Animal Peçonhento no Brasil em 2005",
       x = "Animal",
       y = "Número de Casos",
       fill = "Animal") +
  theme_minimal() +
  scale_fill_manual(values = c("black", "orange", "skyblue", "green"))

print(grafico_barras)

Gráfico de pizza

labels <- tabela$Animal

total <- tabela$Total

porcentagem <- tabela$Percentagem

labels <- paste(labels, porcentagem)

labels <- paste(labels, "%", sep="")

cores <- c("orange", "green", "black", "skyblue")

pie(total, labels = labels, col = cores, 
    main = "Casos de Intoxicação Humana por Animal Peçonhento no Brasil em 2005")

legend("topright", legend = c("Escorpião", "Serpente", "Aranha", "Outros animais"), 
       fill = cores)