Gráfico de barras
dados <- data.frame(
Animal = c("Escorpião", "Serpente", "Aranha", "Outros animais", "Total"),
Casos = c(8208, 4944, 4661, 5834, 23647),
Porcentagem = c(34.71, 20.91, 19.71, 24.67, 100.00)
)
# Removendo a linha "Total" para os gráficos (pois já soma 100%)
dados_sem_total <- dados[dados$Animal != "Total", ]
grafico_barras <- ggplot(dados_sem_total, aes(x = reorder(Animal, -Casos), y = Casos, fill = Animal)) +
geom_bar(stat = "identity") +
labs(title = "Casos de Intoxicação Humana por Animal Peçonhento (2005)",
x = "Animal",
y = "Número de Casos") +
theme_minimal() +
scale_fill_brewer(palette = "Set2") +
geom_text(aes(label = paste0(round(Porcentagem, 1), "%")), vjust = -0.5) #percentuais acima das barras
grafico_barras
Gráfico de pizza
# Gráfico de Pizza
dados_sem_total$fraction <- dados_sem_total$Casos / sum(dados_sem_total$Casos)
dados_sem_total$label <- paste0(dados_sem_total$Animal, "\n",
round(dados_sem_total$fraction * 100, 1), "%\n",
dados_sem_total$Casos, " casos")
grafico_pizza <- ggplot(dados_sem_total, aes(x = "", y = fraction, fill = Animal)) +
geom_bar(stat = "identity", width = 1) +
coord_polar("y", start = 0) +
labs(title = "Distribuição Percentual e quantitativa dos Casos") +
theme_void() +
geom_text(aes(label = label), position = position_stack(vjust = 0.5)) +
scale_fill_brewer(palette = "Set2")
grafico_pizza
