R Colorcode для сюжета не правильно отображает цвет

Question

Я закодировал цвет в своей графической гистограмме, но код, кажется, не использует цвет. Если я запускаю код, он просто дает мне синий и оранжевый цвета по умолчанию. Буду признателен за вашу помощь

xbins <- list(start=4.25, end=5.60, size=0.1) plotbefore <-

plot_ly(alpha = 0.6) %>%   add_histogram(
      x = st_wage_before_nj, 
      xbins = xbins,
      histnorm = "percent", 
      name = "Wage Before in NJ",
      marker = list(color = "teal",
      line=list(color="darkgray", width=2))) %>%

add_histogram(
      x = st_wage_before_pa, 
      xbins = xbins,
      histnorm = "percent",
      name = "Wage Before in PA") %>%

layout(
      barmode = "group",
      title = "February 1992 before Minimumwage",
      xaxis = list(tickvals=seq(4.25, 5.55, 0.1),
      title = "Wage in $/h"),
      yaxis = list(range = c(0, 50)),
      margin = list(b = 100, 
                    l = 80, 
                    r = 80, 
                    t = 80, 
                    pad = 0, 
                    autoexpand = TRUE)

Как мне получить свой код для отображения цветов intend =? (Нэмли Тил и линия темно-серого)?