VADeaths

Visualize o dataset VADeaths (já incluído no R) e crie um gráfico de barras empilhadas desses dados, de modo que as barras estejam agrupadas (lado a lado) para cada categoria. Também defina uma cor diferente para cada grupo das categorias. Por fim, adicione título, legenda e nomes nos eixos. Abaixo submeta o link do RPubs com o resultado dessa questão. Note que deve usar os gráficos tradicionais do R. Além disso, o gráfico deve ficar dentro de uma aba chamada de “VADeaths”.

R=

# Converte para matriz e define cores para cada grupo (linha = faixa etária)
cores <- c("#C8A96E", "#7A8E9E", "#C0622A", "#3A7D52", "#1C2B3A")

barplot(
  VADeaths,
  beside      = TRUE,
  col         = cores,
  main        = "Taxas de Mortalidade na Virgínia (1940)",
  xlab        = "Grupo populacional",
  ylab        = "Taxa de mortalidade (por 1000 habitantes)",
  legend.text = rownames(VADeaths),
  args.legend = list(
    title = "Faixa etária",
    x     = "topleft",
    bty   = "n",
    cex   = 0.85
  )
)

ClassificaçãoDoença

Uma doença pode ser classificada em três estágios (leve, moderado e severo). Foram examinados 20 pacientes e obtidos os dados: moderado, leve, leve, severo, leve, moderado, moderado, moderado, leve, leve, severo,leve, moderado, moderado, leve, severo, moderado, moderado, moderado,leve. Com base nestes dados crie um gráfico de piza. Inclua a porcentagem de cada fatia, as cores das fatias e o nome do gráfico. Adicionalmente, use o comando legend() para incluir a legenda do gráfico. Usando os gráficos tradicionais do R, abaixo submeta o link do RPubs com o resultado dessa questão. O gráfico deve ficar dentro de uma aba chamada de “ClassificaçãoDoença”.

R=

# Dados dos 20 pacientes
estagios <- c("moderado", "leve", "leve", "severo", "leve",
              "moderado", "moderado", "moderado", "leve", "leve",
              "severo", "leve", "moderado", "moderado", "leve",
              "severo", "moderado", "moderado", "moderado", "leve")

# Contagem de cada estágio
contagem <- table(estagios)

# Percentuais para exibir nas fatias
percentuais <- round(100 * contagem / sum(contagem), 1)
rotulos <- paste0(percentuais, "%")

# Cores para cada estágio
cores <- c(leve = "#7EAAD4", moderado = "#E8C97A", severo = "#d7191c")

# Gráfico de pizza
pie(
  contagem,
  labels  = rotulos,
  col     = cores[names(contagem)],
  main    = "Classificação de Doença por Estágio"
)

# Legenda
legend(
  "bottomright",
  legend = names(contagem),
  fill   = cores[names(contagem)],
  title  = "Estágio",
  bty    = "n"
)

USArrests

Use USArrests. Adicione uma coluna City com os nomes (rownames), ordene de forma decrescente por Murder e selecione os 5 estados mais violentes. Construa um gráfico de barras agrupadas com Murder, Rape e Assault, com título, legenda e nomes nos eixos. O resultado deve reproduzir exatamente a figura modelo (anexar imagem na prova). Use o Plotly e coloque dentro de uma aba chamada de ” “USArrests”.

R=

library(dplyr)
library(plotly)

# Prepara os dados
top5 <- USArrests %>%
  mutate(City = rownames(USArrests)) %>%
  arrange(desc(Murder)) %>%
  slice_head(n = 5)

# Gráfico de barras agrupadas com Plotly
plot_ly(top5, x = ~City, y = ~Murder,  type = "bar", name = "Murder",
        marker = list(color = "#4472C4")) %>%
  add_trace(y = ~Rape,    name = "Rape",
            marker = list(color = "#ED7D31")) %>%
  add_trace(y = ~Assault, name = "Assault",
            marker = list(color = "#70AD47")) %>%
  layout(
    barmode  = "group",
    title    = "5 estados mais violentos (EUA, 1973)",
    xaxis    = list(
      title         = "Estado",
      categoryorder = "array",
      categoryarray = top5$City        # força a ordem do arrange()
    ),
    yaxis    = list(title = "Ocorrências"),
    legend   = list(x = 0.85, y = 1)
  )

Orange

Use Orange. Construa um gráfico de linha com a idade no eixo x e a circunferência no eixo y, mostrando simultaneamente as 5 laranjeiras em cores distintas. Exigência extra: ao passar o mouse, o tooltip deve exibir o texto Árvore X — idade: Y dias — circ.: Z mm. Use o Plotly e coloque dentro de uma aba chamada de “Orange”.

R=

library(dplyr)
library(plotly)

cores <- c("#4472C4", "#ED7D31", "#70AD47", "#d7191c", "#9B59B6")

p <- plot_ly()

for (i in 1:5) {
  arvore <- Orange %>% filter(Tree == i)
  
  p <- add_trace(p,
    data       = arvore,
    x          = ~age,
    y          = ~circumference,
    type       = "scatter",
    mode       = "lines+markers",
    name       = paste("Árvore", i),
    line       = list(color = cores[i]),
    marker     = list(color = cores[i]),
    text       = ~paste0("Árvore ", i,
                         " — idade: ", age, " dias",
                         " — circ.: ", circumference, " mm"),
    hoverinfo  = "text"
  )
}

p %>% layout(
  title  = "Crescimento das Laranjeiras",
  xaxis  = list(title = "Idade (dias)"),
  yaxis  = list(title = "Circunferência (mm)"),
  legend = list(title = list(text = "Laranjeira"))
)