VADeaths

# Carrega os dados e bibliotecas necessárias
data("VADeaths")
library(reshape2)
library(ggplot2)

# Prepara os dados
df <- as.data.frame(VADeaths)
df$Faixa_Etaria <- rownames(df)
df_long <- melt(df, id.vars = "Faixa_Etaria",
                variable.name = "Grupo", value.name = "Taxa")

# Cria o gráfico de barras empilhadas agrupadas por faixa etária
ggplot(df_long, aes(x = Faixa_Etaria, y = Taxa, fill = Grupo)) +
  geom_bar(stat = "identity") +
  labs(title = "Taxa de Mortalidade por Faixa Etária e Grupo (VADeaths)",
       x = "Faixa Etária",
       y = "Taxa por 1000 habitantes",
       fill = "Grupo") +
  theme_minimal() +
  scale_fill_brewer(palette = "Set2")