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: 97
## Columns: 23
## $ pk <chr> "201", "202", "203", "204", "205", "206"…
## $ ID_number <int> 36960, 36970, 36980, 36990, 37000, 37010…
## $ sum_population <dbl> 8063, 8063, 8063, 8063, 9474, 9474, 1411…
## $ sum_lits <dbl> 1049, 1049, 1049, 1049, 1049, 1049, 0, 0…
## $ longueur_route <dbl> 6534.5542, 11430.1202, 5575.3683, 4023.2…
## $ longueur_pistes_cyclables <dbl> 1289.284431, 496.151848, 0.000000, 0.000…
## $ superficie_vegetation <dbl> 50377.803, 77494.809, 69676.384, 272402.…
## $ nombre_arrets <dbl> 6, 2, 0, 2, 4, 2, 0, 0, 0, 0, 0, 0, 4, 2…
## $ nombre_parkings <dbl> 1140, 581, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,…
## $ nombre_commerces <dbl> 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_loisirs <dbl> 4, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_restauration <dbl> 1, 3, 0, 0, 0, 0, 0, 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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_eleves <dbl> 0, 613, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,…
## $ superficie_iso <dbl> 404732.3, 739730.7, 458105.5, 458054.3, …
## $ ZA <dbl> 354354.453, 662235.908, 388429.155, 1856…
## $ passage_niveau <dbl> 0, 0, 0, 2, 3, 2, 1, 0, 1, 1, 1, 1, 0, 1…
## $ sum_population_carreau_decoup <dbl> 9.390265e+02, 1.138204e+03, 3.815309e+02…
## $ nombre_arrets_v2 <dbl> 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_sante <dbl> 14, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, …
## $ pente_moyenne <dbl> 3.1583210, 5.2483586, 4.2219857, 1.47476…
## $ geom <POINT [m]> POINT (491941.7 6677342), POINT (4…glimpse(data_foot)## Rows: 112
## Columns: 13
## $ ID_number <dbl> 36960, 36970, 36980, 36990, 37000, 37010…
## $ sum_population_carreau_decoup <dbl> 1.067624e-01, 1.294079e-01, 4.337807e-02…
## $ nombre_loisirs <dbl> 0.05970149, 0.00000000, 0.04477612, 0.00…
## $ nombre_commerces <dbl> 0.02439024, 0.00000000, 0.00000000, 0.00…
## $ nombre_restauration <dbl> 0.01694915, 0.05084746, 0.00000000, 0.00…
## $ nombre_arrets <dbl> 0.0750, 0.0250, 0.0000, 0.0250, 0.0500, …
## $ longueur_route <dbl> 0.26235094, 0.45889937, 0.22384130, 0.16…
## $ ZA <dbl> 0.386597757, 0.731284574, 0.424745884, 0…
## $ passage_niveau <dbl> 0.0000000, 0.0000000, 0.0000000, 0.33333…
## $ pente_moyenne <dbl> 0.29777901, 0.54560680, 0.42390385, 0.09…
## $ total_sum_allegee <dbl> 0.63397298, 0.84983248, 0.31283752, 0.63…
## $ geom <POINT [m]> POINT (491941.7 6677342), POINT (4…
## $ data_rennes_classes <int> 2, 2, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1…glimpse(raw_data_bike)## Rows: 97
## Columns: 23
## $ pk <chr> "201", "202", "203", "204", "205", "206"…
## $ ID_number <int> 36960, 36970, 36980, 36990, 37000, 37010…
## $ sum_population <dbl> 8063, 8063, 8063, 10321, 10321, 10321, 1…
## $ sum_lits <dbl> 1049, 1049, 1049, 1049, 1049, 1049, 1049…
## $ longueur_route <dbl> 70488.271, 79897.218, 68862.102, 55041.0…
## $ longueur_pistes_cyclables <dbl> 9714.884889, 11030.470207, 6423.805881, …
## $ superficie_vegetation <dbl> 2276015.1, 2347082.6, 2080793.6, 2396938…
## $ nombre_arrets <dbl> 10, 8, 6, 6, 4, 4, 2, 4, 4, 4, 4, 4, 4, …
## $ nombre_parkings <dbl> 2757, 6182, 5794, 4006, 3425, 0, 0, 0, 0…
## $ nombre_commerces <dbl> 28, 37, 18, 11, 11, 0, 0, 0, 0, 0, 0, 0,…
## $ nombre_loisirs <dbl> 39, 39, 24, 3, 2, 2, 0, 0, 0, 0, 2, 0, 0…
## $ nombre_restauration <dbl> 53, 54, 28, 7, 4, 1, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_sports <dbl> 0, 2, 1, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_ronds_points <dbl> 9, 12, 8, 7, 5, 0, 0, 0, 0, 0, 1, 0, 0, …
## $ nombre_eleves <dbl> 2758, 1277, 711, 0, 0, 0, 0, 0, 0, 0, 0,…
## $ superficie_iso <dbl> 7950435, 8127495, 7752804, 8093172, 7268…
## $ ZA <dbl> 5674419.5, 5780412.2, 5672010.1, 5696233…
## $ passage_niveau <dbl> 0, 0, 2, 5, 5, 6, 3, 3, 3, 3, 3, 2, 3, 1…
## $ pente_moyenne <dbl> 4.141051, 4.050948, 3.866452, 2.304355, …
## $ sum_population_carreau_decoup <dbl> 5150.12936, 5382.68827, 3974.73846, 1402…
## $ nombre_arrets_v2 <dbl> 3, 2, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_sante <dbl> 42, 41, 20, 8, 1, 0, 0, 0, 0, 1, 2, 0, 0…
## $ geom <POINT [m]> POINT (491941.7 6677342), POINT (4…glimpse(data_bike)## Rows: 112
## Columns: 15
## $ ID_number <dbl> 36960, 36970, 36980, 36990, 37000, 37010…
## $ sum_population_carreau_decoup <dbl> 8.957559e-02, 9.363225e-02, 6.907258e-02…
## $ nombre_eleves <dbl> 0.36675532, 0.16981383, 0.09454787, 0.00…
## $ nombre_loisirs <dbl> 0.118541033, 0.118541033, 0.072948328, 0…
## $ nombre_sante <dbl> 0.108247423, 0.105670103, 0.051546392, 0…
## $ nombre_commerces <dbl> 0.123893805, 0.163716814, 0.079646018, 0…
## $ nombre_restauration <dbl> 0.167192429, 0.170347003, 0.088328076, 0…
## $ nombre_sports <dbl> 0.00000000, 0.11764706, 0.05882353, 0.11…
## $ longueur_route <dbl> 0.2287576263, 0.2608406914, 0.2232126373…
## $ ZA <dbl> 0.419703825, 0.428080684, 0.419513406, 0…
## $ passage_niveau <dbl> 0.00000000, 0.00000000, 0.13333333, 0.33…
## $ pente_moyenne <dbl> 0.8958049, 0.8689401, 0.8139313, 0.34818…
## $ total_sum_allegee <dbl> 1.622667055, 1.628289471, 1.157638835, 0…
## $ geom <POINT [m]> POINT (491941.7 6677342), POINT (4…
## $ data_rennes_classes <int> 3, 3, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1…glimpse(raw_data_car)## Rows: 97
## Columns: 22
## $ pk <chr> "201", "202", "203", "204", "205", "206"…
## $ ID_number <int> 36960, 36970, 36980, 36990, 37000, 37010…
## $ sum_population <dbl> 17001, 15685, 17570, 15581, 14939, 16898…
## $ sum_lits <dbl> 1105, 1105, 1129, 1100, 1100, 1180, 1100…
## $ longueur_route <dbl> 261796.6599, 259747.0885, 278990.2026, 2…
## $ longueur_pistes_cyclables <dbl> 24037.006809, 18972.759083, 15348.049805…
## $ superficie_vegetation <dbl> 24165735.2, 25658293.2, 25845619.8, 2251…
## $ nombre_arrets <dbl> 16, 16, 18, 16, 8, 8, 6, 0, 4, 0, 4, 4, …
## $ nombre_parkings <dbl> 7279, 7279, 7552, 6554, 5605, 4539, 0, 0…
## $ nombre_commerces <dbl> 45, 44, 47, 18, 17, 17, 3, 0, 1, 0, 0, 0…
## $ nombre_loisirs <dbl> 52, 55, 66, 31, 23, 27, 14, 0, 4, 0, 7, …
## $ nombre_restauration <dbl> 62, 61, 63, 12, 11, 12, 2, 0, 1, 0, 1, 1…
## $ nombre_sports <dbl> 2, 2, 2, 2, 2, 2, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_ronds_points <dbl> 23, 18, 19, 12, 10, 11, 2, 0, 1, 0, 2, 2…
## $ nombre_eleves <dbl> 2758, 2758, 2758, 1277, 1179, 613, 0, 0,…
## $ superficie_iso <dbl> 61553463, 65660932, 67302032, 55489182, …
## $ ZA <dbl> 37387727.69, 40002639.02, 41456412.53, 3…
## $ passage_niveau <dbl> 12, 9, 14, 6, 7, 8, 6, 1, 6, 0, 5, 4, 2,…
## $ sum_population_carreau_decoup <dbl> 9.448095e+03, 9.152650e+03, 1.080918e+04…
## $ nombre_arrets_v2 <dbl> 4, 4, 4, 3, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_sante <dbl> 72, 72, 71, 59, 40, 17, 1, 0, 2, 0, 5, 5…
## $ geom <POINT [m]> POINT (491941.7 6677342), POINT (4…glimpse(data_car)## Rows: 112
## Columns: 13
## $ ID_number <dbl> 36960, 36970, 36980, 36990, 37000, 37010…
## $ sum_population_carreau_decoup <dbl> 5.710595e-02, 5.532022e-02, 6.533259e-02…
## $ nombre_eleves <dbl> 0.10957054, 0.10957054, 0.10957054, 0.05…
## $ nombre_loisirs <dbl> 0.059770115, 0.063218391, 0.075862069, 0…
## $ nombre_sante <dbl> 0.0672268908, 0.0672268908, 0.0662931839…
## $ nombre_commerces <dbl> 0.069018405, 0.067484663, 0.072085890, 0…
## $ nombre_restauration <dbl> 0.064248705, 0.063212435, 0.065284974, 0…
## $ nombre_sports <dbl> 0.05128205, 0.05128205, 0.05128205, 0.05…
## $ ZA <dbl> 0.4509011751, 0.4824461781, 0.4999837861…
## $ passage_niveau <dbl> 0.44444444, 0.33333333, 0.51851852, 0.22…
## $ total_sum_allegee <dbl> 1.3735682686, 1.2930947023, 1.5242135977…
## $ geom <POINT [m]> POINT (491941.7 6677342), POINT (4…
## $ data_rennes_classes <int> 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1…