USArrests
library(plotly)
library(dplyr)
data("USArrests")
dados_top5 <- USArrests %>%
mutate(City = rownames(.)) %>%
arrange(desc(Murder)) %>%
slice(1:5)
dados_top5$City <- factor(dados_top5$City, levels = dados_top5$City)
fig <- plot_ly(dados_top5, x = ~City, y = ~Murder, type = 'bar',
name = 'Murder', marker = list(color = '#1f77b4')) %>%
add_trace(y = ~Rape, name = 'Rape', marker = list(color = '#ff7f0e')) %>%
add_trace(y = ~Assault, name = 'Assault', marker = list(color = '#2ca02c')) %>%
layout(
title = list(text = "5 estados mais violentos (EUA, 1973)", x = 0.5),
xaxis = list(title = "Estado"),
yaxis = list(title = "Ocorrências"),
barmode = 'group',
margin = list(t = 80)
)
fig