USArrests

USArrests

library(plotly)

# Carregar dataset e adicionar coluna City com os nomes dos estados
dados <- USArrests
dados$City <- rownames(USArrests)

# Ordenar de forma decrescente por Murder e pegar os 5 primeiros
dados <- dados[order(dados$Murder, decreasing = TRUE), ]
top5 <- dados[1:5, ]

# Gráfico de barras agrupadas com Plotly
fig <- 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 dos EUA",
    xaxis = list(title = "Estado"),
    yaxis = list(title = "Número de Ocorrências"),
    barmode = "group",
    legend = list(title = list(text = "Tipo de Crime"))
  )

fig