3 Questão:

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). Abaixo submeta o link do RPubs com o resultado dessa questão. Note que cada gráfico deve ficar dentro de uma aba específica.

Construção do DataFrame

especie<-c("Escorpiao", "Serpente", "Aranha", "Outros animais")
total<-c(8208,4944,4661,5864)
porcentagem<-c(34.71,20.91,19.71,24.67)
intox_animal<-data.frame("Especie" = especie, "Total"= total, "Porcentagem" = porcentagem)
head(intox_animal)
##          Especie Total Porcentagem
## 1      Escorpiao  8208       34.71
## 2       Serpente  4944       20.91
## 3         Aranha  4661       19.71
## 4 Outros animais  5864       24.67

Gráfico de Barras

color = c("steelblue", "green", "orange", "brown")
barplot(intox_animal$Total~intox_animal$Especie, col = color, ylab="Total", xlab= "Especie", main = "Intoxicação humana por Animais peçonhentos - Brasil -2005" )
legend("topright", pch=c(15,15,15), col = color, legend = especie)

Gráfico de Pizza

x<-intox_animal$Porcentagem
labels<-intox_animal$Especie
ibis<- paste( labels, x, "%" )
pie(x,labels = ibis, col = color, main = "Intoxicação humana por Animais peçonhentos - Brasil -2005" )
legend("topright", legend = x, cex = 0.8, col = color)