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: 140
## Columns: 27
## $ pk <chr> "230", "231", "232", "233", "234", "41",…
## $ ID_number <int> 17132, 17142, 17152, 17162, 17172, 28298…
## $ sum_population <dbl> 28460, 30790, 32419, 9098, 3291, 24983, …
## $ sum_population_active <dbl> 12525.2369, 13539.0864, 14326.0864, 4152…
## $ sum_lits <dbl> 199, 199, 199, 0, 0, 199, 199, 199, 0, 0…
## $ longueur_route <dbl> 23208.76560, 15505.87590, 4179.69862, 93…
## $ nb_intersections <dbl> 658, 466, 69, 153, 11, 143, 305, 114, 0,…
## $ reseau_pedestre <dbl> 26195.908, 17156.384, 7190.946, 18958.06…
## $ longueur_pistes_cyclables <dbl> 2644.050114, 2417.554271, 7.497998, 193.…
## $ superficie_vegetation <dbl> 102748.399, 99421.293, 107709.288, 38325…
## $ nombre_arrets <dbl> 95, 30, 18, 12, 3, 67, 24, 22, 0, 3, 0, …
## $ nombre_parkings <dbl> 3971, 2084, 4, 4, 0, 2653, 2088, 4, 0, 0…
## $ nombre_commerces <dbl> 13, 19, 0, 1, 0, 3, 8, 0, 0, 0, 0, 3, 4,…
## $ nombre_sante <dbl> 6, 7, 0, 0, 0, 4, 0, 0, 0, 0, 0, 1, 2, 2…
## $ nombre_loisirs <dbl> 16, 6, 0, 2, 0, 2, 2, 1, 0, 0, 1, 0, 1, …
## $ nombre_restauration <dbl> 41, 12, 1, 1, 0, 27, 9, 2, 0, 0, 0, 3, 2…
## $ nombre_sports <dbl> 2, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_ronds_points <dbl> 10, 5, 0, 1, 0, 2, 3, 1, 0, 0, 0, 0, 0, …
## $ nombre_eleves <dbl> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ superficie_iso <dbl> 1311943.1, 763751.8, 438845.3, 1052676.0…
## $ ZA <dbl> 1209194.68, 664330.50, 331136.01, 669416…
## $ passage_niveau <dbl> 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 4, 5, 2…
## $ sum_population_carreau <dbl> 7404.5, 4867.5, 1462.5, 1484.5, 13.0, 16…
## $ sum_population_carreau_decoup <dbl> 4443.976892, 2664.675012, 530.304690, 54…
## $ nombre_arrets_v2 <dbl> 14, 2, 1, 1, 0, 9, 2, 2, 0, 0, 0, 0, 1, …
## $ pente_moyenne <dbl> 0.9350053, 1.0654545, 1.5822313, 2.39931…
## $ geom <POINT [m]> POINT (674486.4 7047121), POINT (6…glimpse(data_foot)## Rows: 162
## Columns: 13
## $ ID_number <dbl> 17132, 17142, 17152, 17162, 17172, 28298…
## $ sum_population_carreau_decoup <dbl> 0.9372084832, 0.5619642241, 0.1118381275…
## $ nombre_loisirs <dbl> 1.0000, 0.3750, 0.0000, 0.1250, 0.0000, …
## $ nombre_commerces <dbl> 0.65, 0.95, 0.00, 0.05, 0.00, 0.15, 0.40…
## $ nombre_restauration <dbl> 1.00000000, 0.29268293, 0.02439024, 0.02…
## $ nombre_arrets <dbl> 1.00000000, 0.31578947, 0.18947368, 0.12…
## $ longueur_route <dbl> 1.000000000, 0.668104291, 0.180091380, 0…
## $ ZA <dbl> 1.00000000, 0.54006671, 0.25880902, 0.54…
## $ passage_niveau <dbl> 0.0, 0.0, 0.2, 0.0, 0.2, 0.0, 0.0, 0.2, …
## $ pente_moyenne <dbl> 0.05259160, 0.06840632, 0.13105665, 0.23…
## $ total_sum_allegee <dbl> 6.53461688, 3.63520131, 0.83354581, 1.15…
## $ geom <POINT [m]> POINT (674486.4 7047121), POINT (6…
## $ data_rennes_classes <int> 5, 4, 2, 3, 2, 3, 3, 3, 1, 2, 2, 3, 3, 3…glimpse(raw_data_bike)## Rows: 140
## Columns: 27
## $ pk <chr> "230", "231", "232", "233", "234", "41",…
## $ ID_number <int> 17132, 17142, 17152, 17162, 17172, 28298…
## $ sum_population <dbl> 49284, 39875, 38567, 63722, 16786, 28460…
## $ sum_population_active <dbl> 21780.096, 17638.462, 17070.313, 27576.8…
## $ sum_lits <dbl> 400, 437, 437, 621, 238, 199, 437, 437, …
## $ longueur_route <dbl> 140018.96, 138620.63, 97192.30, 109460.1…
## $ nb_intersections <dbl> 3755, 3739, 2259, 2135, 1352, 518, 3676,…
## $ reseau_pedestre <dbl> 163466.77, 165796.23, 131428.73, 153826.…
## $ longueur_pistes_cyclables <dbl> 10455.9338, 9139.8082, 6507.9538, 7436.5…
## $ superficie_vegetation <dbl> 976557.0, 1128039.4, 1443974.5, 1858774.…
## $ nombre_arrets <dbl> 302, 272, 138, 136, 104, 98, 263, 152, 4…
## $ nombre_parkings <dbl> 11659, 9633, 5880, 3375, 314, 3971, 8956…
## $ nombre_commerces <dbl> 160, 155, 40, 27, 12, 13, 153, 48, 5, 11…
## $ nombre_sante <dbl> 77, 97, 112, 106, 5, 15, 90, 121, 4, 3, …
## $ nombre_loisirs <dbl> 72, 81, 35, 33, 20, 20, 81, 48, 8, 17, 5…
## $ nombre_restauration <dbl> 185, 179, 38, 35, 12, 50, 171, 52, 6, 11…
## $ nombre_sports <dbl> 6, 7, 1, 0, 0, 3, 6, 3, 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> 7402, 5131, 609, 609, 0, 529, 5131, 609,…
## $ superficie_iso <dbl> 8976100, 8912316, 8719364, 11548225, 883…
## $ ZA <dbl> 7999542.9, 7784276.3, 7275389.4, 9689450…
## $ passage_niveau <dbl> 1, 1, 2, 3, 4, 0, 1, 2, 1, 4, 7, 7, 8, 7…
## $ pente_moyenne <dbl> 1.5277311, 1.4967728, 1.7109212, 1.92291…
## $ sum_population_carreau <dbl> 25927.5, 24387.0, 16411.0, 14514.0, 9580…
## $ sum_population_carreau_decoup <dbl> 23211.1036, 21561.9840, 13431.3228, 1215…
## $ nombre_arrets_v2 <dbl> 63, 51, 18, 19, 13, 13, 44, 22, 5, 12, 8…
## $ geom <POINT [m]> POINT (674486.4 7047121), POINT (6…glimpse(data_bike)## Rows: 162
## Columns: 15
## $ ID_number <dbl> 17132, 17142, 17152, 17162, 17172, 28298…
## $ sum_population_carreau_decoup <dbl> 1.00000000, 0.92893898, 0.57858655, 0.52…
## $ nombre_eleves <dbl> 1.00000000, 0.69319103, 0.08227506, 0.08…
## $ nombre_loisirs <dbl> 0.86746988, 0.97590361, 0.42168675, 0.39…
## $ nombre_sante <dbl> 0.50000000, 0.62987013, 0.72727273, 0.68…
## $ nombre_commerces <dbl> 0.833333333, 0.807291667, 0.208333333, 0…
## $ nombre_restauration <dbl> 0.82959641, 0.80269058, 0.17040359, 0.15…
## $ nombre_sports <dbl> 0.8571429, 1.0000000, 0.1428571, 0.00000…
## $ longueur_route <dbl> 1.00000000, 0.98996612, 0.69269282, 0.78…
## $ ZA <dbl> 0.81564415, 0.79216023, 0.73664459, 1.00…
## $ passage_niveau <dbl> 0.1111111, 0.1111111, 0.2222222, 0.33333…
## $ pente_moyenne <dbl> 0.1687278, 0.1609134, 0.2149681, 0.26847…
## $ total_sum_allegee <dbl> 7.7031866, 7.6200124, 3.7607526, 3.77009…
## $ geom <POINT [m]> POINT (674486.4 7047121), POINT (6…
## $ data_rennes_classes <int> 5, 5, 4, 4, 3, 2, 5, 4, 1, 3, 2, 2, 2, 2…glimpse(raw_data_car)## Rows: 140
## Columns: 26
## $ pk <chr> "230", "231", "232", "233", "234", "41",…
## $ ID_number <int> 17132, 17142, 17152, 17162, 17172, 28298…
## $ sum_population <dbl> 71719, 143870, 112396, 96690, 104561, 12…
## $ sum_population_active <dbl> 31903.379, 62846.054, 49318.401, 42415.0…
## $ sum_lits <dbl> 493, 717, 677, 677, 677, 717, 717, 677, …
## $ longueur_route <dbl> 324429.23, 636308.00, 462628.28, 345492.…
## $ nb_intersections <dbl> 7424, 12679, 9150, 7493, 8841, 10901, 10…
## $ reseau_pedestre <dbl> 413176.86, 868373.68, 624867.52, 471190.…
## $ longueur_pistes_cyclables <dbl> 32345.8585, 61571.3216, 37409.3117, 2555…
## $ superficie_vegetation <dbl> 3575063, 11117016, 8233134, 6238652, 127…
## $ nombre_arrets <int> 449, 750, 569, 473, 572, 664, 635, 556, …
## $ nombre_parkings <dbl> 14645, 22828, 18823, 17588, 18094, 18042…
## $ nombre_commerces <dbl> 191, 273, 216, 198, 217, 242, 249, 214, …
## $ nombre_sante <dbl> 272, 302, 268, 195, 201, 292, 285, 218, …
## $ nombre_loisirs <int> 123, 183, 135, 125, 138, 173, 163, 134, …
## $ nombre_restauration <dbl> 229, 313, 257, 243, 262, 288, 285, 261, …
## $ nombre_sports <dbl> 9, 14, 10, 11, 13, 10, 13, 10, 13, 14, 7…
## $ nombre_ronds_points <dbl> 56, 85, 64, 55, 56, 73, 73, 59, 61, 55, …
## $ nombre_eleves <dbl> 10104, 10104, 10104, 8011, 8011, 10104, …
## $ superficie_iso <dbl> 30856404, 85198411, 62693678, 40561545, …
## $ ZA <dbl> 27281341, 74081395, 54460544, 34322893, …
## $ passage_niveau <dbl> 7, 20, 14, 8, 15, 14, 11, 13, 8, 13, 11,…
## $ sum_population_carreau <dbl> 44028.5, 70737.0, 52900.5, 44815.5, 5382…
## $ sum_population_carreau_decoup <dbl> 42456.472, 66213.540, 50797.791, 41960.6…
## $ nombre_arrets_v2 <dbl> 102, 162, 130, 93, 113, 152, 140, 120, 9…
## $ geom <POINT [m]> POINT (674486.4 7047121), POINT (6…glimpse(data_car)## Rows: 162
## Columns: 13
## $ ID_number <dbl> 17132, 17142, 17152, 17162, 17172, 28298…
## $ sum_population_carreau_decoup <dbl> 0.56839560, 0.88802104, 0.68061894, 0.56…
## $ nombre_eleves <dbl> 0.66679865, 0.66679865, 0.66679865, 0.52…
## $ nombre_loisirs <dbl> 0.45318352, 0.67790262, 0.49812734, 0.46…
## $ nombre_sante <dbl> 0.77272727, 0.85795455, 0.76136364, 0.55…
## $ nombre_commerces <dbl> 0.61217949, 0.87500000, 0.69230769, 0.63…
## $ nombre_restauration <dbl> 0.56683168, 0.77475248, 0.63613861, 0.60…
## $ nombre_sports <dbl> 0.45, 0.70, 0.50, 0.55, 0.65, 0.50, 0.65…
## $ ZA <dbl> 0.2755724, 0.7594893, 0.5566078, 0.34838…
## $ passage_niveau <dbl> 0.3181818, 0.9090909, 0.6363636, 0.36363…
## $ total_sum_allegee <dbl> 4.6838704, 7.1090095, 5.6283264, 4.60317…
## $ geom <POINT [m]> POINT (674486.4 7047121), POINT (6…
## $ data_rennes_classes <int> 4, 5, 4, 4, 4, 5, 5, 4, 4, 4, 3, 3, 2, 3…