2VA - CPAD 2026.1 - UFRPE

VADeaths

dados <- t(VADeaths)

cores <- c("#E63946", "#457B9D", "#2A9D8F", "#E9C46A")

barplot(
  dados,
  beside    = TRUE,
  col       = cores,
  main      = "Taxa de Mortalidade nos EUA por Faixa Etária e Grupo (VADeaths)",
  xlab      = "Faixa Etária",
  ylab      = "Taxa de Mortalidade (por 1.000 habitantes)",
  ylim      = c(0, max(dados) * 1.25),
  las       = 1,
  cex.names = 0.9
)

legend(
  "topleft",
  legend = rownames(dados),
  fill   = cores,
  title  = "Grupo",
  bty    = "n",
  cex    = 0.95
)

ClassificaçãoDoença

dados <- c("moderado","leve","leve","severo","leve","moderado","moderado",
           "moderado","leve","leve","severo","leve","moderado","moderado",
           "leve","severo","moderado","moderado","moderado","leve")

freq  <- table(dados)
pct   <- round(prop.table(freq) * 100, 1)
nomes <- names(freq)

cores <- c("leve" = "#2A9D8F", "moderado" = "#E9C46A", "severo" = "#E63946")
cores_ord <- cores[nomes]

pie(
  freq,
  labels = paste0(pct, "%"),
  col    = cores_ord,
  main   = "Classificação de Doença em 20 Pacientes",
  cex    = 1.1
)

legend(
  "bottomright",
  legend = paste0(nomes, " (", pct, "%)"),
  fill   = cores_ord,
  title  = "Estágio",
  bty    = "n",
  cex    = 0.95
)

USArrests

df      <- USArrests
df$City <- rownames(df)
top5    <- head(df[order(df$Murder, decreasing = TRUE), ], 5)

plot_ly(top5, x = ~City, y = ~Murder, type = "bar",
        name = "Murder", marker = list(color = "#E63946")) %>%
  add_trace(y = ~Rape,    name = "Rape",
            marker = list(color = "#457B9D")) %>%
  add_trace(y = ~Assault, name = "Assault",
            marker = list(color = "#2A9D8F")) %>%
  layout(
    title   = "Top 5 Estados Mais Violentos (USArrests)",
    barmode = "group",
    xaxis   = list(title = "Estado"),
    yaxis   = list(title = "Ocorrências por 100.000 habitantes"),
    legend  = list(title = list(text = "Tipo de Crime"))
  )

Orange

df_orange      <- Orange
df_orange$Tree <- paste0("Árvore ", df_orange$Tree)

cores5  <- c("#E63946", "#457B9D", "#2A9D8F", "#E9C46A", "#6A4C93")
arvores <- unique(df_orange$Tree)

p <- plot_ly()

for (i in seq_along(arvores)) {
  sub <- df_orange[df_orange$Tree == arvores[i], ]
  p <- add_trace(
    p,
    data      = sub,
    x         = ~age,
    y         = ~circumference,
    type      = "scatter",
    mode      = "lines+markers",
    name      = arvores[i],
    line      = list(color = cores5[i]),
    marker    = list(color = cores5[i]),
    text      = ~paste0(Tree, " — idade: ", age,
                        " dias — circ.: ", circumference, " mm"),
    hoverinfo = "text"
  )
}

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