2va questoes CPAD

VADeaths

data(VADeaths)

va_t <- t(VADeaths)

cores <- c("#08306B", "#2171B5", "#4292C6", "#9ECAE1", "#DEEBF7")

barplot(
  va_t,
  beside      = TRUE,
  col         = cores,
  main        = "Taxa de Mortalidade nos Estados do Sul noss EUA(1940)",
  xlab        = "Grupo",
  ylab        = "Taxa de Mortalidade (a cada 1000 habitantes.)",
  ylim        = c(0, max(va_t) * 1.3),
  legend.text = rownames(va_t),
  args.legend = list(
    title = "Faixa Etaria",
    x     = "topright",
    bty   = "n",
    fill  = cores
  ),
  border = "white",
  las    = 1
)

ClassificacaoDoenca

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

freq <- table(factor(dados, levels = c("leve","moderado","severo")))

pct    <- round(100 * freq / sum(freq), 1)
rotulos <- paste0(pct, "%")

# Verde para leve, amarelo para moderado, vermelho para severo
cores_pizza <- c(
  leve     = "#5AAE61",
  moderado = "#FDB863",
  severo   = "#D73027"
)

pie(
  freq,
  labels  = rotulos,
  col     = cores_pizza,
  main    = "Classificacao de Estagio da Doenca (n = 20)",
  border  = "white"
)

legend(
  "bottomright",
  legend = paste(names(freq), paste0("(n=", as.integer(freq), ")")),
  fill   = cores_pizza,
  title  = "Estagio",
  bty    = "n"
)

USArrests

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

cor_murder  <- "#4472C4"
cor_rape    <- "#ED7D31"
cor_assault <- "#70AD47"

plot_ly(df_top5, x = ~City, y = ~Murder, type = "bar",
        name = "assassinato", marker = list(color = cor_murder)) |>
  add_trace(y = ~Rape,    name = "estupro",    marker = list(color = cor_rape)) |>
  add_trace(y = ~Assault, name = "agressão/assedio", marker = list(color = cor_assault)) |>
  layout(
    barmode       = "group",
    title         = list(text = "5 estados mais violentos (EUA, 1973)", x = 0.5),
    xaxis         = list(title = "Estado"),
    yaxis         = list(title = "Ocorrencias"),
    legend        = list(orientation = "v"),
    plot_bgcolor  = "white",
    paper_bgcolor = "white"
  )

Orange

cores_arvore <- c(
  "1" = "#E41A1C",
  "2" = "#FF7F00",
  "3" = "#4DAF4A",
  "4" = "#377EB8",
  "5" = "#984EA3"
)

fig <- plot_ly()

for (arvore in levels(Orange$Tree)) {
  sub <- Orange[Orange$Tree == arvore, ]
  fig <- add_trace(
    fig,
    data      = sub,
    x         = ~age,
    y         = ~circumference,
    type      = "scatter",
    mode      = "lines+markers",
    name      = paste("Arvore", arvore),
    line      = list(color = cores_arvore[arvore]),
    marker    = list(color = cores_arvore[arvore]),
    text      = ~paste0("Arvore ", arvore,
                        " - idade: ", age, " dias",
                        " - circ.: ", circumference, " mm"),
    hoverinfo = "text"
  )
}

fig |> layout(
  title         = list(text = "Crescimento das arvore de laranmja", x = 0.5),
  xaxis         = list(title = "Idade (dias)"),
  yaxis         = list(title = "Circunferencia (mm)"),
  legend        = list(title = list(text = "Laranjeira")),
  plot_bgcolor  = "white",
  paper_bgcolor = "white"
)