USArrests - Gráfico de Barras Agrupadas

USArrests

# Carregar bibliotecas e dataset
library(plotly)
library(dplyr)
data("USArrests")

# Adicionando coluna City com os nomes dos estados (rownames)
USArrests$City <- rownames(USArrests)

# Ordenando de forma decrescente por Murder e selecionar os 5 mais violentos
top5 <- USArrests %>%
  arrange(desc(Murder)) %>%
  slice(1:5)

# Visualizando os dados
print(top5)

##                Murder Assault UrbanPop Rape           City
## Georgia          17.4     211       60 25.8        Georgia
## Mississippi      16.1     259       44 17.1    Mississippi
## Florida          15.4     335       80 31.9        Florida
## Louisiana        15.4     249       66 22.2      Louisiana
## South Carolina   14.4     279       48 22.5 South Carolina

# Gráfico de barras agrupadas com Plotly
plot_ly(
  data = top5,
  x    = ~City,
  y    = ~Murder,
  type = "bar",
  name = "Murder",
  marker = list(color = "#0000FF")
) %>%
  add_trace(
    y    = ~Rape,
    name = "Rape",
    marker = list(color = "#FFA500")
  ) %>%
  add_trace(
    y    = ~Assault,
    name = "Assault",
    marker = list(color = "#008000")
  ) %>%
  layout(
    title = list(
      text = "<b>Top 5 Estados Mais Violentos dos EUA (1973)</b>",
      font = list(size = 18)
    ),
    xaxis = list(
      title = "Estados",
      tickfont = list(size = 12)
    ),
    yaxis = list(
      title = "Número de Ocorrências (por 100.000 habitantes)",
      tickfont = list(size = 12)
    ),
    barmode = "group",
    legend = list(
      title = list(text = "<b>Tipo de Crime</b>"),
      orientation = "v",
      x = 0.85,
      y = 0.95
    ),
    plot_bgcolor  = "#f9f9f9",
    paper_bgcolor = "#ffffff",
    bargap = 0.2
  )