Introdução

resolução da 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). 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.

Dados

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


kable(dados)
Animal Casos Porcentagem
Escorpião 8208 34.71
Serpente 4944 20.91
Aranha 4661 19.71
Outros animais 5834 24.67

Gráficos

Gráfico de Barras

Gráfico de Pizza