USArrests

Objetivo

Identificar os cinco estados com maiores índices de homicídio (Murder) no conjunto de dados USArrests e comparar os indicadores de Murder, Assault e Rape por meio de um gráfico de barras agrupadas utilizando Plotly.

Preparação dos Dados

library(dplyr)

dados <- USArrests

# Adiciona os nomes dos estados
dados$City <- rownames(dados)

# Ordena por Murder (decrescente)
top5 <- dados %>%
  arrange(desc(Murder)) %>%
  slice(1:5)

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

Visualização

library(plotly)

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 = "Top 5 Estados com Maiores Índices de Criminalidade",
    xaxis = list(title = "Estados"),
    yaxis = list(title = "Número de Ocorrências"),
    legend = list(title = list(text = "Indicadores"))
  )

Resumo

O gráfico apresenta os cinco estados com maiores taxas de homicídio (Murder), comparando simultaneamente os indicadores de Assault e Rape por meio de barras agrupadas.