Questões da Prova

VADeaths

# 1. Carregando o dataset VADeaths (nativo do R)
data("VADeaths")

# 2. Definindo uma paleta de cores para cada faixa etária (linhas da matriz)
cores_grupos <- c("#1f77b4", "#ff7f0e", "#2ca02c", "#d62728", "#9467bd")

# 3. Criando o gráfico tradicional do R (barplot)
barplot(
  VADeaths,
  beside = TRUE,                                   # Agrupa as barras lado a lado
  col = cores_grupos,                              # Aplica cores diferentes
  main = "Taxa de Mortalidade na Virgínia (1940)", # Adiciona o título
  xlab = "Grupos Populacionais",                   # Nome do eixo X
  ylab = "Taxas de Mortalidade (por 1000)",        # Nome do eixo Y
  legend.text = rownames(VADeaths),                # Adiciona a legenda
  args.legend = list(x = "topleft", title = "Faixas Etárias") 
)