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: 30
## Columns: 27
## $ pk <chr> "143", "144", "145", "146", "147", "148"…
## $ ID_number <int> 109625, 109635, 109645, 109655, 109665, …
## $ sum_population <dbl> 22362, 27612, 5250, 5250, 5250, 6258, 10…
## $ sum_population_active <dbl> 10184.3133, 12570.9894, 2386.6760, 2386.…
## $ sum_lits <dbl> 915, 932, 17, 17, 17, 17, 0, 0, 0, 0, 0,…
## $ longueur_route <dbl> 1270.1904, 1199.4579, 12854.1884, 2389.2…
## $ nb_intersections <dbl> 20, 18, 383, 75, 24, 52, 227, 15, 4, 0, …
## $ reseau_pedestre <dbl> 1696.181, 4361.977, 16332.163, 3322.562,…
## $ longueur_pistes_cyclables <dbl> 0.00000, 0.00000, 1436.16795, 0.00000, 0…
## $ superficie_vegetation <dbl> 13170.41, 23050.76, 63918.45, 102514.23,…
## $ nombre_arrets <dbl> 0, 0, 6, 2, 0, 4, 4, 0, 0, 0, 0, 0, 0, 4…
## $ nombre_parkings <dbl> 0, 0, 228, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,…
## $ nombre_commerces <dbl> 0, 0, 6, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_sante <dbl> 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_loisirs <dbl> 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_restauration <dbl> 0, 0, 9, 0, 0, 1, 3, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_sports <dbl> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_ronds_points <dbl> 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_eleves <dbl> 0, 0, 434, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,…
## $ superficie_iso <dbl> 126157.35, 278609.59, 581540.38, 187047.…
## $ ZA <dbl> 112986.939, 255558.832, 517621.931, 8453…
## $ passage_niveau <dbl> 2, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0…
## $ sum_population_carreau <dbl> 191.5, 86.5, 2193.0, 463.0, 0.0, 173.0, …
## $ sum_population_carreau_decoup <dbl> 1.857358e+01, 1.060122e+01, 1.371657e+03…
## $ nombre_arrets_v2 <dbl> 0, 0, 2, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1…
## $ pente_moyenne <dbl> 3.320150, 2.512816, 2.654966, 4.103213, …
## $ geom <POINT [m]> POINT (771663.5 6883034), POINT (7…glimpse(data_foot)## Rows: 39
## Columns: 13
## $ ID_number <dbl> 109625, 109635, 109645, 109655, 109665, …
## $ sum_population_carreau_decoup <dbl> 2.833541e-03, 1.617297e-03, 2.092567e-01…
## $ nombre_loisirs <dbl> 0.00, 0.00, 0.12, 0.00, 0.00, 0.00, 0.00…
## $ nombre_commerces <dbl> 0.00000000, 0.00000000, 0.50000000, 0.00…
## $ nombre_restauration <dbl> 0.00000000, 0.00000000, 0.42857143, 0.00…
## $ nombre_arrets <dbl> 0.00000000, 0.00000000, 0.08333333, 0.02…
## $ longueur_route <dbl> 0.0511096040, 0.0482634885, 0.5172236209…
## $ ZA <dbl> 0.1365672694, 0.3109795661, 0.6315688914…
## $ passage_niveau <dbl> 1.0, 0.0, 0.0, 0.0, 0.0, 0.5, 0.0, 0.0, …
## $ pente_moyenne <dbl> 0.2938546, 0.1519600, 0.1769438, 0.43148…
## $ total_sum_allegee <dbl> 0.896655847, 0.208900327, 2.313010208, -…
## $ geom <POINT [m]> POINT (771663.5 6883034), POINT (7…
## $ data_rennes_classes <int> 2, 2, 3, 1, 1, 2, 2, 1, 1, 1, 1, 1, 2, 1…glimpse(raw_data_bike)## Rows: 31
## Columns: 27
## $ pk <chr> "143", "144", "145", "146", "147", "148"…
## $ ID_number <int> 109625, 109635, 109645, 109655, 109665, …
## $ sum_population <dbl> 24056, 31833, 29727, 6451, 6451, 6782, 6…
## $ sum_population_active <dbl> 11037.4216, 14675.5417, 13659.6358, 2936…
## $ sum_lits <dbl> 915, 1067, 932, 17, 17, 17, 17, 0, 0, 0,…
## $ longueur_route <dbl> 39395.232, 43215.595, 57122.281, 56030.9…
## $ nb_intersections <dbl> 1282, 1141, 1321, 1331, 1443, 902, 744, …
## $ reseau_pedestre <dbl> 44607.53, 73975.13, 117124.54, 113648.86…
## $ longueur_pistes_cyclables <dbl> 1770.58731, 5678.48080, 6241.39617, 5130…
## $ superficie_vegetation <dbl> 198372.9, 932579.7, 3671107.4, 3760530.1…
## $ nombre_arrets <dbl> 36, 19, 18, 16, 16, 5, 4, 4, 0, 0, 0, 0,…
## $ nombre_parkings <dbl> 2121, 667, 665, 665, 230, 2, 2, 0, 0, 0,…
## $ nombre_commerces <dbl> 84, 11, 10, 9, 9, 2, 1, 1, 0, 0, 0, 0, 1…
## $ nombre_sante <dbl> 33, 9, 10, 9, 2, 1, 1, 0, 0, 0, 0, 0, 0,…
## $ nombre_loisirs <dbl> 23, 9, 9, 10, 8, 1, 1, 0, 1, 0, 0, 0, 0,…
## $ nombre_restauration <dbl> 123, 17, 14, 13, 17, 4, 4, 4, 0, 0, 0, 0…
## $ nombre_sports <dbl> 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_ronds_points <dbl> 8, 5, 6, 7, 5, 4, 3, 1, 0, 0, 0, 0, 0, 0…
## $ nombre_eleves <dbl> 0, 434, 434, 434, 0, 0, 0, 0, 0, 0, 0, 0…
## $ superficie_iso <dbl> 2300079, 4635276, 8076832, 6798200, 8625…
## $ ZA <dbl> 2101706.166, 3702696.430, 4405724.387, 3…
## $ passage_niveau <dbl> 2, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1…
## $ pente_moyenne <dbl> 2.943365, 2.447914, 3.845462, 4.910809, …
## $ sum_population_carreau <dbl> 8642.0, 6288.0, 4333.5, 4379.5, 4352.0, …
## $ sum_population_carreau_decoup <dbl> 6056.78866, 4675.15053, 4152.50215, 4048…
## $ nombre_arrets_v2 <dbl> 11, 6, 8, 6, 8, 2, 1, 1, 0, 0, 0, 0, 1, …
## $ geom <POINT [m]> POINT (771663.5 6883034), POINT (7…glimpse(data_bike)## Rows: 40
## Columns: 15
## $ ID_number <dbl> 109625, 109635, 109645, 109655, 109665, …
## $ sum_population_carreau_decoup <dbl> 0.1044600430, 0.0806312474, 0.0716172510…
## $ nombre_eleves <dbl> 0.00000000, 0.03429204, 0.03429204, 0.03…
## $ nombre_loisirs <dbl> 0.064245810, 0.025139665, 0.025139665, 0…
## $ nombre_sante <dbl> 0.067073171, 0.018292683, 0.020325203, 0…
## $ nombre_commerces <dbl> 0.228882834, 0.029972752, 0.027247956, 0…
## $ nombre_restauration <dbl> 0.226102941, 0.031250000, 0.025735294, 0…
## $ nombre_sports <dbl> 0.3333333, 0.0000000, 0.0000000, 0.00000…
## $ longueur_route <dbl> 0.134324152, 0.148226910, 0.198835001, 0…
## $ ZA <dbl> 0.20159487, 0.35585999, 0.42360099, 0.29…
## $ passage_niveau <dbl> 1.0, 0.0, 0.0, 0.0, 0.5, 0.5, 0.5, 0.5, …
## $ pente_moyenne <dbl> 0.12809201, 0.03171817, 0.30356570, 0.51…
## $ total_sum_allegee <dbl> 1.360017159, 0.723665279, 0.826793395, 0…
## $ geom <POINT [m]> POINT (771663.5 6883034), POINT (7…
## $ data_rennes_classes <int> 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1…glimpse(raw_data_car)## Rows: 31
## Columns: 26
## $ pk <chr> "143", "144", "145", "146", "147", "148"…
## $ ID_number <int> 109625, 109635, 109645, 109655, 109665, …
## $ sum_population <dbl> 35933, 33510, 38862, 37324, 36056, 9839,…
## $ sum_population_active <dbl> 16563.3675, 15466.3703, 17947.1345, 1723…
## $ sum_lits <dbl> 1067, 1067, 1114, 1114, 1067, 17, 1067, …
## $ longueur_route <dbl> 213275.173, 92512.632, 330402.808, 22233…
## $ nb_intersections <dbl> 6046, 2092, 7819, 5102, 5252, 2293, 3419…
## $ reseau_pedestre <dbl> 347596.93, 184322.23, 721393.14, 506531.…
## $ longueur_pistes_cyclables <dbl> 11626.79590, 8391.85007, 18266.76703, 13…
## $ superficie_vegetation <dbl> 5708478, 5413058, 21573045, 15621690, 18…
## $ nombre_arrets <dbl> 131, 31, 138, 80, 76, 22, 25, 20, 4, 0, …
## $ nombre_parkings <dbl> 10514, 2658, 6291, 4677, 5027, 667, 2072…
## $ nombre_commerces <dbl> 138, 21, 136, 122, 116, 12, 16, 11, 2, 0…
## $ nombre_sante <dbl> 121, 17, 124, 102, 95, 11, 15, 5, 1, 0, …
## $ nombre_loisirs <dbl> 91, 17, 95, 67, 61, 10, 16, 7, 2, 0, 0, …
## $ nombre_restauration <dbl> 183, 32, 187, 166, 168, 19, 28, 15, 6, 1…
## $ nombre_sports <dbl> 8, 1, 7, 7, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_ronds_points <dbl> 28, 11, 38, 25, 29, 12, 18, 10, 6, 0, 1,…
## $ nombre_eleves <dbl> 4926, 434, 4856, 4856, 4429, 434, 434, 4…
## $ superficie_iso <dbl> 20787946, 14131821, 52046356, 34542481, …
## $ ZA <dbl> 1.507947e+07, 8.718763e+06, 3.047331e+07…
## $ passage_niveau <dbl> 2, 0, 6, 2, 7, 1, 5, 2, 2, 0, 2, 0, 1, 1…
## $ sum_population_carreau <dbl> 29805.0, 8593.0, 34319.0, 21100.5, 19796…
## $ sum_population_carreau_decoup <dbl> 2.903999e+04, 7.796379e+03, 3.239170e+04…
## $ nombre_arrets_v2 <dbl> 55, 12, 58, 31, 29, 9, 10, 9, 1, 0, 2, 0…
## $ geom <POINT [m]> POINT (771663.5 6883034), POINT (7…glimpse(data_car)## Rows: 40
## Columns: 13
## $ ID_number <dbl> 109625, 109635, 109645, 109655, 109665, …
## $ sum_population_carreau_decoup <dbl> 1.632912e-01, 4.383888e-02, 1.821378e-01…
## $ nombre_eleves <dbl> 0.18392950, 0.01620491, 0.18131581, 0.18…
## $ nombre_loisirs <dbl> 0.122476447, 0.022880215, 0.127860027, 0…
## $ nombre_sante <dbl> 0.1121408712, 0.0157553290, 0.1149212234…
## $ nombre_commerces <dbl> 0.196301565, 0.029871977, 0.193456615, 0…
## $ nombre_restauration <dbl> 0.183, 0.032, 0.187, 0.166, 0.168, 0.019…
## $ nombre_sports <dbl> 0.24242424, 0.03030303, 0.21212121, 0.21…
## $ ZA <dbl> 0.2701011944, 0.1561622511, 0.5458502288…
## $ passage_niveau <dbl> 0.06896552, 0.00000000, 0.20689655, 0.06…
## $ total_sum_allegee <dbl> 1.5426305884, 0.3470165942, 1.9515595030…
## $ geom <POINT [m]> POINT (771663.5 6883034), POINT (7…
## $ data_rennes_classes <int> 2, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1…