2va questão 1)

VADeaths

data(VADeaths)
va_t <- t(VADeaths)

# Definino cores para cada grupo de idade
cores <- c(
  "#E63946",  # 50-54
  "#F4A261",  # 55-59
  "#2A9D8F",  # 60-64
  "#457B9D",  # 65-69
  "#6A0572"   # 70-74
)

# gráfico de barras agrupada
barplot(
  va_t,
  beside    = TRUE,
  col       = cores,
  main      = "Taxa de Mortalidade nos Estados do Sul dos EUA (1940)",
  xlab      = "Grupo Populacional",
  ylab      = "Taxa de Mortalidade (a cada 1000 hab.)",
  ylim      = c(0, max(va_t) * 1.3),
  legend.text = rownames(va_t),
  args.legend = list(
    title  = "Faixa Etaria",
    x      = "topright",
    bty    = "n",
    fill   = cores
  ),
  border    = "white",
  las       = 1
)