Respostas da 3va

  1. 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.

Gráfico de barras

#Criando espaço para plotar o gráfico
par(mar=c(5.1, 4.1, 4.1, 8.1), xpd=TRUE)

#Plotando o gráfico e sua legenda
barplot(total, main="Numero de Acidentes por Grupo", col=rainbow(4),name = animal, xlab="Animal",ylab="Total")

legend("topright",inset=c(-0.35,0),pch=c(15,15,15), legend=rownames(df), bg="transparent",col=rainbow(4))

Gráfico de pitzza

pie(df$porc, paste(porc,"%",sep="") ,main="Porcentagem de Acidentes de casos de intoxicacao",col=rainbow(4))
legend("topright",legend=row.names(df),cex=0.8, fill=rainbow(length(row.names(df))))