data("VADeaths")


cores_arco_iris <- rainbow(5)


barplot(VADeaths, 
        beside = TRUE,               # Garante as barras lado a lado
        col = cores_arco_iris,       # Aplica as cores do arco-íris
        main = "Taxa de Mortalidade na Virgínia (1940)", 
        xlab = "Categorias Demográficas", 
        ylab = "Taxa de Mortalidade por 1.000 habitantes",
        ylim = c(0, 80))             # Dá margem no topo para a legenda

legend("topleft", 
       legend = rownames(VADeaths), 
       fill = cores_arco_iris, 
       title = "Faixa Etária",
       bty = "o")