Смена локатора в листке функций

Question

Я создаю карту с листовкой.

Однако я хочу, чтобы «локатор» имел разные цвета или формы в зависимости от переменной. Как я мог это сделать?

Вот код.

melia$popup <- paste("<br>Hotel: </b>", Melia$Hotel, 
                      "<br>", "<b>Estrellas: </b>", Melia$Estrellas,
                      "<br>", "<b>Rating: </b>", Melia$Puntuación,
                      "<br>", "<b>Estilo: </b>", Melia$Estilo,
                      "<br>", "<b>Localización: </b>", Melia$Dirección)

  leaflet(Melia, width = "100%") %>% addTiles() %>%
    addTiles(group = "OSM (default)") %>%
    addProviderTiles(provider = "Esri.WorldStreetMap",group = "World StreetMap") %>%
    addProviderTiles(provider = "Esri.WorldImagery",group = "World Imagery") %>%
    # addProviderTiles(provider = "NASAGIBS.ViirsEarthAtNight2012",group = "Nighttime Imagery") %>%
    addAwesomeMarkers(lng = ~X, lat = ~Y, popup = melia$popup, clusterOptions = markerClusterOptions()) %>%
    addLayersControl(
      baseGroups = c("OSM (default)","World StreetMap", "World Imagery"),
      options = layersControlOptions(collapsed = FALSE)
    )  

Спасибо !!