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: 113
## Columns: 23
## $ pk <chr> "2", "3", "4", "393", "1", "2", "3", "4"…
## $ ID_number <int> 24125, 24135, 24145, 38799, 292566, 2925…
## $ sum_population <dbl> 320732, 320732, 320732, 320732, 7111, 94…
## $ sum_lits <dbl> 7564, 7564, 7564, 7564, 0, 30, 30, 30, 3…
## $ longueur_route <dbl> 14079.9885, 14069.7629, 20833.3399, 8919…
## $ longueur_pistes_cyclables <dbl> 6794.0804, 8880.7677, 11008.1884, 1071.5…
## $ superficie_vegetation <dbl> 58101.37, 42116.92, 54002.47, 46712.27, …
## $ nombre_arrets <dbl> 49, 32, 55, 42, 0, 0, 0, 8, 0, 0, 0, 0, …
## $ nombre_parkings <dbl> 1570, 0, 6, 1274, 0, 0, 0, 0, 2, 0, 0, 0…
## $ nombre_commerces <dbl> 14, 22, 15, 6, 0, 0, 0, 3, 2, 0, 0, 0, 1…
## $ nombre_loisirs <dbl> 24, 17, 49, 31, 0, 0, 0, 4, 1, 0, 0, 1, …
## $ nombre_restauration <dbl> 36, 22, 46, 13, 0, 0, 0, 5, 3, 0, 0, 0, …
## $ nombre_sports <dbl> 4, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_ronds_points <dbl> 7, 9, 14, 3, 0, 0, 0, 3, 1, 0, 0, 0, 1, …
## $ nombre_eleves <dbl> 337, 1763, 372, 0, 0, 0, 0, 0, 0, 0, 0, …
## $ superficie_iso <dbl> 751025.0, 733276.3, 844147.1, 513370.8, …
## $ ZA <dbl> 692923.7, 691159.4, 790144.6, 466658.5, …
## $ passage_niveau <dbl> 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1…
## $ sum_population_carreau_decoup <dbl> 5841.006838, 2967.618279, 5950.187259, 2…
## $ nombre_arrets_v2 <dbl> 4, 4, 8, 2, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0…
## $ nombre_sante <dbl> 15, 26, 27, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ pente_moyenne <dbl> 3.144741, 3.022763, 2.781306, 3.162998, …
## $ geom <POINT [m]> POINT (357355.1 6689292), POINT (3…glimpse(data_foot)## Rows: 127
## Columns: 13
## $ ID_number <dbl> 24125, 24135, 24145, 38799, 292566, 2925…
## $ sum_population_carreau_decoup <dbl> 0.9816509270, 0.4987436781, 1.0000000000…
## $ nombre_loisirs <dbl> 0.48979592, 0.34693878, 1.00000000, 0.63…
## $ nombre_commerces <dbl> 0.63636364, 1.00000000, 0.68181818, 0.27…
## $ nombre_restauration <dbl> 0.78260870, 0.47826087, 1.00000000, 0.28…
## $ nombre_arrets <dbl> 0.8305085, 0.5423729, 0.9322034, 0.71186…
## $ longueur_route <dbl> 0.67583923, 0.67534841, 1.00000000, 0.42…
## $ ZA <dbl> 0.7172945, 0.7152651, 0.8291231, 0.45703…
## $ passage_niveau <dbl> 0.00, 0.00, 0.00, 0.25, 0.25, 0.25, 0.25…
## $ pente_moyenne <dbl> 0.50054559, 0.47286131, 0.41805979, 0.50…
## $ total_sum_allegee <dbl> 4.61351576, 3.78406843, 6.02508491, 2.99…
## $ geom <POINT [m]> POINT (357355.1 6689292), POINT (3…
## $ data_rennes_classes <int> 4, 4, 5, 3, 2, 2, 2, 3, 2, 1, 2, 2, 1, 2…glimpse(raw_data_bike)## Rows: 113
## Columns: 23
## $ pk <chr> "2", "3", "4", "393", "1", "2", "3", "4"…
## $ ID_number <int> 24125, 24135, 24145, 38799, 292566, 2925…
## $ sum_population <dbl> 348690, 391683, 391683, 348690, 9447, 16…
## $ sum_lits <dbl> 7869, 8263, 8263, 7869, 30, 51, 30, 51, …
## $ longueur_route <dbl> 138726.498, 158317.083, 223073.085, 1180…
## $ longueur_pistes_cyclables <dbl> 55419.5029, 72970.9377, 101684.9857, 369…
## $ superficie_vegetation <dbl> 868266.8, 833485.3, 996648.5, 794335.8, …
## $ nombre_arrets <dbl> 321, 369, 421, 212, 20, 0, 8, 8, 8, 0, 0…
## $ nombre_parkings <dbl> 4683, 6145, 11073, 3068, 922, 519, 0, 2,…
## $ nombre_commerces <dbl> 141, 149, 300, 94, 8, 1, 3, 3, 3, 0, 1, …
## $ nombre_loisirs <dbl> 328, 365, 532, 235, 19, 2, 4, 4, 4, 0, 1…
## $ nombre_restauration <dbl> 328, 404, 809, 219, 14, 4, 5, 7, 7, 0, 0…
## $ nombre_sports <dbl> 10, 14, 17, 6, 1, 1, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_ronds_points <dbl> 59, 77, 112, 44, 12, 6, 5, 6, 6, 0, 0, 1…
## $ nombre_eleves <dbl> 5774, 5060, 6461, 4360, 1257, 1257, 0, 0…
## $ superficie_iso <dbl> 8237372, 9047598, 12037673, 7328923, 679…
## $ ZA <dbl> 7369105.1, 8214113.2, 11041024.8, 653458…
## $ passage_niveau <dbl> 4, 2, 4, 6, 7, 5, 5, 4, 5, 2, 2, 2, 3, 3…
## $ pente_moyenne <dbl> 2.660885, 2.696502, 2.740177, 2.585307, …
## $ sum_population_carreau_decoup <dbl> 39803.51667, 40667.14414, 56109.86908, 3…
## $ nombre_arrets_v2 <dbl> 37, 42, 61, 28, 4, 0, 2, 2, 2, 0, 0, 0, …
## $ nombre_sante <dbl> 188, 213, 558, 102, 13, 5, 0, 0, 0, 0, 0…
## $ geom <POINT [m]> POINT (357355.1 6689292), POINT (3…glimpse(data_bike)## Rows: 127
## Columns: 15
## $ ID_number <dbl> 24125, 24135, 24145, 38799, 292566, 2925…
## $ sum_population_carreau_decoup <dbl> 0.709238489, 0.724637986, 1.000000000, 0…
## $ nombre_eleves <dbl> 0.7498701, 0.6571429, 0.8390909, 0.56623…
## $ nombre_loisirs <dbl> 0.616541353, 0.686090226, 1.000000000, 0…
## $ nombre_sante <dbl> 0.336917563, 0.381720430, 1.000000000, 0…
## $ nombre_commerces <dbl> 0.470000000, 0.496666667, 1.000000000, 0…
## $ nombre_restauration <dbl> 0.405438813, 0.499381953, 1.000000000, 0…
## $ nombre_sports <dbl> 0.58823529, 0.82352941, 1.00000000, 0.35…
## $ longueur_route <dbl> 0.61466112, 0.70416105, 1.00000000, 0.52…
## $ ZA <dbl> 0.60775769, 0.68618939, 0.94857681, 0.53…
## $ passage_niveau <dbl> 0.30769231, 0.15384615, 0.30769231, 0.46…
## $ pente_moyenne <dbl> 0.454802428, 0.465514506, 0.478650496, 0…
## $ total_sum_allegee <dbl> 5.09866045, 5.65951998, 8.78766772, 3.80…
## $ geom <POINT [m]> POINT (357355.1 6689292), POINT (3…
## $ data_rennes_classes <int> 4, 4, 5, 3, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1…glimpse(raw_data_car)## Rows: 113
## Columns: 22
## $ pk <chr> "2", "3", "4", "393", "1", "2", "3", "4"…
## $ ID_number <int> 24125, 24135, 24145, 38799, 292566, 2925…
## $ sum_population <dbl> 462839, 447422, 446912, 416510, 37850, 3…
## $ sum_lits <dbl> 8863, 8564, 8600, 8562, 579, 579, 347, 4…
## $ longueur_route <dbl> 621775.84, 657687.86, 615154.62, 367186.…
## $ longueur_pistes_cyclables <dbl> 206586.464, 224457.977, 227867.916, 1208…
## $ superficie_vegetation <dbl> 4705724, 4787621, 3260049, 3857448, 1066…
## $ nombre_arrets <dbl> 1041, 1069, 992, 663, 28, 30, 28, 28, 28…
## $ nombre_parkings <dbl> 14295, 19127, 15615, 7882, 2781, 928, 92…
## $ nombre_commerces <dbl> 899, 923, 901, 380, 13, 15, 13, 16, 13, …
## $ nombre_loisirs <dbl> 1489, 1451, 1478, 813, 28, 29, 26, 29, 2…
## $ nombre_restauration <dbl> 1574, 1561, 1586, 871, 26, 24, 23, 25, 2…
## $ nombre_sports <dbl> 34, 29, 30, 15, 2, 2, 2, 2, 1, 0, 1, 1, …
## $ nombre_ronds_points <dbl> 253, 269, 252, 145, 26, 23, 23, 30, 30, …
## $ nombre_eleves <dbl> 34389, 34351, 31285, 13415, 1257, 1257, …
## $ superficie_iso <dbl> 39675643, 41804345, 37239150, 25236061, …
## $ ZA <dbl> 34969919, 37016724, 33979102, 21378613, …
## $ passage_niveau <int> 14, 14, 14, 7, 18, 22, 18, 22, 21, 7, 21…
## $ sum_population_carreau_decoup <dbl> 184738.982, 181086.778, 178623.539, 1066…
## $ nombre_arrets_v2 <dbl> 170, 184, 166, 102, 6, 6, 6, 6, 6, 2, 8,…
## $ nombre_sante <dbl> 1356, 1259, 1360, 553, 14, 13, 13, 17, 1…
## $ geom <POINT [m]> POINT (357355.1 6689292), POINT (3…glimpse(data_car)## Rows: 127
## Columns: 13
## $ ID_number <dbl> 24125, 24135, 24145, 38799, 292566, 2925…
## $ sum_population_carreau_decoup <dbl> 1.000000000, 0.980200274, 0.966846294, 0…
## $ nombre_eleves <dbl> 1.00000000, 0.99889500, 0.90973858, 0.39…
## $ nombre_loisirs <dbl> 1.000000000, 0.974479516, 0.992612492, 0…
## $ nombre_sante <dbl> 0.9970588235, 0.9257352941, 1.0000000000…
## $ nombre_commerces <dbl> 0.973997833, 1.000000000, 0.976164680, 0…
## $ nombre_restauration <dbl> 0.992433796, 0.984237074, 1.000000000, 0…
## $ nombre_sports <dbl> 1.00000000, 0.85294118, 0.88235294, 0.44…
## $ ZA <dbl> 0.3726056, 0.4002526, 0.3592222, 0.18902…
## $ passage_niveau <dbl> 0.5454545, 0.5454545, 0.5454545, 0.22727…
## $ total_sum_allegee <dbl> 7.8815506, 7.6621955, 7.6323918, 3.73757…
## $ geom <POINT [m]> POINT (357355.1 6689292), POINT (3…
## $ data_rennes_classes <int> 5, 5, 5, 4, 2, 3, 2, 3, 2, 1, 3, 3, 2, 3…