2VA - Questão 3: USArrests

USArrests

library(dplyr)
library(plotly)

df <- USArrests %>%
  mutate(City = rownames(USArrests)) %>%
  arrange(desc(Murder)) %>%
  slice(1:5)

df

##                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

fig <- plot_ly(df, x = ~City, y = ~Murder,  type = "bar", name = "Murder",
               marker = list(color = "tomato")) %>%
  add_trace(y = ~Rape,   name = "Rape",
            marker = list(color = "steelblue")) %>%
  add_trace(y = ~Assault, name = "Assault",
            marker = list(color = "mediumseagreen")) %>%
  layout(
    barmode = "group",
    title   = "Top 5 Estados Mais Violentos (USArrests)",
    xaxis   = list(title = "Estado"),
    yaxis   = list(title = "Número de Ocorrências"),
    legend  = list(title = list(text = "Tipo de Crime"))
  )

fig