library(plotly)

## Loading required package: ggplot2

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

data("USArrests")

USArrests$City <- rownames(USArrests)


dados_ordenados <- USArrests[order(-USArrests$Murder), ]


top5_estados <- head(dados_ordenados, 5)

fig <- plot_ly(top5_estados, 
               x = ~City, 
               y = ~Murder, 
               type = 'bar', 
               name = 'Murder', 
               marker = list(color = '#2b5c8f')) %>%
  add_trace(y = ~Rape, 
            name = 'Rape', 
            marker = list(color = '#ffcc99')) %>%
  add_trace(y = ~Assault, 
            name = 'Assault', 
            marker = list(color = '#228b22')) %>%
  layout(title = "5 estados mais violentos (EUA, 1973)",
         xaxis = list(title = "Estado", categoryorder = "array", categoryarray = top5_estados$City),
         yaxis = list(title = "Ocorrências"),
         barmode = 'group') 

# 7. Renderizar a figura
fig