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