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: 130
## Columns: 23
## $ pk <chr> "400", "401", "402", "449", "400", "401"…
## $ ID_number <int> 59644, 59654, 59664, 139951, 237618, 237…
## $ sum_population <dbl> 130592, 130592, 130592, 41407, 130592, 1…
## $ sum_lits <dbl> 2213, 2213, 2213, 628, 2213, 2213, 41, 2…
## $ longueur_route <dbl> 8039.0896, 20413.8806, 22432.5703, 11296…
## $ longueur_pistes_cyclables <dbl> 180.27942, 75.12034, 0.00000, 1465.78165…
## $ superficie_vegetation <dbl> 16003.530, 11817.479, 33461.005, 33681.5…
## $ nombre_arrets <dbl> 21, 46, 39, 121, 38, 54, 5, 28, 13, 37, …
## $ nombre_parkings <dbl> 0, 785, 2197, 10, 237, 1061, 2, 0, 0, 45…
## $ nombre_commerces <dbl> 2, 10, 20, 4, 0, 6, 1, 2, 0, 3, 24, 1, 1…
## $ nombre_loisirs <dbl> 3, 24, 37, 7, 9, 18, 3, 3, 3, 7, 35, 4, …
## $ nombre_restauration <dbl> 5, 21, 57, 9, 4, 12, 5, 5, 0, 7, 48, 4, …
## $ nombre_sports <dbl> 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0…
## $ nombre_ronds_points <dbl> 0, 5, 3, 3, 0, 2, 1, 0, 0, 1, 6, 1, 2, 1…
## $ nombre_eleves <dbl> 0, 0, 0, 0, 1371, 0, 185, 0, 0, 0, 502, …
## $ superficie_iso <dbl> 437114.5, 908258.4, 981383.0, 372558.3, …
## $ ZA <dbl> 421110.97, 896440.89, 947922.03, 338876.…
## $ passage_niveau <dbl> 1, 4, 0, 0, 1, 4, 1, 1, 0, 3, 4, 0, 0, 0…
## $ sum_population_carreau_decoup <dbl> 1345.027455, 5021.914034, 5881.750272, 1…
## $ nombre_arrets_v2 <dbl> 2, 6, 5, 3, 7, 5, 2, 2, 1, 3, 4, 1, 15, …
## $ nombre_sante <dbl> 7, 14, 20, 2, 1, 14, 0, 6, 1, 7, 23, 1, …
## $ pente_moyenne <dbl> 6.487931, 4.560747, 3.839342, 4.349968, …
## $ geom <POINT [m]> POINT (566364 6528559), POINT (565…glimpse(data_foot)## Rows: 144
## Columns: 13
## $ ID_number <dbl> 59644, 59654, 59664, 139951, 237618, 237…
## $ sum_population_carreau_decoup <dbl> 0.2018813772, 0.7537622501, 0.8828190386…
## $ nombre_loisirs <dbl> 0.06250000, 0.50000000, 0.77083333, 0.14…
## $ nombre_commerces <dbl> 0.07692308, 0.38461538, 0.76923077, 0.15…
## $ nombre_restauration <dbl> 0.08771930, 0.36842105, 1.00000000, 0.15…
## $ nombre_arrets <dbl> 0.15441176, 0.33823529, 0.28676471, 0.88…
## $ longueur_route <dbl> 0.321991933, 0.817642946, 0.898498096, 0…
## $ ZA <dbl> 0.39791842, 0.85376252, 0.90313322, 0.31…
## $ passage_niveau <dbl> 0.25, 1.00, 0.00, 0.00, 0.25, 1.00, 0.25…
## $ pente_moyenne <dbl> 0.37426421, 0.22833723, 0.17371219, 0.21…
## $ total_sum_allegee <dbl> 1.17908167, 4.78810222, 5.33756698, 2.08…
## $ geom <POINT [m]> POINT (566364 6528559), POINT (565…
## $ data_rennes_classes <int> 3, 5, 5, 4, 4, 4, 3, 3, 2, 4, 5, 2, 5, 3…glimpse(raw_data_bike)## Rows: 130
## Columns: 23
## $ pk <chr> "400", "401", "402", "449", "400", "401"…
## $ ID_number <int> 59644, 59654, 59664, 139951, 237618, 237…
## $ sum_population <dbl> 141594, 141594, 140204, 63026, 141594, 1…
## $ sum_lits <dbl> 2213, 2213, 2213, 702, 2213, 2213, 55, 2…
## $ longueur_route <dbl> 109524.356, 161743.215, 171480.724, 1408…
## $ longueur_pistes_cyclables <dbl> 9547.34770, 6418.93569, 5456.07924, 5461…
## $ superficie_vegetation <dbl> 770544.0, 423488.9, 547755.7, 460267.9, …
## $ nombre_arrets <dbl> 237, 407, 414, 613, 252, 377, 5, 269, 11…
## $ nombre_parkings <dbl> 6770, 7423, 4791, 3096, 7542, 7512, 1422…
## $ nombre_commerces <dbl> 71, 328, 322, 186, 25, 318, 5, 89, 9, 10…
## $ nombre_loisirs <dbl> 93, 285, 297, 189, 76, 273, 9, 119, 21, …
## $ nombre_restauration <dbl> 73, 409, 407, 240, 53, 438, 8, 108, 9, 1…
## $ nombre_sports <dbl> 3, 8, 7, 8, 5, 8, 0, 4, 1, 5, 8, 6, 12, …
## $ nombre_ronds_points <dbl> 15, 18, 19, 28, 16, 17, 4, 15, 6, 15, 19…
## $ nombre_eleves <dbl> 3582, 6016, 7232, 7344, 4301, 7219, 185,…
## $ superficie_iso <dbl> 6133882, 7697608, 8166190, 6485979, 6258…
## $ ZA <dbl> 5363338.4, 7274119.0, 7618434.3, 6025711…
## $ passage_niveau <dbl> 5, 5, 5, 0, 5, 5, 3, 5, 0, 5, 5, 2, 2, 1…
## $ pente_moyenne <dbl> 5.230103, 4.727438, 4.391586, 4.464730, …
## $ sum_population_carreau_decoup <dbl> 20117.5115, 38879.2628, 40328.2531, 2086…
## $ nombre_arrets_v2 <dbl> 32, 54, 59, 50, 35, 48, 2, 38, 16, 38, 5…
## $ nombre_sante <dbl> 55, 197, 211, 99, 34, 176, 7, 69, 11, 88…
## $ geom <POINT [m]> POINT (566364 6528559), POINT (565…glimpse(data_bike)## Rows: 144
## Columns: 15
## $ ID_number <dbl> 59644, 59654, 59664, 139951, 237618, 237…
## $ sum_population_carreau_decoup <dbl> 0.375823301, 0.726319105, 0.753388273, 0…
## $ nombre_eleves <dbl> 0.34241468, 0.57508842, 0.69132970, 0.70…
## $ nombre_loisirs <dbl> 0.263456091, 0.807365439, 0.841359773, 0…
## $ nombre_sante <dbl> 0.156250000, 0.559659091, 0.599431818, 0…
## $ nombre_commerces <dbl> 0.204022989, 0.942528736, 0.925287356, 0…
## $ nombre_restauration <dbl> 0.154008439, 0.862869198, 0.858649789, 0…
## $ nombre_sports <dbl> 0.25000000, 0.66666667, 0.58333333, 0.66…
## $ longueur_route <dbl> 0.54830884, 0.81182529, 0.86096450, 0.70…
## $ ZA <dbl> 0.59624769, 0.81047909, 0.84908275, 0.67…
## $ passage_niveau <dbl> 0.8333333, 0.8333333, 0.8333333, 0.00000…
## $ pente_moyenne <dbl> 0.30673657, 0.25042137, 0.21279485, 0.22…
## $ total_sum_allegee <dbl> 2.8905320, 6.7628010, 6.9628273, 4.99308…
## $ geom <POINT [m]> POINT (566364 6528559), POINT (565…
## $ data_rennes_classes <int> 3, 4, 4, 4, 3, 4, 2, 3, 2, 3, 4, 4, 5, 3…glimpse(raw_data_car)## Rows: 130
## Columns: 22
## $ pk <chr> "400", "401", "402", "449", "400", "401"…
## $ ID_number <int> 59644, 59654, 59664, 139951, 237618, 237…
## $ sum_population <dbl> 184209, 163334, 181206, 106557, 176854, …
## $ sum_lits <dbl> 2412, 2353, 2402, 1351, 2433, 2402, 84, …
## $ longueur_route <dbl> 833253.949, 661763.564, 675697.061, 7410…
## $ longueur_pistes_cyclables <dbl> 41115.1459, 35981.4146, 33314.9701, 4012…
## $ superficie_vegetation <dbl> 16907760.0, 10165473.9, 11245390.5, 1410…
## $ nombre_arrets <dbl> 1208, 1077, 1054, 2134, 1253, 965, 9, 12…
## $ nombre_parkings <dbl> 52134, 36034, 28700, 25305, 50250, 27231…
## $ nombre_commerces <dbl> 491, 441, 439, 336, 483, 409, 7, 468, 41…
## $ nombre_loisirs <dbl> 541, 537, 542, 349, 563, 502, 12, 550, 4…
## $ nombre_restauration <dbl> 648, 603, 611, 416, 663, 582, 15, 642, 5…
## $ nombre_sports <dbl> 27, 22, 20, 26, 26, 19, 0, 26, 20, 24, 2…
## $ nombre_ronds_points <dbl> 85, 75, 78, 143, 104, 60, 5, 81, 64, 77,…
## $ nombre_eleves <dbl> 18015, 19476, 18194, 12892, 17630, 16794…
## $ superficie_iso <dbl> 72524369, 47111386, 54117573, 64035306, …
## $ ZA <dbl> 55616609.4, 36945912.3, 42872182.0, 4992…
## $ passage_niveau <dbl> 8, 8, 7, 8, 9, 6, 8, 7, 7, 8, 10, 7, 8, …
## $ sum_population_carreau_decoup <dbl> 105387.3530, 103063.9652, 107850.4263, 7…
## $ nombre_arrets_v2 <dbl> 227, 194, 192, 201, 242, 171, 5, 228, 17…
## $ nombre_sante <dbl> 543, 530, 443, 319, 524, 523, 7, 539, 46…
## $ geom <POINT [m]> POINT (566364 6528559), POINT (565…glimpse(data_car)## Rows: 144
## Columns: 13
## $ ID_number <dbl> 59644, 59654, 59664, 139951, 237618, 237…
## $ sum_population_carreau_decoup <dbl> 0.925483268, 0.905079761, 0.947113465, 0…
## $ nombre_eleves <dbl> 0.92498460, 1.00000000, 0.93417540, 0.66…
## $ nombre_loisirs <dbl> 0.952464789, 0.945422535, 0.954225352, 0…
## $ nombre_sante <dbl> 0.79385965, 0.77485380, 0.64766082, 0.46…
## $ nombre_commerces <dbl> 1.00000000, 0.89816701, 0.89409369, 0.68…
## $ nombre_restauration <dbl> 0.97737557, 0.90950226, 0.92156863, 0.62…
## $ nombre_sports <dbl> 1.00000000, 0.81481481, 0.74074074, 0.96…
## $ ZA <dbl> 0.683882626, 0.453196181, 0.526418412, 0…
## $ passage_niveau <dbl> 0.5714286, 0.5714286, 0.5000000, 0.57142…
## $ total_sum_allegee <dbl> 7.8294791, 7.2724649, 7.0659965, 5.83012…
## $ geom <POINT [m]> POINT (566364 6528559), POINT (565…
## $ data_rennes_classes <int> 5, 5, 5, 4, 5, 4, 2, 5, 4, 5, 5, 4, 5, 4…