Legend order is incorrect for factors about mapdeck HOT 2 CLOSED

my_colors = bind_cols(rate_cat = factor(levels(df$rate_cat)), colors = c("#fecc5c","#fd8d3c","#f03b20","#bd0026","#51087e"))

df2 <- left_join(df, my_colors)

l1 <- legend_element(
  variables = levels(df$rate_cat),
  colours = c("#fecc5c","#fd8d3c","#f03b20","#bd0026","#51087e"),
  colour_type = "fill",
  variable_type = "category",
  title = "Eviction rate"
  )

ml <- mapdeck_legend(l1)

mapdeck(token = key, style = mapdeck_style("light")) %>%
  add_polygon(
    data = df2,
    fill_colour = "colors",
    # fill_colour = "rate_cat",
    tooltip = "V1",
    fill_opacity = .5,
    legend = ml
    )

library(tigris)
library(mapdeck)
library(dplyr)

df <-
  counties(state = "OR") %>%
  bind_cols(
    as.data.frame(matrix(runif(n=36, min=0, max=.25), nrow=36))
    ) %>%
   mutate(rate_cat =
    factor(
      case_when(
          V1 == 0 ~ "0%",
          V1 > 0 & V1 < .021 ~ "0.1% - 2%",
          V1 >= .021 & V1 < .061 ~ "2.1% - 6%",
          V1 >= .061 & V1 < .121 ~ "6.1% - 12%",
          V1 >= .121 ~ paste0("12.1% - ", scales::percent(max(V1, na.rm = TRUE), accuracy = .1)
          )
      ),
    levels = c("0%", "0.1% - 2%", "2.1% - 6%", "6.1% - 12%", paste0("12.1% - ", scales::percent(max(V1, na.rm = TRUE), accuracy = .1))
    )
   )
  )

my_colors <-
  bind_cols(
    rate_cat = factor(levels(df$rate_cat)),
    colors = c("#fecc5c50","#fd8d3c50","#f03b2050","#bd002650","#51087e50"),
    opacity = rep(.5, 5)
    )

df2 <- left_join(df, my_colors)

l1 <- legend_element(
  variables = levels(df$rate_cat),
  colours = c("#fecc5c50","#fd8d3c50","#f03b2050","#bd002650","#51087e50"),
  colour_type = "fill",
  variable_type = "category",
  title = "Eviction rate"
  )

ml <- mapdeck_legend(l1)

mapdeck(token = key, style = mapdeck_style("light")) %>%
  add_polygon(
    data = df2,
    fill_colour = "colors",
    tooltip = "V1",
    legend = ml
    )