Création carte Nouvelle Calédonie

[Elodie Perron]

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 fais :

Code : Tout sélectionner

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 !!

[Serge Rapenne]

Bonjour,

tu devrais trouver ton bonheur là : https://georep.nc/

Serge

[Elodie Perron]

Super merci beaucoup !!
Effectivement j'ai trouvé le dossier shape.

J'ai maintenant deux fichiers :
- Fichier shape (contenant les long et lat des communes)
- Fichier avec le volume des clients d'un magasin par commune

Comment je peux faire correspondre ces deux fichiers ?

[Elodie Perron]

J'ai parlé un petit peu trop vite, j'ai finalement réussi à avoir ce que je voulais !
Merci pour votre réponse,
Elodie