Animais peçonhentos

valores<-c(8208,4944,4661,5834)
nomes<-c("Escorpião", "Serpente", "Aranha", "Outros")
barplot(valores, names.arg=nomes,
main = "Intoxicação Animal Perçonhento",
xlab = "Animais", ylab = "Casos",
col=rainbow(4))

pie(valores, labels=nomes,
main = "Intoxicação Animal Perçonhento",
col=rainbow(4))