Terceira VA - 2ª Questão

Gráfico de Pizza

library(ggplot2)

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)
)

total_casos <- sum(dados$Total)

dados$label <- paste0(dados$Porcentagem, "%\n(", dados$Total, ")")

ggplot(dados, aes(x = "", y = Porcentagem, fill = Animal)) +
  geom_bar(width = 1, stat = "identity") +
  coord_polar("y", start = 0) +
  theme_void() +
  labs(
    title = "Casos de Intoxicação Humana por Animal Peçonhento no Brasil em 2005",
    subtitle = paste("Total de casos:", total_casos)  # Adicionando o total como subtítulo
  ) +
  scale_fill_brewer(palette = "Set2") +
  theme(legend.title = element_blank()) +
  geom_text(aes(label = label), 
            position = position_stack(vjust = 0.5), 
            color = "white", size = 4)

Gráfico de Barras

ggplot(dados, aes(x = Animal, y = Total, fill = Animal)) +
  geom_bar(stat = "identity") +
  geom_text(aes(label = label),     # Usando os rótulos formatados
            position = position_stack(vjust = 0.5), 
            color = "white", size = 4) +
  labs(
    title = "Casos de Intoxicação Humana por Animal Peçonhento no Brasil em 2005", 
    subtitle = paste("Total de casos:", total_casos),
    x = "Animal", 
    y = "Casos"
  ) +
  scale_fill_brewer(palette = "Set2") +
  theme_minimal() +
  theme(legend.title = element_blank())