Как я могу построить разные цвета Quuantile с буклетом в R для разных групп

Question

Я пытаюсь построить карту Polyline, используя Leaflet, которая включает квантили непрерывной переменной для разных лет. Следующий код создает карту, которая остается неизменной даже после того, как я деактивирую годовой LayersControl в левом нижнем углу.

Как я могу построить квантили переменной hl в год и использовать LayersControl для контроля того, какой год отображается на карте?

Flow_pal <- colorQuantile("YlOrBr", domain = total_flows$hl, n=5)

leaflet() %>%
  addTiles() %>%
  addPolylines(
    data = total_flows,
    weight = 1, # Notice the different value for better visual effect when zoom in
    color = ~Flow_pal(hl),
    opacity = .8, # as above
    group = total_flows$year) %>%
  addLayersControl(
    position = "bottomleft",
    overlayGroups = unique(total_flows$year),
    options = layersControlOptions(collapsed = FALSE)) %>%
  addLegend("topright",
          pal = Flow_pal,
          values = total_flows$hl,
          title = "Hyperlinks")