barplot(VADeaths,
beside = TRUE,
col = c("darkblue", "red", "darkgreen", "orange", "purple"),
main = "Taxa de Mortalidade na Virgínia (1940)",
xlab = "Grupos Populacionais",
ylab = "Mortalidade por 1000 habitantes",
legend = rownames(VADeaths))