2VA - Parte R Markdown

Análise

VADeaths

dados <- VADeaths

# Cada coluna é uma categoria (Rural Male, Urban Male, etc.)
# Cada linha é uma faixa etária — será a cor das barras
cores <- c("steelblue", "tomato", "gold", "forestgreen", "mediumpurple")

barplot(
  dados,
  beside = TRUE,
  col   = cores,
  main  = "Taxa de Mortalidade por 1000 habitantes - VADeaths",
  xlab  = "Grupo Populacional",
  ylab  = "Taxa de Mortalidade (por 1000)",
  legend.text = rownames(dados),
  args.legend = list(
    title = "Faixa Etária",
    x     = "topright",
    bty   = "n"
  )
)

ClassificaçãoDoença

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

freq <- table(doenca)

# Porcentagem de cada estágio
pct <- round(freq / sum(freq) * 100, 1)

# Rótulos exibidos nas fatias
rotulos <- paste0(names(freq), "\n", pct, "%")

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

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

legend(
  "topright",
  legend = names(freq),
  fill   = cores_pizza,
  title  = "Estágios",
  bty    = "n"
)

USArrests

library(plotly)

dados <- USArrests
dados$City <- rownames(dados)

# Top 5 estados por número de assassinatos
top5 <- dados[order(-dados$Murder), ][1:5, ]

# Ordem exata conforme figura modelo
ordem <- c("Georgia", "Mississippi", "Florida", "Louisiana", "South Carolina")
top5$City <- factor(top5$City, levels = ordem)
top5 <- top5[order(top5$City), ]

plot_ly(top5, x = ~City) |>
  add_bars(y = ~Murder,  name = "Murder",  marker = list(color = "#4472C4")) |>
  add_bars(y = ~Rape,    name = "Rape",    marker = list(color = "#ED7D31")) |>
  add_bars(y = ~Assault, name = "Assault", marker = list(color = "#70AD47")) |>
  layout(
    barmode = "group",
    title   = "5 estados mais violentes (EUA, 1973)",
    xaxis   = list(title = "Estado"),
    yaxis   = list(
      title    = "Ocorrências",
      tickmode = "array",
      tickvals = c(0, 100, 200, 300),
      range    = c(0, 360)
    ),
    legend = list(x = 1.02, y = 1)
  )

Orange

library(plotly)

dados <- Orange
dados$Tree <- as.character(dados$Tree)

cores_arvores <- c("#1f77b4", "#ff7f0e", "#2ca02c", "#d62728", "#9467bd")

grafico <- plot_ly()

for (i in seq_along(unique(dados$Tree))) {
  arvore <- unique(dados$Tree)[i]
  sub    <- subset(dados, Tree == arvore)

  grafico <- grafico |>
    add_trace(
      data          = sub,
      x             = ~age,
      y             = ~circumference,
      type          = "scatter",
      mode          = "lines+markers",
      name          = paste("Árvore", arvore),
      line          = list(color = cores_arvores[i]),
      marker        = list(color = cores_arvores[i]),
      text          = ~paste0(
        "Árvore ", Tree,
        " \u2014 idade: ", age, " dias",
        " \u2014 circ.: ", circumference, " mm"
      ),
      hovertemplate = "%{text}<extra></extra>"
    )
}

grafico |>
  layout(
    title  = "Crescimento das Laranjeiras",
    xaxis  = list(title = "Idade (dias)"),
    yaxis  = list(title = "Circunferência (mm)")
  )