Discussion :

[comme de bien entendu]

Bonjour, en utilisant le Package Leaflet d'affichage de carte, je ne parviens pas à obtenir l'étendue des couleurs présents dans ma légende sur la carte.
Je mets aussi la carte pour que ce soit plus compréhensible.

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
15
16
 
mypal <- colorNumeric(palette = "YlGnBu",
                    domain = RegroupementTVA$Total)
 
leaflet(RegroupementTVA) %>% addTiles() %>%
  addCircles(
    radius = ~Total*3,
    color = mypal,
    lng=~longitude,
    lat=~latitude,
  )  %>% addLegend("bottomright",  pal = mypal, values =~Total, 
          labels= c("less", "","","","","more"),
          title =c("CA progressif         "),
          opacity = 1
 
)

Voici la carte

[statnmap]

Bonjour,

L'objet "mypal" que vous avez créé est une fonction, vous devez l'appeler avec un argument dans "addCircles()".
Vous pouvez le vérifier en faisant par exemple:

Code :

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

1
2
 
mypal(1000)

Je pense que le code suivant devrait mieux fonctionner.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
mypal <- colorNumeric(palette = "YlGnBu",
                    domain = RegroupementTVA$Total)
 
leaflet(RegroupementTVA) %>% addTiles() %>%
  addCircles(
    radius = ~Total*3,
    color = mypal(Total),
    lng=~longitude,
    lat=~latitude,
  )  %>% addLegend("bottomright",  pal = mypal, values =~Total, 
          labels= c("less", "","","","","more"),
          title =c("CA progressif         "),
          opacity = 1
 
)

[comme de bien entendu]

Bonjour, oui il fallait effectivement passé un paramètre, mais ce n'est pas très intuitif, je le saurais pour une prochaine fois.
Le code fonctionne effectivement bien avec le passage en paramètre du vecteur de données.

Code :

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

color = mypal(RegroupementTVA$Total)

Merci bien.