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: 47
## Columns: 23
## $ pk <chr> "35", "28", "29", "30", "31", "32", "5",…
## $ ID_number <int> 246203, 293558, 293568, 293578, 293588, …
## $ sum_population <dbl> 13932, 147496, 147496, 147496, 147496, 1…
## $ sum_lits <dbl> 323, 2588, 2588, 2588, 2588, 2588, 2588,…
## $ longueur_route <dbl> 1139.7054, 17598.7375, 15955.6485, 16630…
## $ longueur_pistes_cyclables <dbl> 0.00000, 1032.35963, 1376.52327, 958.785…
## $ superficie_vegetation <dbl> 47890.073, 76953.602, 140062.650, 98205.…
## $ nombre_arrets <dbl> 0, 95, 59, 73, 41, 0, 0, 4, 0, 0, 0, 4, …
## $ nombre_parkings <dbl> 0, 6, 2542, 4129, 4, 1615, 1615, 0, 0, 0…
## $ nombre_commerces <dbl> 0, 32, 7, 19, 14, 3, 3, 1, 0, 0, 0, 0, 0…
## $ nombre_loisirs <dbl> 0, 43, 11, 7, 11, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_restauration <dbl> 0, 58, 21, 20, 7, 3, 3, 0, 0, 0, 1, 0, 0…
## $ nombre_sports <dbl> 0, 1, 3, 5, 3, 0, 0, 2, 0, 0, 0, 0, 0, 0…
## $ nombre_ronds_points <dbl> 0, 2, 2, 2, 6, 1, 1, 0, 0, 0, 0, 0, 0, 1…
## $ nombre_eleves <dbl> 0, 2269, 1499, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ superficie_iso <dbl> 292830.7, 663327.4, 822228.6, 637877.6, …
## $ ZA <dbl> 244940.6, 586373.8, 682165.9, 539672.4, …
## $ passage_niveau <dbl> 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 2, 0…
## $ sum_population_carreau_decoup <dbl> 26.3776788, 6432.5583341, 3360.4726049, …
## $ nombre_arrets_v2 <dbl> 0, 7, 6, 9, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_sante <dbl> 0, 21, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, …
## $ pente_moyenne <dbl> 1.1496315, 2.0790739, 4.1818657, 2.92287…
## $ geom <POINT [m]> POINT (800581.8 6287953), POINT (8…glimpse(data_foot)## Rows: 56
## Columns: 13
## $ ID_number <dbl> 246203, 293558, 293568, 293578, 293588, …
## $ sum_population_carreau_decoup <dbl> 0.0041006513, 1.0000000000, 0.5224161881…
## $ nombre_loisirs <dbl> 0.00000000, 1.00000000, 0.25581395, 0.16…
## $ nombre_commerces <dbl> 0.00000000, 0.34042553, 0.07446809, 0.20…
## $ nombre_restauration <dbl> 0.000000000, 0.495726496, 0.179487179, 0…
## $ nombre_arrets <dbl> 0.00000000, 1.00000000, 0.62105263, 0.76…
## $ longueur_route <dbl> 0.06476063, 1.00000000, 0.90663597, 0.94…
## $ ZA <dbl> 0.3300870, 0.8532280, 1.0000000, 0.78167…
## $ passage_niveau <dbl> 0.6666667, 0.0000000, 0.0000000, 0.00000…
## $ pente_moyenne <dbl> 0.08030151, 0.32990550, 0.89461526, 0.55…
## $ total_sum_allegee <dbl> 0.985313450, 5.359474533, 2.665258756, 3…
## $ geom <POINT [m]> POINT (800581.8 6287953), POINT (8…
## $ data_rennes_classes <int> 2, 5, 4, 4, 3, 1, 1, 1, 1, 1, 1, 1, 2, 1…glimpse(raw_data_bike)## Rows: 47
## Columns: 23
## $ pk <chr> "35", "28", "29", "30", "31", "32", "5",…
## $ ID_number <int> 246203, 293558, 293568, 293578, 293588, …
## $ sum_population <dbl> 13932, 147496, 147496, 147496, 153317, 1…
## $ sum_lits <dbl> 323, 2588, 2588, 2588, 2588, 2588, 2588,…
## $ longueur_route <dbl> 23806.86, 169630.10, 182500.02, 122663.9…
## $ longueur_pistes_cyclables <dbl> 3602.7815, 18855.8012, 14900.2452, 8344.…
## $ superficie_vegetation <dbl> 1488732.4, 1169277.6, 1352307.8, 1075015…
## $ nombre_arrets <dbl> 0, 442, 411, 238, 154, 18, 17, 39, 16, 8…
## $ nombre_parkings <dbl> 4, 7851, 11830, 10649, 10828, 2145, 2145…
## $ nombre_commerces <dbl> 3, 417, 188, 99, 64, 19, 18, 27, 9, 0, 0…
## $ nombre_loisirs <dbl> 6, 313, 188, 61, 37, 9, 8, 28, 18, 4, 4,…
## $ nombre_restauration <dbl> 3, 663, 344, 132, 60, 20, 15, 24, 9, 0, …
## $ nombre_sports <dbl> 0, 15, 23, 18, 18, 9, 6, 4, 3, 0, 0, 0, …
## $ nombre_ronds_points <dbl> 5, 19, 30, 27, 25, 7, 7, 18, 10, 0, 2, 2…
## $ nombre_eleves <dbl> 0, 15134, 16503, 5692, 2575, 0, 0, 1539,…
## $ superficie_iso <dbl> 6743287, 7065437, 8084424, 6355468, 5237…
## $ ZA <dbl> 5254555, 5896160, 6732116, 5280453, 4366…
## $ passage_niveau <dbl> 6, 0, 0, 0, 0, 1, 1, 2, 2, 1, 1, 3, 2, 2…
## $ pente_moyenne <dbl> 1.442713, 2.349789, 3.617454, 3.433040, …
## $ sum_population_carreau_decoup <dbl> 1361.15380, 46627.40922, 41658.78356, 21…
## $ nombre_arrets_v2 <dbl> 0, 64, 58, 40, 26, 2, 2, 4, 2, 0, 0, 0, …
## $ nombre_sante <dbl> 0, 329, 449, 250, 90, 2, 2, 8, 8, 0, 0, …
## $ geom <POINT [m]> POINT (800581.8 6287953), POINT (8…glimpse(data_bike)## Rows: 56
## Columns: 15
## $ ID_number <dbl> 246203, 293558, 293568, 293578, 293588, …
## $ sum_population_carreau_decoup <dbl> 0.029164258, 1.000000000, 0.893436748, 0…
## $ nombre_eleves <dbl> 0.00000000, 0.91704539, 1.00000000, 0.34…
## $ nombre_loisirs <dbl> 0.01916933, 1.00000000, 0.60063898, 0.19…
## $ nombre_sante <dbl> 0.000000000, 0.732739421, 1.000000000, 0…
## $ nombre_commerces <dbl> 0.007194245, 1.000000000, 0.450839329, 0…
## $ nombre_restauration <dbl> 0.004524887, 1.000000000, 0.518853695, 0…
## $ nombre_sports <dbl> 0.00000000, 0.65217391, 1.00000000, 0.78…
## $ longueur_route <dbl> 0.10726218, 0.92759952, 1.00000000, 0.66…
## $ ZA <dbl> 0.7176889, 0.8126512, 0.9363789, 0.72152…
## $ passage_niveau <dbl> 0.8571429, 0.0000000, 0.0000000, 0.00000…
## $ pente_moyenne <dbl> 0.13531013, 0.49596909, 1.00000000, 0.92…
## $ total_sum_allegee <dbl> 0.8850038, 8.0422095, 7.4001477, 4.15181…
## $ geom <POINT [m]> POINT (800581.8 6287953), POINT (8…
## $ data_rennes_classes <int> 2, 5, 5, 4, 4, 2, 1, 3, 2, 1, 1, 1, 2, 2…glimpse(raw_data_car)## Rows: 47
## Columns: 22
## $ pk <chr> "35", "28", "29", "30", "31", "32", "5",…
## $ ID_number <int> 246203, 293558, 293568, 293578, 293588, …
## $ sum_population <dbl> 77860, 179445, 189624, 165259, 169845, 1…
## $ sum_lits <dbl> 1723, 2784, 2866, 2718, 2718, 2588, 2588…
## $ longueur_route <dbl> 285858.7851, 827620.6204, 782404.8775, 6…
## $ longueur_pistes_cyclables <dbl> 25073.3438, 40473.5791, 40484.4132, 3729…
## $ superficie_vegetation <dbl> 22127764.59, 19089717.28, 18349978.95, 1…
## $ nombre_arrets <dbl> 12, 1149, 1092, 955, 974, 394, 469, 596,…
## $ nombre_parkings <dbl> 5839, 40493, 38445, 34563, 35675, 27356,…
## $ nombre_commerces <dbl> 63, 856, 852, 828, 822, 218, 249, 307, 3…
## $ nombre_loisirs <dbl> 82, 627, 638, 586, 592, 123, 158, 259, 3…
## $ nombre_restauration <dbl> 80, 1104, 1092, 1055, 1058, 257, 307, 39…
## $ nombre_sports <dbl> 3, 57, 54, 52, 52, 35, 37, 40, 8, 0, 7, …
## $ nombre_ronds_points <dbl> 37, 122, 124, 114, 124, 67, 82, 97, 21, …
## $ nombre_eleves <dbl> 1620, 25799, 26848, 26525, 26181, 11239,…
## $ superficie_iso <dbl> 68363522.3, 66463207.7, 60671044.4, 5056…
## $ ZA <dbl> 46235757.7, 47373490.4, 42321065.4, 3623…
## $ passage_niveau <int> 17, 2, 2, 2, 3, 2, 2, 2, 2, 1, 4, 3, 6, …
## $ sum_population_carreau_decoup <dbl> 1.887907e+04, 1.339234e+05, 1.302391e+05…
## $ nombre_arrets_v2 <dbl> 3, 287, 254, 202, 202, 68, 85, 107, 6, 0…
## $ nombre_sante <dbl> 45, 869, 868, 817, 818, 329, 458, 544, 1…
## $ geom <POINT [m]> POINT (800581.8 6287953), POINT (8…glimpse(data_car)## Rows: 56
## Columns: 13
## $ ID_number <dbl> 246203, 293558, 293568, 293578, 293588, …
## $ sum_population_carreau_decoup <dbl> 1.409692e-01, 1.000000e+00, 9.724894e-01…
## $ nombre_eleves <dbl> 0.06033969, 0.96092819, 1.00000000, 0.98…
## $ nombre_loisirs <dbl> 0.12852665, 0.98275862, 1.00000000, 0.91…
## $ nombre_sante <dbl> 0.051783659, 1.000000000, 0.998849252, 0…
## $ nombre_commerces <dbl> 0.073598131, 1.000000000, 0.995327103, 0…
## $ nombre_restauration <dbl> 0.072463768, 1.000000000, 0.989130435, 0…
## $ nombre_sports <dbl> 0.05263158, 1.00000000, 0.94736842, 0.91…
## $ ZA <dbl> 0.7703368, 0.7893922, 0.7047712, 0.60280…
## $ passage_niveau <dbl> 0.94117647, 0.05882353, 0.05882353, 0.05…
## $ total_sum_allegee <dbl> 2.291826e+00, 7.791903e+00, 7.666759e+00…
## $ geom <POINT [m]> POINT (800581.8 6287953), POINT (8…
## $ data_rennes_classes <int> 3, 5, 5, 5, 5, 3, 4, 4, 1, 1, 2, 1, 2, 2…