2VA

data(VADeaths)
dados <- t(VADeaths)

barplot(
  dados,
  beside = TRUE,
  col = c("blue", "red", "green", "yellow"),
  main = "Taxa de mortalidade da Vírginia",
  xlab = "Faixa etária",
  ylab = "Taxa de mortalidade a cada 1000",
  legend.text = rownames(dados),
  args.legend = list(x = "topleft", bty = "n", cex = 0.7),
  ylim = c(0, 80)
)

orange <- as.data.frame(Orange)
orange$Tree <- factor(as.character(orange$Tree), levels = as.character(1:5))
orange <- orange[order(orange$Tree, orange$age), ]

plot_ly(
  orange,
  x = ~age, y = ~circumference,
  color = ~Tree, colors = "Set1",
  type = "scatter", mode = "lines+markers",
  customdata = ~Tree,
  hovertemplate = "Árvore %{customdata} — %{x} dias — %{y} mm<extra></extra>"
) %>%
  layout(
    title  = "Crescimento das 5 laranjeiras",
    xaxis  = list(title = "Dias"),
    yaxis  = list(title = "Circunferência (mm)"),
    legend = list(title = list(text = "árvore"))
  )

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

dados <- dados[order(dados$Murder, decreasing = TRUE), ]
top5  <- head(dados, 5)
top5$City <- factor(top5$City, levels = top5$City)

plot_ly(top5, x = ~City, y = ~Murder, type = "bar", name = "Murder") %>%
  add_trace(y = ~Rape,    name = "Rape") %>%
  add_trace(y = ~Assault, name = "Assault") %>%
  layout(
    barmode = "group",
    title   = "Os 5 estados mais violentos dos usa em 1973",
    xaxis   = list(title = "Estado"),
    yaxis   = list(title = "Ocorrências")
  )