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> "454", "455", "456", "444", "445", "446"…
## $ ID_number <int> 177120, 177130, 177140, 177156, 177166, …
## $ sum_population <dbl> 1274, 1274, 1274, 1127, 1127, 1127, 1127…
## $ sum_lits <dbl> 1371, 1371, 1371, 192, 192, 192, 192, 46…
## $ longueur_route <dbl> 1443.757098, 3072.848344, 8474.857089, 3…
## $ longueur_pistes_cyclables <dbl> 0.00000, 0.00000, 0.00000, 0.00000, 0.00…
## $ superficie_vegetation <dbl> 157344.02, 293141.24, 238707.35, 44016.7…
## $ nombre_arrets <dbl> 0, 1, 5, 0, 0, 0, 0, 0, 0, 0, 13, 7, 1, …
## $ nombre_parkings <dbl> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 214, 254, …
## $ nombre_commerces <dbl> 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 21, 1, 1, …
## $ nombre_loisirs <dbl> 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 8, 2, 0, 0…
## $ nombre_restauration <dbl> 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 18, 0, 0, …
## $ nombre_sports <dbl> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0…
## $ nombre_ronds_points <dbl> 0, 1, 2, 0, 0, 0, 0, 0, 0, 0, 1, 0, 2, 0…
## $ nombre_eleves <dbl> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ superficie_iso <dbl> 193680.9, 416771.0, 581263.5, 405365.6, …
## $ ZA <dbl> 36336.835, 123629.786, 342556.170, 36134…
## $ passage_niveau <dbl> 1, 3, 2, 2, 1, 2, 0, 0, 0, 2, 2, 0, 1, 0…
## $ sum_population_carreau_decoup <dbl> 2.02881371, 91.74110015, 352.35019334, 2…
## $ nombre_arrets_v2 <dbl> 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 4, 2, 0, 0…
## $ nombre_sante <dbl> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 1, 0…
## $ pente_moyenne <dbl> 22.762786, 13.386935, 10.691244, 3.61755…
## $ geom <POINT [m]> POINT (682621.8 6498682), POINT (6…glimpse(data_foot)## Rows: 96
## Columns: 13
## $ ID_number <dbl> 177120, 177130, 177140, 177156, 177166, …
## $ sum_population_carreau_decoup <dbl> 3.627830e-04, 1.640471e-02, 6.300561e-02…
## $ nombre_loisirs <dbl> 0.00000000, 0.00000000, 0.02083333, 0.00…
## $ nombre_commerces <dbl> 0.00000000, 0.00000000, 0.04761905, 0.00…
## $ nombre_restauration <dbl> 0.00000000, 0.00000000, 0.01666667, 0.00…
## $ nombre_arrets <dbl> 0.00000000, 0.01388889, 0.06944444, 0.00…
## $ longueur_route <dbl> 0.083491260, 0.177700239, 0.490093867, 0…
## $ ZA <dbl> 0.0499381634, 0.1747170048, 0.4876561381…
## $ passage_niveau <dbl> 0.3333333, 1.0000000, 0.6666667, 0.66666…
## $ pente_moyenne <dbl> 0.83750524, 0.44770814, 0.33563589, 0.04…
## $ total_sum_allegee <dbl> -0.370379700, 0.935002705, 1.526349887, …
## $ geom <POINT [m]> POINT (682621.8 6498682), POINT (6…
## $ data_rennes_classes <int> 1, 2, 3, 3, 2, 3, 2, 1, 1, 2, 4, 2, 2, 1…glimpse(raw_data_bike)## Rows: 81
## Columns: 23
## $ pk <chr> "454", "455", "456", "444", "445", "446"…
## $ ID_number <int> 177120, 177130, 177140, 177156, 177166, …
## $ sum_population <dbl> 3519, 3519, 1762, 1859, 1859, 1979, 1615…
## $ sum_lits <dbl> 2638, 2638, 1643, 197, 197, 469, 464, 46…
## $ longueur_route <dbl> 28344.162, 35445.617, 35749.081, 24377.1…
## $ longueur_pistes_cyclables <dbl> 0.0000, 0.0000, 0.0000, 0.0000, 0.0000, …
## $ superficie_vegetation <dbl> 2223156.7, 2957979.6, 2830135.2, 482253.…
## $ nombre_arrets <dbl> 7, 13, 13, 4, 0, 4, 0, 0, 2, 15, 19, 17,…
## $ nombre_parkings <dbl> 254, 1010, 1510, 0, 0, 107, 0, 0, 1088, …
## $ nombre_commerces <dbl> 5, 25, 25, 1, 0, 1, 0, 0, 0, 21, 25, 25,…
## $ nombre_loisirs <dbl> 3, 7, 8, 1, 0, 2, 1, 0, 0, 16, 17, 17, 1…
## $ nombre_restauration <dbl> 3, 35, 35, 2, 0, 1, 1, 0, 2, 25, 26, 25,…
## $ nombre_sports <dbl> 1, 1, 1, 0, 0, 0, 0, 0, 0, 2, 2, 2, 2, 0…
## $ nombre_ronds_points <dbl> 4, 4, 3, 0, 0, 0, 0, 0, 0, 2, 4, 4, 3, 0…
## $ nombre_eleves <dbl> 0, 0, 0, 0, 0, 0, 0, 0, 0, 159, 159, 159…
## $ superficie_iso <dbl> 3761714, 4711718, 4421994, 5889704, 3235…
## $ ZA <dbl> 1538557.8, 1753738.3, 1591858.7, 5407451…
## $ passage_niveau <dbl> 6, 5, 4, 7, 5, 4, 2, 1, 4, 4, 6, 5, 6, 4…
## $ pente_moyenne <dbl> 14.704535, 16.070655, 17.455476, 3.49464…
## $ sum_population_carreau_decoup <dbl> 632.11522, 975.77246, 1032.40495, 264.52…
## $ nombre_arrets_v2 <dbl> 2, 2, 2, 1, 0, 1, 0, 0, 0, 4, 6, 6, 5, 2…
## $ nombre_sante <dbl> 1, 14, 13, 0, 0, 2, 0, 1, 2, 11, 12, 11,…
## $ geom <POINT [m]> POINT (682621.8 6498682), POINT (6…glimpse(data_bike)## Rows: 96
## Columns: 15
## $ ID_number <dbl> 177120, 177130, 177140, 177156, 177166, …
## $ sum_population_carreau_decoup <dbl> 0.0125545311, 0.0193799567, 0.0205047427…
## $ nombre_eleves <dbl> 0.00000000, 0.00000000, 0.00000000, 0.00…
## $ nombre_loisirs <dbl> 0.008021390, 0.018716578, 0.021390374, 0…
## $ nombre_sante <dbl> 0.002583979, 0.036175711, 0.033591731, 0…
## $ nombre_commerces <dbl> 0.017543860, 0.087719298, 0.087719298, 0…
## $ nombre_restauration <dbl> 0.005928854, 0.069169960, 0.069169960, 0…
## $ nombre_sports <dbl> 0.125, 0.125, 0.125, 0.000, 0.000, 0.000…
## $ longueur_route <dbl> 0.17963165, 0.22463726, 0.22656047, 0.15…
## $ ZA <dbl> 0.23105850, 0.26378930, 0.23916603, 0.81…
## $ passage_niveau <dbl> 0.8571429, 0.7142857, 0.5714286, 1.00000…
## $ pente_moyenne <dbl> 0.645490599, 0.723736307, 0.803053078, 0…
## $ total_sum_allegee <dbl> 0.58232277, 0.84458806, 0.82310260, 0.98…
## $ geom <POINT [m]> POINT (682621.8 6498682), POINT (6…
## $ data_rennes_classes <int> 1, 2, 2, 2, 1, 2, 2, 1, 1, 2, 2, 2, 2, 1…glimpse(raw_data_car)## Rows: 80
## Columns: 22
## $ pk <chr> "454", "455", "456", "444", "445", "446"…
## $ ID_number <int> 177120, 177130, 177140, 177156, 177166, …
## $ sum_population <dbl> 4646, 5348, 4221, 6462, 2347, 5507, 4997…
## $ sum_lits <dbl> 2830, 3605, 3413, 1607, 469, 1600, 1575,…
## $ longueur_route <dbl> 125238.204, 130798.508, 115308.164, 1942…
## $ longueur_pistes_cyclables <dbl> 156.87869, 156.87869, 156.87869, 0.00000…
## $ superficie_vegetation <dbl> 18421572, 19211814, 15426984, 17123511, …
## $ nombre_arrets <dbl> 31, 31, 37, 9, 10, 26, 24, 17, 23, 19, 3…
## $ nombre_parkings <dbl> 3568, 3568, 4541, 282, 170, 1838, 1582, …
## $ nombre_commerces <dbl> 50, 50, 50, 5, 2, 25, 25, 22, 27, 25, 51…
## $ nombre_loisirs <dbl> 26, 25, 26, 10, 6, 22, 21, 16, 25, 20, 3…
## $ nombre_restauration <dbl> 66, 64, 66, 9, 6, 33, 32, 20, 32, 28, 66…
## $ nombre_sports <dbl> 3, 3, 3, 0, 0, 2, 1, 0, 2, 2, 3, 3, 3, 0…
## $ nombre_ronds_points <dbl> 7, 7, 8, 1, 0, 3, 2, 2, 4, 5, 7, 7, 7, 4…
## $ nombre_eleves <dbl> 159, 159, 159, 0, 0, 159, 159, 159, 159,…
## $ superficie_iso <dbl> 28899630, 30378856, 25194608, 64964883, …
## $ ZA <dbl> 10478057.3, 11167041.9, 9767624.1, 47841…
## $ passage_niveau <dbl> 11, 11, 10, 14, 8, 13, 13, 10, 14, 11, 1…
## $ sum_population_carreau_decoup <dbl> 3279.52549, 3283.87204, 3199.95027, 1770…
## $ nombre_arrets_v2 <dbl> 8, 8, 10, 2, 2, 7, 6, 4, 7, 6, 9, 9, 8, …
## $ nombre_sante <dbl> 25, 25, 25, 2, 3, 11, 11, 7, 14, 12, 27,…
## $ geom <POINT [m]> POINT (682621.8 6498682), POINT (6…glimpse(data_car)## Rows: 95
## Columns: 13
## $ ID_number <dbl> 177120, 177130, 177140, 177156, 177166, …
## $ sum_population_carreau_decoup <dbl> 0.0227703102, 0.0228004891, 0.0222178057…
## $ nombre_eleves <dbl> 0.007330229, 0.007330229, 0.007330229, 0…
## $ nombre_loisirs <dbl> 0.030516432, 0.029342723, 0.030516432, 0…
## $ nombre_sante <dbl> 0.025641026, 0.025641026, 0.025641026, 0…
## $ nombre_commerces <dbl> 0.073855244, 0.073855244, 0.073855244, 0…
## $ nombre_restauration <dbl> 0.0578439965, 0.0560911481, 0.0578439965…
## $ nombre_sports <dbl> 0.07692308, 0.07692308, 0.07692308, 0.00…
## $ ZA <dbl> 0.164194264, 0.175059845, 0.152990429, 0…
## $ passage_niveau <dbl> 0.7333333, 0.7333333, 0.6666667, 0.93333…
## $ total_sum_allegee <dbl> 1.19240791, 1.20037711, 1.11398490, 1.72…
## $ geom <POINT [m]> POINT (682621.8 6498682), POINT (6…
## $ data_rennes_classes <int> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…