2VA - Questão 1: VADeaths

VADeaths

data(VADeaths)
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

cores <- c("steelblue", "tomato", "mediumseagreen", "goldenrod")

barplot(
  VADeaths,
  beside = TRUE,
  col   = cores,
  main  = "Taxa de Mortalidade na Virgínia (1940)",
  xlab  = "Grupo Etário",
  ylab  = "Taxa de Mortalidade (por 1000 hab.)",
  ylim  = c(0, max(VADeaths) * 1.3)
)

legend(
  "topleft",
  legend = colnames(VADeaths),
  fill   = cores,
  title  = "Categorias"
)