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: 92
## Columns: 23
## $ pk <chr> "542", "505", "506", "506", "507", "508"…
## $ ID_number <int> 29507, 47245, 47255, 136059, 136069, 136…
## $ sum_population <dbl> 7142, 12520, 9663, 9663, 9663, 14418, 20…
## $ sum_lits <dbl> 442, 107, 58, 58, 58, 130, 12, 12, 12, 1…
## $ longueur_route <dbl> 16119.637, 7598.425, 4391.796, 5298.699,…
## $ longueur_pistes_cyclables <dbl> 477.6210, 618.9954, 457.3706, 512.2204, …
## $ superficie_vegetation <dbl> 69502.46, 56600.68, 115702.89, 120659.69…
## $ nombre_arrets <dbl> 64, 51, 21, 24, 46, 18, 3, 0, 0, 0, 2, 1…
## $ nombre_parkings <dbl> 1534, 2, 1119, 1119, 1147, 4, 0, 0, 0, 0…
## $ nombre_commerces <dbl> 43, 1, 0, 2, 5, 0, 0, 0, 0, 0, 0, 0, 0, …
## $ nombre_loisirs <dbl> 11, 2, 1, 1, 6, 0, 0, 0, 0, 0, 0, 0, 0, …
## $ nombre_restauration <dbl> 53, 7, 0, 0, 10, 0, 0, 2, 0, 0, 0, 0, 0,…
## $ nombre_sports <dbl> 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_ronds_points <dbl> 4, 0, 0, 0, 5, 1, 0, 0, 1, 0, 0, 0, 0, 0…
## $ nombre_eleves <dbl> 0, 765, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,…
## $ superficie_iso <dbl> 886706.8, 411441.9, 384097.9, 430435.6, …
## $ ZA <dbl> 817204.4, 354841.2, 268395.0, 309775.9, …
## $ passage_niveau <dbl> 1, 0, 0, 0, 2, 1, 1, 0, 1, 1, 2, 2, 2, 1…
## $ sum_population_carreau_decoup <dbl> 1460.028655, 908.346257, 148.575836, 191…
## $ nombre_arrets_v2 <dbl> 8, 4, 0, 0, 4, 1, 0, 0, 0, 0, 0, 0, 2, 0…
## $ nombre_sante <dbl> 24, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, …
## $ pente_moyenne <dbl> 3.4532924, 4.2197018, 5.4577788, 5.70832…
## $ geom <POINT [m]> POINT (256085 6869976), POINT (246…glimpse(data_foot)## Rows: 110
## Columns: 13
## $ ID_number <dbl> 29507, 47245, 47255, 136059, 136069, 136…
## $ sum_population_carreau_decoup <dbl> 0.844617457, 0.525472636, 0.085950193, 0…
## $ nombre_loisirs <dbl> 1.00000000, 0.18181818, 0.09090909, 0.09…
## $ nombre_commerces <dbl> 1.00000000, 0.02325581, 0.00000000, 0.04…
## $ nombre_restauration <dbl> 1.00000000, 0.13207547, 0.00000000, 0.00…
## $ nombre_arrets <dbl> 1.000000, 0.796875, 0.328125, 0.375000, …
## $ longueur_route <dbl> 0.98569729, 0.46463499, 0.26855327, 0.32…
## $ ZA <dbl> 0.9580406, 0.4092963, 0.3066997, 0.35581…
## $ passage_niveau <dbl> 0.5, 0.0, 0.0, 0.0, 1.0, 0.5, 0.5, 0.0, …
## $ pente_moyenne <dbl> 0.147622320, 0.190714579, 0.260326893, 0…
## $ total_sum_allegee <dbl> 7.1407330, 2.3427138, 0.8199104, 1.02869…
## $ geom <POINT [m]> POINT (256085 6869976), POINT (246…
## $ data_rennes_classes <int> 5, 4, 2, 2, 5, 3, 2, 2, 2, 2, 3, 3, 3, 2…glimpse(raw_data_bike)## Rows: 92
## Columns: 23
## $ pk <chr> "542", "505", "506", "506", "507", "508"…
## $ ID_number <int> 29507, 47245, 47255, 136059, 136069, 136…
## $ sum_population <dbl> 12444, 17559, 20107, 20107, 16704, 14418…
## $ sum_lits <dbl> 717, 185, 185, 185, 148, 130, 130, 130, …
## $ longueur_route <dbl> 101557.46, 39105.89, 90923.69, 88411.18,…
## $ longueur_pistes_cyclables <dbl> 3377.6773, 1714.9687, 3406.2378, 3332.96…
## $ superficie_vegetation <dbl> 1122260.5, 359329.2, 1756428.1, 1721946.…
## $ nombre_arrets <dbl> 145, 161, 265, 278, 256, 112, 87, 25, 21…
## $ nombre_parkings <dbl> 4417, 1945, 3102, 3100, 3102, 1157, 8, 0…
## $ nombre_commerces <dbl> 56, 37, 62, 62, 60, 13, 14, 2, 2, 0, 1, …
## $ nombre_loisirs <dbl> 22, 20, 27, 28, 27, 7, 4, 2, 1, 1, 1, 1,…
## $ nombre_restauration <dbl> 73, 35, 61, 61, 60, 25, 14, 5, 5, 1, 1, …
## $ nombre_sports <dbl> 3, 2, 3, 4, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_ronds_points <dbl> 19, 8, 23, 22, 16, 10, 6, 2, 3, 1, 1, 0,…
## $ nombre_eleves <dbl> 1415, 2435, 3507, 3940, 2827, 1082, 688,…
## $ superficie_iso <dbl> 8834214, 2613571, 7434724, 7248383, 7868…
## $ ZA <dbl> 7711954, 2254242, 5678296, 5526437, 6163…
## $ passage_niveau <dbl> 3, 0, 7, 5, 7, 5, 4, 3, 5, 5, 6, 4, 6, 5…
## $ pente_moyenne <dbl> 3.767820, 4.168841, 4.821446, 4.811617, …
## $ sum_population_carreau_decoup <dbl> 5836.0210, 4040.4795, 7564.0729, 7510.60…
## $ nombre_arrets_v2 <dbl> 35, 22, 37, 41, 36, 15, 12, 1, 1, 1, 3, …
## $ nombre_sante <dbl> 38, 16, 33, 32, 31, 18, 12, 1, 1, 0, 0, …
## $ geom <POINT [m]> POINT (256085 6869976), POINT (246…glimpse(data_bike)## Rows: 110
## Columns: 15
## $ ID_number <dbl> 29507, 47245, 47255, 136059, 136069, 136…
## $ sum_population_carreau_decoup <dbl> 0.74179938, 0.51357341, 0.96144695, 0.95…
## $ nombre_eleves <dbl> 0.35913706, 0.61802030, 0.89010152, 1.00…
## $ nombre_loisirs <dbl> 0.78571429, 0.71428571, 0.96428571, 1.00…
## $ nombre_sante <dbl> 0.97435897, 0.41025641, 0.84615385, 0.82…
## $ nombre_commerces <dbl> 0.90322581, 0.59677419, 1.00000000, 1.00…
## $ nombre_restauration <dbl> 1.00000000, 0.47945205, 0.83561644, 0.83…
## $ nombre_sports <dbl> 0.75, 0.50, 0.75, 1.00, 0.50, 0.00, 0.00…
## $ longueur_route <dbl> 0.9533761, 0.3593234, 0.8522254, 0.82832…
## $ ZA <dbl> 0.8762273, 0.2424970, 0.6400861, 0.62245…
## $ passage_niveau <dbl> 0.375, 0.000, 0.875, 0.625, 0.875, 0.625…
## $ pente_moyenne <dbl> 0.318274536, 0.378497341, 0.476501502, 0…
## $ total_sum_allegee <dbl> 7.3438388, 4.4341826, 7.7399159, 8.06155…
## $ geom <POINT [m]> POINT (256085 6869976), POINT (246…
## $ data_rennes_classes <int> 5, 4, 5, 5, 5, 3, 3, 2, 2, 2, 2, 1, 2, 2…glimpse(raw_data_car)## Rows: 92
## Columns: 22
## $ pk <chr> "542", "505", "506", "506", "507", "508"…
## $ ID_number <int> 29507, 47245, 47255, 136059, 136069, 136…
## $ sum_population <dbl> 19470, 39792, 33936, 33936, 30532, 27189…
## $ sum_lits <dbl> 1150, 259, 197, 197, 197, 197, 197, 197,…
## $ longueur_route <dbl> 354465.60, 535358.93, 487673.88, 507820.…
## $ longueur_pistes_cyclables <dbl> 5005.7159, 9132.6528, 9132.6528, 9132.65…
## $ superficie_vegetation <dbl> 15224192, 32259729, 26060873, 26725092, …
## $ nombre_arrets <dbl> 398, 629, 610, 623, 614, 523, 462, 532, …
## $ nombre_parkings <dbl> 5731, 7338, 7338, 7336, 7338, 6115, 5107…
## $ nombre_commerces <dbl> 66, 96, 95, 96, 96, 91, 83, 87, 82, 1, 6…
## $ nombre_loisirs <dbl> 47, 56, 53, 55, 50, 45, 41, 45, 45, 2, 1…
## $ nombre_restauration <dbl> 105, 95, 94, 94, 95, 88, 79, 87, 82, 2, …
## $ nombre_sports <dbl> 3, 5, 5, 5, 5, 5, 4, 4, 3, 0, 0, 0, 0, 0…
## $ nombre_ronds_points <dbl> 24, 49, 48, 48, 50, 48, 39, 42, 39, 1, 1…
## $ nombre_eleves <dbl> 1787, 4334, 4334, 4334, 4334, 4334, 4334…
## $ superficie_iso <dbl> 72696178, 103574242, 90076051, 93880838,…
## $ ZA <dbl> 57471986, 71314513, 64015178, 67155746, …
## $ passage_niveau <dbl> 5, 18, 18, 18, 17, 17, 16, 19, 20, 5, 15…
## $ sum_population_carreau_decoup <dbl> 13452.4886, 22503.2231, 21215.9237, 2168…
## $ nombre_arrets_v2 <dbl> 95, 109, 100, 103, 108, 86, 69, 85, 96, …
## $ nombre_sante <dbl> 46, 68, 68, 68, 68, 65, 61, 61, 58, 0, 6…
## $ geom <POINT [m]> POINT (256085 6869976), POINT (246…glimpse(data_car)## Rows: 110
## Columns: 13
## $ ID_number <dbl> 29507, 47245, 47255, 136059, 136069, 136…
## $ sum_population_carreau_decoup <dbl> 0.59766313, 1.00000000, 0.94277503, 0.96…
## $ nombre_eleves <dbl> 0.39790692, 0.96504119, 0.96504119, 0.96…
## $ nombre_loisirs <dbl> 0.83928571, 1.00000000, 0.94642857, 0.98…
## $ nombre_sante <dbl> 0.67647059, 1.00000000, 1.00000000, 1.00…
## $ nombre_commerces <dbl> 0.68750000, 1.00000000, 0.98958333, 1.00…
## $ nombre_restauration <dbl> 0.99056604, 0.89622642, 0.88679245, 0.88…
## $ nombre_sports <dbl> 0.6, 1.0, 1.0, 1.0, 1.0, 1.0, 0.8, 0.8, …
## $ ZA <dbl> 0.71244898, 0.88577049, 0.79437592, 0.83…
## $ passage_niveau <dbl> 0.2173913, 0.7826087, 0.7826087, 0.78260…
## $ total_sum_allegee <dbl> 5.7192327, 8.5296468, 8.3076052, 8.41376…
## $ geom <POINT [m]> POINT (256085 6869976), POINT (246…
## $ data_rennes_classes <int> 4, 5, 5, 5, 5, 5, 5, 5, 5, 1, 2, 2, 3, 3…