3°

USArrests

# Carregar pacote Plotly (rode install.packages("plotly") no Console se der erro de pacote não encontrado)
library(plotly)

# 1. Preparando os dados
dados <- USArrests
dados$City <- rownames(dados) # Adiciona coluna City com os nomes das linhas
dados <- dados[order(dados$Murder, decreasing = TRUE), ] # Ordena decrescente por Murder
top5 <- head(dados, 5) # Seleciona os 5 primeiros

# Travar a ordem dos estados para o gráfico não colocar em ordem alfabética
top5$City <- factor(top5$City, levels = top5$City)

# 2. Construindo o gráfico agrupado com Plotly
plot_ly(data = top5, x = ~City) %>%
  add_trace(y = ~Murder, name = 'Murder', type = 'bar') %>%
  add_trace(y = ~Rape, name = 'Rape', type = 'bar') %>%
  add_trace(y = ~Assault, name = 'Assault', type = 'bar') %>%
  layout(title = '5 estados mais violentos (EUA, 1973)',
         xaxis = list(title = 'Estado'),
         yaxis = list(title = 'Ocorrências'),
         barmode = 'group')