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: 120
## Columns: 23
## $ pk <chr> "0", "14", "4", "5", "6", "7", "8", "9",…
## $ ID_number <int> 59677, 60592, 62329, 62339, 62349, 62359…
## $ sum_population <dbl> 1323, 43869, 19863, 19863, 35139, 15276,…
## $ sum_lits <dbl> 2075, 1265, 1208, 1208, 1355, 147, 147, …
## $ longueur_route <dbl> 7190.5156, 13427.8049, 8926.8606, 6552.9…
## $ longueur_pistes_cyclables <dbl> 0.0000, 3203.5987, 1269.8445, 2437.8344,…
## $ superficie_vegetation <dbl> 290682.75, 203002.09, 68214.03, 58371.31…
## $ nombre_arrets <dbl> 7, 47, 43, 16, 2, 56, 43, 21, 17, 28, 0,…
## $ nombre_parkings <dbl> 0, 0, 6, 4, 2, 681, 1448, 0, 0, 2, 0, 0,…
## $ nombre_commerces <dbl> 6, 2, 8, 1, 0, 5, 2, 2, 0, 0, 0, 0, 0, 0…
## $ nombre_loisirs <dbl> 2, 5, 4, 0, 0, 3, 2, 1, 1, 0, 0, 2, 5, 1…
## $ nombre_restauration <dbl> 3, 4, 7, 0, 0, 4, 2, 2, 0, 0, 1, 1, 0, 0…
## $ nombre_sports <dbl> 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0…
## $ nombre_ronds_points <dbl> 1, 2, 2, 1, 0, 3, 2, 2, 0, 0, 0, 0, 1, 0…
## $ nombre_eleves <dbl> 0, 795, 0, 0, 0, 1406, 0, 0, 0, 0, 0, 0,…
## $ superficie_iso <dbl> 613762.2, 889261.3, 490969.9, 296499.3, …
## $ ZA <dbl> 323079.50, 686259.25, 422755.86, 238127.…
## $ passage_niveau <dbl> 1, 0, 1, 0, 1, 1, 5, 1, 1, 1, 0, 1, 1, 2…
## $ sum_population_carreau_decoup <dbl> 446.1786594, 3177.2668417, 2221.7175346,…
## $ nombre_arrets_v2 <dbl> 0, 5, 4, 1, 0, 7, 4, 1, 1, 4, 0, 2, 1, 1…
## $ nombre_sante <dbl> 1, 7, 8, 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, …
## $ pente_moyenne <dbl> 4.361562, 2.382734, 1.250996, 3.162099, …
## $ geom <POINT [m]> POINT (382704.9 6502497), POINT (4…glimpse(data_foot)## Rows: 135
## Columns: 13
## $ ID_number <dbl> 59677, 60592, 62329, 62339, 62349, 62359…
## $ sum_population_carreau_decoup <dbl> 0.0560992050, 0.3994860359, 0.2793423326…
## $ nombre_loisirs <dbl> 0.02272727, 0.05681818, 0.04545455, 0.00…
## $ nombre_commerces <dbl> 0.20689655, 0.06896552, 0.27586207, 0.03…
## $ nombre_restauration <dbl> 0.027027027, 0.036036036, 0.063063063, 0…
## $ nombre_arrets <dbl> 0.064220183, 0.431192661, 0.394495413, 0…
## $ longueur_route <dbl> 0.31547187, 0.58912253, 0.39165111, 0.28…
## $ ZA <dbl> 0.33994603, 0.73552651, 0.44851492, 0.24…
## $ passage_niveau <dbl> 0.2, 0.0, 0.2, 0.0, 0.2, 0.2, 1.0, 0.2, …
## $ pente_moyenne <dbl> 0.67252132, 0.29507938, 0.07921141, 0.44…
## $ total_sum_allegee <dbl> 0.55986681, 2.02206808, 2.01917204, 0.28…
## $ geom <POINT [m]> POINT (382704.9 6502497), POINT (4…
## $ data_rennes_classes <int> 2, 3, 3, 1, 1, 3, 3, 2, 2, 2, 1, 2, 2, 2…glimpse(raw_data_bike)## Rows: 120
## Columns: 23
## $ pk <chr> "0", "14", "4", "5", "6", "7", "8", "9",…
## $ ID_number <int> 59677, 60592, 62329, 62339, 62349, 62359…
## $ sum_population <dbl> 1323, 327880, 68071, 59341, 59341, 35139…
## $ sum_lits <dbl> 2075, 12469, 1480, 1570, 1570, 1355, 147…
## $ longueur_route <dbl> 33405.99, 155318.21, 130988.52, 107561.6…
## $ longueur_pistes_cyclables <dbl> 438.08018, 20106.32547, 19304.95282, 163…
## $ superficie_vegetation <dbl> 2865140.5, 1502649.6, 1258001.5, 1297022…
## $ nombre_arrets <dbl> 23, 474, 349, 232, 196, 251, 292, 212, 1…
## $ nombre_parkings <dbl> 8, 5273, 4538, 1919, 1051, 4495, 4497, 4…
## $ nombre_commerces <dbl> 8, 61, 28, 25, 27, 28, 31, 18, 10, 16, 2…
## $ nombre_loisirs <dbl> 8, 107, 64, 40, 35, 36, 41, 18, 10, 23, …
## $ nombre_restauration <dbl> 23, 103, 55, 34, 35, 35, 45, 25, 12, 24,…
## $ nombre_sports <dbl> 1, 7, 6, 3, 3, 2, 3, 2, 1, 1, 3, 4, 0, 0…
## $ nombre_ronds_points <dbl> 2, 39, 24, 19, 14, 18, 20, 11, 8, 5, 2, …
## $ nombre_eleves <dbl> 0, 2428, 1352, 575, 3747, 4233, 4233, 17…
## $ superficie_iso <dbl> 5257191, 9860494, 7980065, 7132980, 5024…
## $ ZA <dbl> 2392051, 8357845, 6722064, 5835958, 4053…
## $ passage_niveau <dbl> 6, 3, 3, 3, 3, 11, 17, 16, 15, 2, 2, 2, …
## $ pente_moyenne <dbl> 3.258687, 1.627553, 1.868813, 1.908166, …
## $ sum_population_carreau_decoup <dbl> 1333.8739, 37522.4136, 24418.5926, 14262…
## $ nombre_arrets_v2 <dbl> 3, 47, 40, 27, 23, 29, 30, 20, 11, 23, 1…
## $ nombre_sante <dbl> 1, 179, 190, 156, 150, 29, 30, 8, 12, 16…
## $ geom <POINT [m]> POINT (382704.9 6502497), POINT (4…glimpse(data_bike)## Rows: 135
## Columns: 15
## $ ID_number <dbl> 59677, 60592, 62329, 62339, 62349, 62359…
## $ sum_population_carreau_decoup <dbl> 0.02080870, 0.58647086, 0.38164536, 0.22…
## $ nombre_eleves <dbl> 0.00000000, 0.26127193, 0.14548585, 0.06…
## $ nombre_loisirs <dbl> 0.012841091, 0.171749599, 0.102728732, 0…
## $ nombre_sante <dbl> 0.002747253, 0.491758242, 0.521978022, 0…
## $ nombre_commerces <dbl> 0.041884817, 0.319371728, 0.146596859, 0…
## $ nombre_restauration <dbl> 0.053613054, 0.240093240, 0.128205128, 0…
## $ nombre_sports <dbl> 0.09090909, 0.63636364, 0.54545455, 0.27…
## $ longueur_route <dbl> 0.17484572, 0.81292983, 0.68558914, 0.56…
## $ ZA <dbl> 0.22237260, 0.82766560, 0.66169830, 0.57…
## $ passage_niveau <dbl> 0.3529412, 0.1764706, 0.1764706, 0.17647…
## $ pente_moyenne <dbl> 0.64719786, 0.20152207, 0.26744178, 0.27…
## $ total_sum_allegee <dbl> 0.6200223, 4.3476747, 3.3193819, 2.39518…
## $ geom <POINT [m]> POINT (382704.9 6502497), POINT (4…
## $ data_rennes_classes <int> 1, 4, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2…glimpse(raw_data_car)## Rows: 120
## Columns: 22
## $ pk <chr> "0", "14", "4", "5", "6", "7", "8", "9",…
## $ ID_number <int> 59677, 60592, 62329, 62339, 62349, 62359…
## $ sum_population <dbl> 4917, 417165, 462061, 448934, 478842, 38…
## $ sum_lits <dbl> 6304, 15996, 16521, 16044, 16618, 12761,…
## $ longueur_route <dbl> 121908.70, 708394.51, 747519.11, 497209.…
## $ longueur_pistes_cyclables <dbl> 9130.5203, 92566.9705, 113594.8843, 8354…
## $ superficie_vegetation <dbl> 9548042, 7595761, 11013551, 9869556, 213…
## $ nombre_arrets <int> 53, 2070, 1970, 1249, 2043, 1427, 1099, …
## $ nombre_parkings <dbl> 638, 50972, 58445, 15320, 55463, 47884, …
## $ nombre_commerces <dbl> 47, 980, 393, 119, 241, 127, 108, 106, 9…
## $ nombre_loisirs <dbl> 22, 1171, 672, 227, 353, 205, 147, 156, …
## $ nombre_restauration <dbl> 81, 1403, 627, 235, 438, 219, 157, 151, …
## $ nombre_sports <dbl> 1, 55, 47, 25, 36, 19, 13, 10, 9, 7, 7, …
## $ nombre_ronds_points <dbl> 7, 98, 112, 83, 134, 84, 71, 55, 48, 34,…
## $ nombre_eleves <dbl> 316, 20369, 21078, 7499, 10098, 8251, 67…
## $ superficie_iso <dbl> 34389047, 46052690, 55073871, 45606602, …
## $ ZA <dbl> 24841004, 38456929, 44060320, 35737047, …
## $ passage_niveau <dbl> 10, 15, 17, 23, 24, 26, 22, 24, 22, 22, …
## $ sum_population_carreau_decoup <dbl> 3032.815, 181724.032, 151665.140, 75535.…
## $ nombre_arrets_v2 <dbl> 11, 231, 217, 130, 225, 164, 133, 125, 1…
## $ nombre_sante <dbl> 8, 1551, 1088, 344, 465, 315, 279, 246, …
## $ geom <POINT [m]> POINT (382704.9 6502497), POINT (4…glimpse(data_car)## Rows: 135
## Columns: 13
## $ ID_number <dbl> 59677, 60592, 62329, 62339, 62349, 62359…
## $ sum_population_carreau_decoup <dbl> 0.01108248, 0.66650001, 0.55624767, 0.27…
## $ nombre_eleves <dbl> 0.007153367, 0.461097906, 0.477147708, 0…
## $ nombre_loisirs <dbl> 0.008448541, 0.449692780, 0.258064516, 0…
## $ nombre_sante <dbl> 0.003389831, 0.657203390, 0.461016949, 0…
## $ nombre_commerces <dbl> 0.029541169, 0.615964802, 0.247014456, 0…
## $ nombre_restauration <dbl> 0.027054108, 0.468603874, 0.209418838, 0…
## $ nombre_sports <dbl> 0.01612903, 0.88709677, 0.75806452, 0.40…
## $ ZA <dbl> 0.39047873, 0.61066072, 0.70127268, 0.56…
## $ passage_niveau <dbl> 0.3846154, 0.5769231, 0.6538462, 0.88461…
## $ total_sum_allegee <dbl> 0.8778926, 5.3937433, 4.3220935, 2.68751…
## $ geom <POINT [m]> POINT (382704.9 6502497), POINT (4…
## $ data_rennes_classes <int> 2, 4, 4, 3, 4, 3, 3, 3, 3, 3, 2, 2, 2, 2…