Carregando a biblioteca necessária

library(ggplot2)

Criação do Data Frame com os dados da imagem

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

Definindo a ordem dos fatores para que o gráfico fique ordenado

dados$Animal <- factor(dados$Animal, levels = dados$Animal[order(-dados$Total)])

Visualizações Gráficas

Abaixo apresentamos as visualizações dos dados separadas por abas.

Gráfico de Barras

Este gráfico exibe o número absoluto de casos por tipo de animal.

ggplot(dados, aes(x = Animal, y = Total, fill = Animal)) +
  geom_bar(stat = "identity", width = 0.7) +
  # Adicionando os rótulos de dados acima das barras
  geom_text(aes(label = Total), vjust = -0.5, size = 4) +
  scale_fill_brewer(palette = "Set2") +
  labs(
    title = "Total de Casos de Intoxicação por Animal",
    subtitle = "Brasil, 2005",
    x = "Tipo de Animal",
    y = "Número de Casos",
    fill = "Animal"
  ) +
  theme_minimal() +
  theme(
    plot.title = element_text(face = "bold", size = 14),
    axis.text.x = element_text(angle = 0, hjust = 0.5)
  )

Gráfico de Pizza

Este gráfico representa a distribuição percentual dos casos.

ggplot(dados, aes(x = "", y = Porcentagem, fill = Animal)) +
  geom_bar(stat = "identity", width = 1, color = "white") +
  coord_polar("y", start = 0) +
  # Adicionando os rótulos de porcentagem no meio das fatias
  geom_text(aes(label = paste0(Porcentagem, "%")), 
            position = position_stack(vjust = 0.5), 
            color = "white", fontface = "bold") +
  # Personalização
  scale_fill_brewer(palette = "Set2") +
  labs(
    title = "Proporção dos Casos por Categoria",
    subtitle = "Distribuição Percentual",
    x = NULL,
    y = NULL,
    fill = "Legenda"
  ) +
  theme_void() + # Remove eixos e fundo para ficar limpo como um gráfico de pizza deve ser
  theme(plot.title = element_text(face = "bold", size = 14, hjust = 0.5))