AV2 - CPAD

Questões

Questão 1

cores_vad <- c("steelblue", "tomato", "gold", "darkgreen")

layout(
  matrix(c(1, 2), nrow = 2),
  heights = c(5, 1)
)

par(mar = c(5, 4, 4, 2))

barplot(
  t(VADeaths),
  beside = TRUE,
  col = cores_vad,
  main = "VADeaths - Taxas de Mortalidade",
  xlab = "Faixa etária",
  ylab = "Taxa de Mortalidade"
)

par(mar = c(0, 0, 0, 0))

plot.new()

legend(
  "center",
  legend = rownames(t(VADeaths)),
  fill = cores_vad,
  horiz = TRUE,
  bty = "n",
  title = "Grupo"
)

Questão 2

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

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

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

rotulos <- paste0(names(freq), " - ", pct, "%")

cores_doenca <- c("lightgreen", "gold", "tomato")

pie(
  freq,
  labels = rotulos,
  col = cores_doenca,
  main = "Classificação da Doença"
)

legend(
  "topright",
  legend = names(freq),
  fill = cores_doenca,
  title = "Estágio",
  bty = "n"
)

Questão 3

dados_us <- as.data.frame(USArrests)

dados_us$City <- rownames(dados_us)

top5 <- dados_us %>%
  arrange(desc(Murder), desc(Assault), desc(Rape)) %>%
  slice(1:5)

top5$City <- factor(top5$City, levels = top5$City)

plot_ly(
  top5,
  x = ~City,
  y = ~Murder,
  type = "bar",
  name = "Murder",
  marker = list(color = "#636EFA")
) %>%
  add_trace(
    y = ~Rape,
    name = "Rape",
    marker = list(color = "#EF553B")
  ) %>%
  add_trace(
    y = ~Assault,
    name = "Assault",
    marker = list(color = "#00CC96")
  ) %>%
  layout(
    barmode = "group",
    title = list(text = "5 estados mais violentos (EUA, 1973)", x = 0.5),
    xaxis = list(title = "Estado"),
    yaxis = list(title = "Ocorrências", range = c(0, 350))
  )

Questão 4

dados_orange <- as.data.frame(Orange)

dados_orange$Tree <- as.character(dados_orange$Tree)

dados_orange$tooltip <- paste0(
  "Árvore ", dados_orange$Tree,
  " — idade: ", dados_orange$age,
  " dias — circ.: ",
  dados_orange$circumference,
  " mm"
)

plot_ly(
  dados_orange,
  x = ~age,
  y = ~circumference,
  color = ~Tree,
  colors = c("#1b9e77", "#d95f02", "#7570b3", "#e7298a", "#66a61e"),
  type = "scatter",
  mode = "lines+markers",
  text = ~tooltip,
  hovertemplate = "%{text}<extra></extra>"
) %>%
  layout(
    title = list(text = "Orange - Crescimento das Laranjeiras", x = 0.5),
    xaxis = list(title = "Idade (dias)"),
    yaxis = list(title = "Circunferência (mm)")
  )