Questão VADeaths

VADeaths

# Visualizar os dados
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

# Gráfico de barras agrupadas (lado a lado)
barplot(
  VADeaths,
  beside = TRUE,
  col = c("steelblue", "tomato", "gold", "forestgreen", "purple"),
  main = "Taxa de Mortalidade - VADeaths",
  xlab = "Faixa Etária",
  ylab = "Taxa de Mortalidade",
  legend.text = rownames(VADeaths),
  args.legend = list(
    title = "Categorias",
    x = "topright"
  )
)