Análise de Dados

VADeaths

# Código do gráfico de barras empilhadas
data("VADeaths")
library(ggplot2)
library(reshape2)

VADeaths_melted <- melt(VADeaths)
colnames(VADeaths_melted) <- c("Faixa_Etaria", "Regiao", "Taxa")

ggplot(VADeaths_melted, aes(x = Faixa_Etaria, y = Taxa, fill = Regiao)) +
  geom_bar(stat = "identity", position = "dodge") +
  labs(title = "Taxa de Mortalidade por Região e Faixa Etária", 
       x = "Faixa Etária", 
       y = "Taxa de Mortalidade",
       fill = "Região") +
  scale_fill_brewer(palette = "Set1") +
  theme_minimal()