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: 81
## Columns: 23
## $ pk <chr> "2", "0", "0", "859", "809", "851", "852…
## $ ID_number <int> 7654, 9562, 9763, 157142, 185575, 185995…
## $ sum_population <dbl> 870731, 59950, 870731, 870731, 26433, 87…
## $ sum_lits <dbl> 13036, 602, 13036, 13036, 26, 13036, 130…
## $ longueur_route <dbl> 23837.8826, 3088.9376, 9708.1782, 11731.…
## $ longueur_pistes_cyclables <dbl> 2.625374e+03, 0.000000e+00, 5.051633e+01…
## $ superficie_vegetation <dbl> 25912.397, 294126.796, 41893.045, 3302.5…
## $ nombre_arrets <dbl> 56, 1, 7, 12, 20, 39, 19, 0, 21, 29, 12,…
## $ nombre_parkings <dbl> 390, 0, 0, 0, 268, 4, 4, 0, 2, 2, 0, 0, …
## $ nombre_commerces <dbl> 84, 0, 15, 4, 25, 19, 17, 0, 12, 16, 15,…
## $ nombre_loisirs <dbl> 41, 0, 10, 1, 3, 42, 24, 0, 30, 17, 15, …
## $ nombre_restauration <dbl> 184, 0, 9, 13, 56, 52, 25, 1, 20, 25, 9,…
## $ nombre_sports <dbl> 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0…
## $ nombre_ronds_points <dbl> 1, 0, 1, 1, 0, 0, 2, 1, 2, 7, 2, 1, 0, 0…
## $ nombre_eleves <dbl> 1977, 0, 0, 0, 437, 0, 1404, 0, 1404, 19…
## $ superficie_iso <dbl> 899331.49, 366760.37, 369476.42, 516038.…
## $ ZA <dbl> 873419.09, 72633.57, 327583.37, 512735.7…
## $ passage_niveau <dbl> 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0…
## $ sum_population_carreau_decoup <dbl> 17488.049583, 7.897468, 1864.353394, 366…
## $ nombre_arrets_v2 <dbl> 20, 1, 2, 4, 3, 13, 9, 0, 8, 13, 5, 6, 3…
## $ nombre_sante <dbl> 253, 0, 9, 0, 8, 27, 19, 0, 15, 16, 10, …
## $ pente_moyenne <dbl> 4.834770, 3.569486, 5.026152, 2.779766, …
## $ geom <POINT [m]> POINT (892598.7 6248662), POINT (8…glimpse(data_foot)## Rows: 96
## Columns: 13
## $ ID_number <dbl> 7654, 9562, 9763, 157142, 185575, 185995…
## $ sum_population_carreau_decoup <dbl> 0.8231961276, 0.0003717490, 0.0877586999…
## $ nombre_loisirs <dbl> 0.29927007, 0.00000000, 0.07299270, 0.00…
## $ nombre_commerces <dbl> 0.79245283, 0.00000000, 0.14150943, 0.03…
## $ nombre_restauration <dbl> 1.000000000, 0.000000000, 0.048913043, 0…
## $ nombre_arrets <dbl> 1.00000000, 0.01785714, 0.12500000, 0.21…
## $ longueur_route <dbl> 1.000000000, 0.129581040, 0.407258413, 0…
## $ ZA <dbl> 0.956806403, 0.076985647, 0.357098260, 0…
## $ passage_niveau <dbl> 0.0, 0.0, 0.5, 0.0, 0.0, 0.0, 0.0, 0.0, …
## $ pente_moyenne <dbl> 0.125738642, 0.081734266, 0.132394586, 0…
## $ total_sum_allegee <dbl> 5.745986792, 0.143061313, 1.608135965, 1…
## $ geom <POINT [m]> POINT (892598.7 6248662), POINT (8…
## $ data_rennes_classes <int> 5, 2, 3, 3, 3, 4, 3, 1, 3, 4, 4, 2, 2, 2…glimpse(raw_data_bike)## Rows: 81
## Columns: 23
## $ pk <chr> "2", "0", "0", "859", "809", "851", "852…
## $ ID_number <int> 7654, 9562, 9763, 157142, 185575, 185995…
## $ sum_population <dbl> 870731, 59950, 870731, 870731, 70871, 89…
## $ sum_lits <dbl> 13036, 602, 13036, 13036, 459, 13218, 13…
## $ longueur_route <dbl> 145376.98, 16151.78, 77767.03, 63627.62,…
## $ longueur_pistes_cyclables <dbl> 7281.81800, 0.00000, 303.13570, 2373.014…
## $ superficie_vegetation <dbl> 156560.39, 2568157.55, 685459.80, 44364.…
## $ nombre_arrets <dbl> 261, 9, 98, 82, 62, 100, 134, 66, 133, 1…
## $ nombre_parkings <dbl> 4908, 2375, 3143, 2821, 1121, 1140, 3147…
## $ nombre_commerces <dbl> 765, 12, 59, 124, 75, 40, 66, 30, 65, 83…
## $ nombre_loisirs <dbl> 451, 2, 64, 38, 22, 94, 117, 21, 122, 10…
## $ nombre_restauration <dbl> 1133, 5, 105, 193, 75, 93, 130, 54, 128,…
## $ nombre_sports <dbl> 19, 1, 4, 3, 0, 0, 2, 1, 2, 2, 4, 4, 5, …
## $ nombre_ronds_points <dbl> 6, 2, 16, 5, 5, 9, 13, 8, 12, 20, 16, 7,…
## $ nombre_eleves <dbl> 4859, 0, 4211, 1367, 943, 1404, 2788, 94…
## $ superficie_iso <dbl> 5822832, 3918870, 3621190, 3446798, 2375…
## $ ZA <dbl> 5666271, 1350712, 2935730, 3402434, 2210…
## $ passage_niveau <dbl> 0, 2, 2, 0, 1, 1, 2, 1, 2, 2, 2, 1, 0, 0…
## $ pente_moyenne <dbl> 4.554742, 2.717568, 6.924543, 3.460783, …
## $ sum_population_carreau_decoup <dbl> 77410.59460, 829.48259, 15812.27997, 114…
## $ nombre_arrets_v2 <dbl> 103, 4, 42, 28, 21, 42, 53, 21, 55, 55, …
## $ nombre_sante <dbl> 451, 0, 66, 58, 49, 53, 78, 15, 78, 77, …
## $ geom <POINT [m]> POINT (892598.7 6248662), POINT (8…glimpse(data_bike)## Rows: 96
## Columns: 15
## $ ID_number <dbl> 7654, 9562, 9763, 157142, 185575, 185995…
## $ sum_population_carreau_decoup <dbl> 0.894107557, 0.009580687, 0.182634936, 0…
## $ nombre_eleves <dbl> 0.57625712, 0.00000000, 0.49940702, 0.16…
## $ nombre_loisirs <dbl> 0.868978805, 0.003853565, 0.123314066, 0…
## $ nombre_sante <dbl> 0.96573876, 0.00000000, 0.14132762, 0.12…
## $ nombre_commerces <dbl> 1.000000000, 0.015686275, 0.077124183, 0…
## $ nombre_restauration <dbl> 1.000000000, 0.004413063, 0.092674316, 0…
## $ nombre_sports <dbl> 1.00000000, 0.05263158, 0.21052632, 0.15…
## $ longueur_route <dbl> 1.0000000, 0.1111027, 0.5349336, 0.43767…
## $ ZA <dbl> 0.8897974, 0.2121078, 0.4610096, 0.53429…
## $ passage_niveau <dbl> 0.00, 0.50, 0.50, 0.00, 0.25, 0.25, 0.50…
## $ pente_moyenne <dbl> 0.14300124, 0.06202099, 0.24745904, 0.09…
## $ total_sum_allegee <dbl> 8.1948797, 0.4093757, 2.3229516, 1.95369…
## $ geom <POINT [m]> POINT (892598.7 6248662), POINT (8…
## $ data_rennes_classes <int> 5, 1, 3, 3, 2, 2, 3, 2, 3, 3, 4, 3, 3, 3…glimpse(raw_data_car)## Rows: 81
## Columns: 22
## $ pk <chr> "2", "0", "0", "859", "809", "851", "852…
## $ ID_number <int> 7654, 9562, 9763, 157142, 185575, 185995…
## $ sum_population <dbl> 892628, 65768, 892628, 892628, 86183, 90…
## $ sum_lits <dbl> 13218, 1046, 13218, 13218, 530, 13569, 1…
## $ longueur_route <dbl> 904865.9, 345586.0, 622620.4, 895285.2, …
## $ longueur_pistes_cyclables <dbl> 36119.134, 16224.108, 11966.018, 32081.0…
## $ superficie_vegetation <dbl> 4119986, 16467503, 5429482, 5908583, 251…
## $ nombre_arrets <dbl> 1252, 254, 828, 1276, 261, 569, 661, 199…
## $ nombre_parkings <dbl> 20171, 19480, 20311, 19420, 29208, 9907,…
## $ nombre_commerces <dbl> 3062, 154, 1273, 2960, 171, 384, 463, 15…
## $ nombre_loisirs <dbl> 3014, 148, 772, 2879, 109, 294, 343, 88,…
## $ nombre_restauration <dbl> 5019, 210, 2078, 4899, 162, 598, 706, 14…
## $ nombre_sports <dbl> 113, 21, 46, 87, 5, 10, 12, 3, 12, 24, 3…
## $ nombre_ronds_points <dbl> 61, 63, 59, 64, 42, 45, 64, 27, 60, 85, …
## $ nombre_eleves <dbl> 51947, 5297, 19256, 49458, 4679, 11136, …
## $ superficie_iso <dbl> 45363884, 44574870, 37802931, 49718225, …
## $ ZA <dbl> 41243899, 28107366, 32373449, 43809642, …
## $ passage_niveau <dbl> 2, 3, 2, 2, 3, 2, 2, 1, 2, 2, 2, 2, 2, 2…
## $ sum_population_carreau_decoup <dbl> 416865.747, 47509.380, 188640.237, 38190…
## $ nombre_arrets_v2 <dbl> 554, 105, 319, 539, 93, 195, 232, 67, 24…
## $ nombre_sante <dbl> 3573, 148, 915, 2573, 85, 329, 406, 80, …
## $ geom <POINT [m]> POINT (892598.7 6248662), POINT (8…glimpse(data_car)## Rows: 96
## Columns: 13
## $ ID_number <dbl> 7654, 9562, 9763, 157142, 185575, 185995…
## $ sum_population_carreau_decoup <dbl> 0.97329805, 0.11092489, 0.44043718, 0.89…
## $ nombre_eleves <dbl> 0.973318844, 0.099248656, 0.360795188, 0…
## $ nombre_loisirs <dbl> 1.00000000, 0.04910418, 0.25613802, 0.95…
## $ nombre_sante <dbl> 1.00000000, 0.04142177, 0.25608732, 0.72…
## $ nombre_commerces <dbl> 1.00000000, 0.05029393, 0.41574135, 0.96…
## $ nombre_restauration <dbl> 1.00000000, 0.04184100, 0.41402670, 0.97…
## $ nombre_sports <dbl> 1.00000000, 0.18584071, 0.40707965, 0.76…
## $ ZA <dbl> 0.8827388, 0.6015166, 0.6928434, 0.93766…
## $ passage_niveau <dbl> 0.250, 0.375, 0.250, 0.250, 0.375, 0.250…
## $ total_sum_allegee <dbl> 8.0793557, 1.5551917, 3.4931488, 7.39403…
## $ geom <POINT [m]> POINT (892598.7 6248662), POINT (8…
## $ data_rennes_classes <int> 5, 3, 4, 5, 3, 3, 3, 2, 3, 4, 4, 3, 4, 4…