VADeaths

# Visualizar o dataset VADeaths
print(VADeaths)
##       Rural Male Rural Female Urban Male Urban Female
## 50-54       11.7          8.7       15.4          8.4
## 55-59       18.1         11.7       24.3         13.6
## 60-64       26.9         20.3       37.0         19.3
## 65-69       41.0         30.9       54.6         35.1
## 70-74       66.0         54.3       71.1         50.0
# Definindo cores para cada grupo
cores <- c(
  "Rural Male"   = "#E63946",
  "Rural Female" = "#2A9D8F",
  "Urban Male"   = "#E9C46A",
  "Urban Female" = "#457B9D"
)

# Gráfico de barras agrupadas
barplot(
  VADeaths,
  beside    = TRUE,
  col       = cores,
  main      = "Taxa de Mortalidade na Virgínia (1940)",
  xlab      = "Faixa Etária",
  ylab      = "Taxa de Mortalidade (por 1000 habitantes)",
  ylim      = c(0, max(VADeaths) * 1.3),
  legend.text = rownames(VADeaths),
  args.legend = list(
    x       = "topright",
    fill    = cores,
    title   = "Faixa Etária",
    bty     = "n",
    cex     = 0.9
  ),
  names.arg = colnames(VADeaths),
  cex.names = 0.95,
  border    = "white",
  las       = 1
)

# Adicionando legenda dos grupos
legend(
  "topleft",
  legend = colnames(VADeaths),
  fill   = cores,
  title  = "Grupo",
  bty    = "n",
  cex    = 0.9
)