Bonjour à tous,

Je vous remercie d'avance pour l'aide et le temps accordés à ma requête.
Je vous explique :

Je souhaiterais créer une carte interactive de la Nouvelle Calédonie avec sur la carte soit :
- des contours intercommunales
- la population des communes lorsque l'on passe la souris dessus
- des points de différentes tailles en fonction du volume des clients d'un magasin.
Comme ceci par exemple : https://rcarto.github.io/carto_avec_r/chapitre3.html (dernière carte de la page).
Ou bien :
- Obtenir une carte avec les contours intercommunales et le volume des clients d'un magasin en dégradé de couleurs.

Voici ce que j'ai fait :
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
17
18
19
20
21
22
23
24
25
26
27
villes_NC <- data.frame(Ville = c("Belep", "Boulouparis", "Bourail", "Canala","Dumbéa", "Farino", "Hienghène", "Houaïlou","Ile des pins", "Kaala-Gomen", "Koné", "Kouaoua","Koumac","La Foa","Lifou","Maré","Mouindou","Mont-Dore","Nouméa","Ouégoa","Ouvéa","Païta","Poindimié","Ponerihoue","Pouébo","Pouembout","Poum","Poya","Sarraméa","Thio","Touho","Voh","Yaté"),
                        Latitude = c(-19.75,-21.6698672,-21.5,-21.5203,-22.15,-21.6403,-20.688,-21.2789,-22.5518,-20.67,-21.059,-21.3946,-20.5621,-21.7115,-21.0385,-21.5367,-21.6979,-22.2629,-22.2758,-20.3506,-20.6468,-22.1337,-20.9392,-21.0772,-20.3975,-21.1149,-20.235,-21.3474,-21.6412,-21.6068,-20.7915,-20.9593,-22.1667),
                        Longitude = c(163.6666667,166.0442,165.4986,165.9531,166.45,165.7371,164.9435,165.6534,167.4242,164.4,164.8518,165.8272,164.2619,165.8182,167.2405,167.951,165.6782,166.5691,166.458,164.4326,166.5604,166.3505,165.3441,165.396,164.5689,164.9004,164.0329,165.1575,165.846,166.2146,165.2508,164.688,166.95),
                        Population = c(843,3005,5444,3687,31812,612,2483,4240,1958,2033,7340,1452,4252,3542,9275,5648,709,27155,99926,2360,3374,20616,4868,2370,2452,2591,1463,3036,584,2643,2087,3160,1747),
                        Clients = c(22,1142,2538, 503, 10257, 252,211,688,56,402,2314,327,1597,1680,387,254,287,8777,37829,277,139,8063,1250,334,187,831,184,661,158,216,610,394,734)
)
 
m <- leaflet(villes_NC) %>% addTiles() %>%
  addCircles(lng = ~Longitude, lat = ~Latitude, weight = 1,
             radius = ~sqrt(Clients) * 50, popup = ~paste(Ville, ":", Clients),
             color = "#a500a5", fillOpacity = 0.5)
m
couleurs <- colorNumeric("BrBG", villes_NC$Clients, n = 5)
 
m <- leaflet(villes_NC) %>% addTiles() %>%
  addCircles(lng = ~Longitude, lat = ~Latitude, weight = 1,
             radius = ~sqrt(Clients) * 50,
             popup = ~paste(Ville, ":", Clients),
             color = ~couleurs(Clients), fillOpacity = 0.9)
m
m <- leaflet(villes_NC) %>% addTiles() %>%
  addCircles(lng = ~Longitude, lat = ~Latitude, weight = 1,
             radius = ~sqrt(Clients) * 50,
             popup = ~paste(Ville, ":", Clients),
             color = ~couleurs(Clients), fillOpacity = 0.9) %>%
  addLegend(pal = couleurs, values = ~Clients, opacity = 0.9)
m
J'obtiens une carte de la Nouvelle Calédonie avec des points en fonction du volume de clients d'un magasin par ville.
Or, j'aimerais rajouter des "frontières intercommunales" et ajouter un dégrader de couleur en fonction du volume.

Je n'ai malheureusement pas trouvé de fichier shp pour la Nouvelle Calédonie...est-ce impossible ?

Je vous remercie beaucoup pour votre aide !!