Discussion :

[comme de bien entendu]

Bonjour, je cherche à afficher des couleurs correspondants à une catégorie issus d'un dataframe sur une carte en fonction de coordonnnées GPS
J'obtiens un résultat en utilisant colorFactor qui me permet d'obtenir automatiquement mes catégories représentées sur la carte. ( a priori c'est bon avec quelques vérifications sur les points en fonction des coordonnées GPS)
Mais les couleurs que je spécifie manuellement ne correspondent pas à celles qui sont affichées. (mes labels ne correspondent pas non plus avec ceux que je spécifie à la main, les labels mis par défaut qui sont masqués sur la carte sont biens ceux des catégories )
J'aimerais bien que mes couleurs soient celles que j'affiche.
cf carte ci-dessous et le code.


Merci d'avance de vos idées.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
factpal <- colorFactor(palette = c("orange","yellow","green", "blue","red","brown"),levels=levels(LISTE_Tel_Type_ProduitsNvCodeFiltre$`Classe de Service`))
 
# TITRE DE LA CARTE : Montant des transaction effectués rapportés aux adresses de destination
leaflet(LISTE_Tel_Type_ProduitsNvCodeFiltre) %>% addTiles() %>%
  addCircles(
    radius = 1,
    color = ~factpal(`Classe de Service`),
    lng=~longitude,
    lat=~latitude)  %>% addLegend("bottomright", 
                                  factpal,
                                  values=~`Classe de Service`,
                                  labels= c("A","B","C","D","E","F","G","H"),
                                  title= "Type de transaction effectuée",
                                  opacity = 1)

[comme de bien entendu]

Bonjour,
J'ai trouvé il fallait dans ce cas ajouté dans la fonction factpal associé le domain qui contient toutes les classes de services intégrées en faisant un "unique" pour obtenir toutes les classes de service.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

factpal <- colorFactor(palette = c('red', 'blue', 'green', 'brown', 'orange','grey','yellow','purple'),levels=levels(LISTE_Tel_Type_ProduitsNvCodeFiltre$`Classe de Service`) ,domain =unique(LISTE_Tel_Type_ProduitsNvCodeFiltre$`Classe de Service`))