Chargement des données :
tm_basemap(c(leaflet::providers$Esri.WorldTopoMap,
leaflet::providers$OpenStreetMap,
leaflet::providers$GeoportailFrance.orthos)) +
tm_shape(st_make_valid(all_isochrones),
name = "Isochrones 10min à pied") + tm_borders() +
tm_shape(data_car) + tm_dots(col = "data_rennes_classes",
palette = couleurs,
title = "Types d'emplacement",
legend.show = TRUE,
size = 0.9,
labels = c("Très peu favorable", "Peu favorable", "Moyennement favorable", "Favorable", "Très favorable")
) +
tm_shape(data_bike) + tm_dots(col = "data_rennes_classes",
palette = couleurs, title = "Types d'emplacement",
legend.show = TRUE,
size = 0.5,
labels = c("Très peu favorable", "Peu favorable", "Moyennement favorable", "Favorable", "Très favorable")) +
tm_shape(data_foot) + tm_dots(col = "data_rennes_classes",
palette = couleurs, title = "Types d'emplacement",
legend.show = TRUE,
size = 0.1,
labels = c("Très peu favorable", "Peu favorable", "Moyennement favorable", "Favorable", "Très favorable")) +
tm_shape(data_foot_c4) + tm_dots(size = 0.3, "#d95f0eff") +
tm_shape(data_foot_c5) + tm_dots(size = 0.3, "#993404ff") +
tm_shape(gares) + tm_dots() +
tm_text("Intitulé.gare", size = 1, fontface = 2,
just = "top", ymod = 0.5) +
tm_scale_bar()glimpse(raw_data_foot)## Rows: 26
## Columns: 23
## $ pk <chr> "0", "1", "2", "3", "4", "5", "6", "7", …
## $ ID_number <int> 262344, 262354, 262364, 262374, 262384, …
## $ sum_population <dbl> 68294, 68294, 80907, 80907, 16433, 8500,…
## $ sum_lits <dbl> 2493, 2493, 3044, 3044, 773, 644, 222, 2…
## $ longueur_route <dbl> 6910.2838, 18707.9187, 19856.6314, 15392…
## $ longueur_pistes_cyclables <dbl> 2015.9779, 3925.9587, 4180.0888, 2401.77…
## $ superficie_vegetation <dbl> 7908.455, 61160.239, 61429.893, 73456.32…
## $ nombre_arrets <dbl> 30, 37, 31, 18, 2, 4, 23, 0, 7, 0, 0, 2,…
## $ nombre_parkings <dbl> 3106, 609, 906, 1785, 243, 657, 478, 0, …
## $ nombre_commerces <dbl> 4, 13, 7, 5, 0, 0, 12, 0, 0, 0, 0, 0, 0,…
## $ nombre_loisirs <dbl> 5, 15, 5, 3, 0, 0, 6, 0, 0, 0, 0, 0, 0, …
## $ nombre_restauration <dbl> 15, 29, 13, 12, 1, 0, 24, 0, 0, 0, 0, 0,…
## $ nombre_sports <dbl> 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_ronds_points <dbl> 2, 0, 1, 2, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_eleves <dbl> 0, 2441, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ superficie_iso <dbl> 225553.72, 799683.08, 907024.07, 654050.…
## $ ZA <dbl> 217645.26, 738522.84, 845594.18, 580593.…
## $ passage_niveau <dbl> 0, 2, 2, 3, 2, 2, 1, 1, 1, 1, 1, 1, 2, 3…
## $ sum_population_carreau_decoup <dbl> 831.949489, 5246.438482, 3659.541739, 23…
## $ nombre_arrets_v2 <dbl> 6, 18, 12, 7, 1, 2, 8, 0, 2, 0, 0, 1, 0,…
## $ nombre_sante <dbl> 13, 22, 11, 5, 1, 0, 18, 0, 0, 0, 0, 0, …
## $ pente_moyenne <dbl> 2.506534, 1.847447, 1.788867, 2.150149, …
## $ geom <POINT [m]> POINT (1023687 6783991), POINT (10…glimpse(data_foot)## Rows: 40
## Columns: 13
## $ ID_number <dbl> 262344, 262354, 262364, 262374, 262384, …
## $ sum_population_carreau_decoup <dbl> 0.1396639681, 0.8807486832, 0.6143475386…
## $ nombre_loisirs <dbl> 0.20833333, 0.62500000, 0.20833333, 0.12…
## $ nombre_commerces <dbl> 0.04705882, 0.15294118, 0.08235294, 0.05…
## $ nombre_restauration <dbl> 0.15, 0.29, 0.13, 0.12, 0.01, 0.00, 0.24…
## $ nombre_arrets <dbl> 0.60, 0.74, 0.62, 0.36, 0.04, 0.08, 0.46…
## $ longueur_route <dbl> 0.29541942, 0.85997324, 0.91494275, 0.70…
## $ ZA <dbl> 0.196921407, 0.863067361, 1.000000000, 0…
## $ passage_niveau <dbl> 0.0, 0.4, 0.4, 0.6, 0.4, 0.4, 0.2, 0.2, …
## $ pente_moyenne <dbl> 0.10204204, 0.05058167, 0.04600787, 0.07…
## $ total_sum_allegee <dbl> 1.535354918, 4.761148790, 3.923968689, 2…
## $ geom <POINT [m]> POINT (1023687 6783991), POINT (10…
## $ data_rennes_classes <int> 2, 4, 4, 3, 2, 1, 3, 1, 1, 1, 1, 1, 2, 2…glimpse(raw_data_bike)## Rows: 26
## Columns: 23
## $ pk <chr> "0", "1", "2", "3", "4", "5", "6", "7", …
## $ ID_number <int> 262344, 262354, 262364, 262374, 262384, …
## $ sum_population <dbl> 68294, 80907, 84727, 84727, 84727, 16971…
## $ sum_lits <dbl> 2493, 3044, 3266, 3266, 3266, 783, 844, …
## $ longueur_route <dbl> 113038.21, 175744.07, 130376.89, 110384.…
## $ longueur_pistes_cyclables <dbl> 26571.196, 36599.245, 23861.543, 20980.8…
## $ superficie_vegetation <dbl> 575043.8, 1272148.7, 1723560.5, 1999330.…
## $ nombre_arrets <int> 179, 225, 120, 105, 57, 63, 61, 38, 15, …
## $ nombre_parkings <dbl> 10922, 13804, 7804, 5779, 3273, 1650, 20…
## $ nombre_commerces <int> 178, 262, 49, 34, 20, 21, 25, 14, 1, 1, …
## $ nombre_loisirs <dbl> 87, 115, 43, 31, 13, 15, 21, 13, 3, 0, 0…
## $ nombre_restauration <dbl> 254, 347, 93, 49, 27, 30, 36, 27, 2, 0, …
## $ nombre_sports <dbl> 6, 8, 3, 3, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_ronds_points <dbl> 19, 21, 18, 15, 11, 7, 8, 3, 1, 1, 0, 0,…
## $ nombre_eleves <dbl> 7084, 8087, 4209, 3977, 834, 1366, 1366,…
## $ superficie_iso <dbl> 5225125, 8460579, 7150765, 6673248, 5457…
## $ ZA <dbl> 4650081, 7188430, 5427205, 4673917, 3359…
## $ passage_niveau <int> 2, 5, 7, 7, 5, 6, 6, 6, 5, 4, 3, 5, 5, 5…
## $ pente_moyenne <dbl> 2.066486, 1.907604, 1.728852, 2.135410, …
## $ sum_population_carreau_decoup <dbl> 27907.0153, 40423.1763, 25921.5888, 1801…
## $ nombre_arrets_v2 <int> 73, 95, 60, 49, 23, 25, 24, 15, 6, 4, 5,…
## $ nombre_sante <dbl> 251, 272, 139, 37, 13, 30, 37, 21, 0, 0,…
## $ geom <POINT [m]> POINT (1023687 6783991), POINT (10…glimpse(data_bike)## Rows: 40
## Columns: 15
## $ ID_number <dbl> 262344, 262354, 262364, 262374, 262384, …
## $ sum_population_carreau_decoup <dbl> 0.67692874, 0.98256578, 0.62844584, 0.43…
## $ nombre_eleves <dbl> 0.87597379, 1.00000000, 0.52046494, 0.49…
## $ nombre_loisirs <dbl> 0.65909091, 0.87121212, 0.32575758, 0.23…
## $ nombre_sante <dbl> 0.784375, 0.850000, 0.434375, 0.115625, …
## $ nombre_commerces <dbl> 0.567307692, 0.836538462, 0.153846154, 0…
## $ nombre_restauration <dbl> 0.593457944, 0.810747664, 0.217289720, 0…
## $ nombre_sports <dbl> 0.6, 0.8, 0.3, 0.3, 0.1, 0.0, 0.0, 0.0, …
## $ longueur_route <dbl> 0.595777886, 0.991938383, 0.705319489, 0…
## $ ZA <dbl> 0.50394435, 0.93644773, 0.63635662, 0.50…
## $ passage_niveau <dbl> 0.0, 0.3, 0.5, 0.5, 0.3, 0.4, 0.4, 0.4, …
## $ pente_moyenne <dbl> 0.02839333, 0.01503219, 0.00000000, 0.03…
## $ total_sum_allegee <dbl> 5.8568563, 8.0794501, 3.9218553, 2.88494…
## $ geom <POINT [m]> POINT (1023687 6783991), POINT (10…
## $ data_rennes_classes <int> 4, 5, 3, 3, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1…glimpse(raw_data_car)## Rows: 26
## Columns: 22
## $ pk <chr> "0", "1", "2", "3", "4", "5", "6", "7", …
## $ ID_number <int> 262344, 262354, 262364, 262374, 262384, …
## $ sum_population <dbl> 96711, 109064, 108050, 100056, 91024, 99…
## $ sum_lits <dbl> 4890, 5832, 5851, 5476, 4576, 5280, 3453…
## $ longueur_route <dbl> 543277.96, 638006.20, 744956.67, 696610.…
## $ longueur_pistes_cyclables <dbl> 93271.970, 107021.456, 120881.101, 11280…
## $ superficie_vegetation <dbl> 10563531, 16196876, 29497451, 30189994, …
## $ nombre_arrets <int> 436, 477, 497, 494, 192, 352, 215, 234, …
## $ nombre_parkings <dbl> 37765, 40231, 41606, 41903, 9881, 22440,…
## $ nombre_commerces <int> 386, 407, 411, 406, 72, 122, 70, 66, 83,…
## $ nombre_loisirs <int> 211, 231, 241, 244, 67, 122, 65, 73, 86,…
## $ nombre_restauration <int> 547, 586, 592, 587, 99, 217, 102, 101, 1…
## $ nombre_sports <dbl> 16, 19, 18, 19, 3, 6, 3, 3, 4, 4, 3, 0, …
## $ nombre_ronds_points <int> 61, 73, 76, 67, 33, 46, 29, 31, 34, 35, …
## $ nombre_eleves <dbl> 11429, 11961, 11961, 11961, 3134, 5575, …
## $ superficie_iso <dbl> 40215568, 50722129, 69175712, 65920899, …
## $ ZA <dbl> 29652036, 34525253, 39678262, 35730904, …
## $ passage_niveau <int> 21, 26, 18, 16, 9, 16, 14, 16, 16, 20, 1…
## $ sum_population_carreau_decoup <dbl> 78005.746, 84529.077, 86734.402, 82911.5…
## $ nombre_arrets_v2 <int> 188, 202, 206, 205, 85, 148, 91, 96, 105…
## $ nombre_sante <int> 448, 472, 472, 419, 158, 258, 154, 64, 1…
## $ geom <POINT [m]> POINT (1023687 6783991), POINT (10…glimpse(data_car)## Rows: 40
## Columns: 13
## $ ID_number <dbl> 262344, 262354, 262364, 262374, 262384, …
## $ sum_population_carreau_decoup <dbl> 0.8948853059, 0.9734424145, 1.0000000000…
## $ nombre_eleves <dbl> 0.95552211, 1.00000000, 1.00000000, 1.00…
## $ nombre_loisirs <dbl> 0.86016949, 0.94491525, 0.98728814, 1.00…
## $ nombre_sante <dbl> 0.94871795, 1.00000000, 1.00000000, 0.88…
## $ nombre_commerces <dbl> 0.938574939, 0.990171990, 1.000000000, 0…
## $ nombre_restauration <dbl> 0.922010399, 0.989601386, 1.000000000, 0…
## $ nombre_sports <dbl> 0.80, 0.95, 0.90, 0.95, 0.15, 0.30, 0.15…
## $ ZA <dbl> 0.688505069, 0.839906242, 1.000000000, 0…
## $ passage_niveau <dbl> 0.7058824, 1.0000000, 0.5294118, 0.41176…
## $ total_sum_allegee <dbl> 7.7142676, 8.6880373, 8.4166999, 8.05889…
## $ geom <POINT [m]> POINT (1023687 6783991), POINT (10…
## $ data_rennes_classes <int> 5, 5, 5, 5, 3, 4, 3, 3, 3, 4, 3, 2, 1, 1…