#Gerando o gráfico. usa <- USArrests usa\(City <- rownames(usa)
usa <- usa[order(usa\)Murder, decreasing = TRUE), ]
top5 <- head(usa, 5) top5\(City <-
factor(top5\)City, levels = top5$City)
plot_ly(top5, x = ~City, y = ~Murder, type = “bar”, name = “Murder”)
%>% add_trace(y = ~Rape, name = “Rape”) %>% add_trace(y =
~Assault, name = “Assault”) %>% layout(title = “5 estados mais
violentos (1973)”, barmode = “group”, xaxis = list(title = “Estado”),
yaxis = list(title = “Ocorrências por 100 mil hab.”))