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: 77
## Columns: 23
## $ pk <chr> "408", "409", "410", "411", "412", "413"…
## $ ID_number <int> 99941, 99951, 99961, 99971, 99981, 99991…
## $ sum_population <dbl> 118258, 118258, 118258, 118258, 119585, …
## $ sum_lits <dbl> 1847, 1847, 1847, 1847, 1847, 0, 0, 10, …
## $ longueur_route <dbl> 7794.7651, 12706.4229, 13926.7256, 3245.…
## $ longueur_pistes_cyclables <dbl> 753.19501, 2995.66890, 5033.64433, 721.9…
## $ superficie_vegetation <dbl> 72988.469, 244365.554, 232003.288, 10137…
## $ nombre_arrets <dbl> 27, 54, 24, 0, 0, 7, 0, 0, 6, 0, 0, 0, 0…
## $ nombre_parkings <dbl> 0, 741, 1303, 0, 0, 2, 0, 0, 470, 0, 0, …
## $ nombre_commerces <dbl> 6, 7, 18, 0, 0, 1, 0, 0, 4, 0, 0, 0, 1, …
## $ nombre_loisirs <dbl> 17, 38, 38, 0, 0, 2, 0, 0, 0, 0, 0, 0, 2…
## $ nombre_restauration <dbl> 3, 27, 44, 1, 0, 3, 0, 0, 1, 0, 0, 0, 0,…
## $ nombre_sports <dbl> 1, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_ronds_points <dbl> 0, 3, 2, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0…
## $ nombre_eleves <dbl> 897, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,…
## $ superficie_iso <dbl> 502849.1, 879494.3, 750666.3, 139438.0, …
## $ ZA <dbl> 429860.610, 635128.738, 518663.012, 3806…
## $ passage_niveau <dbl> 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1…
## $ sum_population_carreau_decoup <dbl> 2974.5706154, 3528.9301744, 1422.5194695…
## $ nombre_arrets_v2 <dbl> 4, 9, 3, 0, 0, 1, 0, 0, 2, 0, 0, 0, 0, 1…
## $ nombre_sante <dbl> 12, 33, 6, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1,…
## $ pente_moyenne <dbl> 6.8301819, 10.5686049, 13.7926321, 35.05…
## $ geom <POINT [m]> POINT (929826.7 6687285), POINT (9…glimpse(data_foot)## Rows: 88
## Columns: 13
## $ ID_number <dbl> 99941, 99951, 99961, 99971, 99981, 99991…
## $ sum_population_carreau_decoup <dbl> 5.108909e-01, 6.061037e-01, 2.443217e-01…
## $ nombre_loisirs <dbl> 0.44736842, 1.00000000, 1.00000000, 0.00…
## $ nombre_commerces <dbl> 0.16216216, 0.18918919, 0.48648649, 0.00…
## $ nombre_restauration <dbl> 0.06666667, 0.60000000, 0.97777778, 0.02…
## $ nombre_arrets <dbl> 0.38571429, 0.77142857, 0.34285714, 0.00…
## $ longueur_route <dbl> 0.44742270, 0.72935386, 0.79939974, 0.18…
## $ ZA <dbl> 0.48211957, 0.71321534, 0.58209544, 0.04…
## $ passage_niveau <dbl> 0.25, 0.25, 0.00, 0.00, 0.00, 0.00, 0.00…
## $ pente_moyenne <dbl> 0.17520494, 0.28444554, 0.37865497, 1.00…
## $ total_sum_allegee <dbl> 2.577139719, 4.574845078, 4.054283325, -…
## $ geom <POINT [m]> POINT (929826.7 6687285), POINT (9…
## $ data_rennes_classes <int> 4, 5, 5, 1, 1, 3, 3, 2, 3, 2, 2, 3, 3, 4…glimpse(raw_data_bike)## Rows: 77
## Columns: 23
## $ pk <chr> "408", "409", "410", "411", "412", "413"…
## $ ID_number <int> 99941, 99951, 99961, 99971, 99981, 99991…
## $ sum_population <dbl> 119581, 122484, 123845, 122484, 121161, …
## $ sum_lits <dbl> 1970, 1970, 1970, 1970, 1847, 1847, 10, …
## $ longueur_route <dbl> 93253.727, 119818.544, 142739.094, 75298…
## $ longueur_pistes_cyclables <dbl> 11196.7706, 21758.2227, 24497.9061, 1694…
## $ superficie_vegetation <dbl> 1383965.0, 2453171.0, 3406471.4, 2340088…
## $ nombre_arrets <dbl> 234, 267, 285, 152, 27, 7, 0, 0, 6, 6, 0…
## $ nombre_parkings <dbl> 4750, 8383, 8387, 6126, 1297, 4, 0, 0, 4…
## $ nombre_commerces <dbl> 140, 317, 316, 275, 5, 3, 0, 0, 5, 5, 1,…
## $ nombre_loisirs <dbl> 190, 379, 409, 292, 19, 9, 3, 0, 2, 2, 4…
## $ nombre_restauration <dbl> 225, 444, 456, 370, 21, 7, 2, 0, 2, 1, 1…
## $ nombre_sports <dbl> 6, 12, 13, 8, 0, 1, 0, 0, 1, 1, 0, 0, 0,…
## $ nombre_ronds_points <dbl> 6, 11, 11, 7, 2, 3, 1, 0, 0, 0, 1, 2, 2,…
## $ nombre_eleves <dbl> 2516, 7282, 7282, 2663, 0, 0, 0, 0, 0, 0…
## $ superficie_iso <dbl> 6595881.0, 8633183.2, 10869694.8, 629835…
## $ ZA <dbl> 5211916.06, 6180012.16, 7463223.38, 3958…
## $ passage_niveau <dbl> 2, 2, 2, 1, 0, 0, 0, 0, 2, 2, 1, 1, 1, 1…
## $ pente_moyenne <dbl> 7.233966, 9.702317, 10.503083, 11.846148…
## $ sum_population_carreau_decoup <dbl> 2.882732e+04, 2.871562e+04, 3.087329e+04…
## $ nombre_arrets_v2 <dbl> 43, 53, 52, 26, 4, 1, 0, 0, 2, 2, 0, 0, …
## $ nombre_sante <dbl> 180, 254, 283, 178, 3, 6, 2, 0, 4, 4, 4,…
## $ geom <POINT [m]> POINT (929826.7 6687285), POINT (9…glimpse(data_bike)## Rows: 88
## Columns: 15
## $ ID_number <dbl> 99941, 99951, 99961, 99971, 99981, 99991…
## $ sum_population_carreau_decoup <dbl> 7.098107e-01, 7.070604e-01, 7.601884e-01…
## $ nombre_eleves <dbl> 0.3124302, 0.9042593, 0.9042593, 0.33068…
## $ nombre_loisirs <dbl> 0.464547677, 0.926650367, 1.000000000, 0…
## $ nombre_sante <dbl> 0.586319218, 0.827361564, 0.921824104, 0…
## $ nombre_commerces <dbl> 0.421686747, 0.954819277, 0.951807229, 0…
## $ nombre_restauration <dbl> 0.493421053, 0.973684211, 1.000000000, 0…
## $ nombre_sports <dbl> 0.42857143, 0.85714286, 0.92857143, 0.57…
## $ longueur_route <dbl> 0.65328118, 0.83940735, 1.00000000, 0.52…
## $ ZA <dbl> 0.69741575, 0.82753154, 1.00000000, 0.52…
## $ passage_niveau <dbl> 0.2222222, 0.2222222, 0.2222222, 0.11111…
## $ pente_moyenne <dbl> 0.25391763, 0.34904287, 0.37990274, 0.43…
## $ total_sum_allegee <dbl> 4.76748389, 7.81791684, 8.46665040, 5.24…
## $ geom <POINT [m]> POINT (929826.7 6687285), POINT (9…
## $ data_rennes_classes <int> 4, 5, 5, 4, 1, 2, 1, 1, 1, 1, 1, 2, 2, 2…glimpse(raw_data_car)## Rows: 75
## Columns: 22
## $ pk <chr> "408", "409", "410", "411", "412", "413"…
## $ ID_number <int> 99941, 99951, 99961, 99971, 99981, 99991…
## $ sum_population <dbl> 128445, 138424, 137709, 131078, 134421, …
## $ sum_lits <dbl> 1970, 2182, 2192, 1980, 2016, 1893, 1980…
## $ longueur_route <dbl> 398368.493, 506353.637, 500955.494, 4647…
## $ longueur_pistes_cyclables <dbl> 43123.190, 50843.685, 48919.219, 44098.0…
## $ superficie_vegetation <dbl> 12820743, 15294291, 20817748, 22546820, …
## $ nombre_arrets <dbl> 643, 697, 673, 585, 513, 214, 57, 37, 20…
## $ nombre_parkings <dbl> 19972, 25992, 19256, 12884, 10126, 5676,…
## $ nombre_commerces <dbl> 392, 468, 418, 418, 398, 85, 37, 35, 22,…
## $ nombre_loisirs <dbl> 566, 591, 587, 564, 548, 219, 104, 59, 3…
## $ nombre_restauration <dbl> 551, 609, 577, 564, 536, 177, 66, 41, 21…
## $ nombre_sports <dbl> 26, 30, 23, 22, 18, 7, 2, 2, 2, 2, 1, 0,…
## $ nombre_ronds_points <dbl> 54, 75, 55, 44, 29, 16, 18, 13, 13, 8, 3…
## $ nombre_eleves <dbl> 14829, 15276, 14632, 12690, 10466, 2698,…
## $ superficie_iso <dbl> 36667043, 46090400, 55816093, 58890505, …
## $ ZA <dbl> 23846299.3, 30796109.8, 34998344.8, 3634…
## $ passage_niveau <dbl> 2, 2, 3, 4, 4, 4, 4, 5, 4, 4, 4, 5, 5, 5…
## $ sum_population_carreau_decoup <dbl> 7.535425e+04, 8.275042e+04, 8.291909e+04…
## $ nombre_arrets_v2 <dbl> 134, 145, 136, 120, 100, 43, 14, 7, 6, 5…
## $ nombre_sante <dbl> 414, 462, 453, 443, 405, 171, 41, 38, 35…
## $ geom <POINT [m]> POINT (929826.7 6687285), POINT (9…glimpse(data_car)## Rows: 86
## Columns: 13
## $ ID_number <dbl> 99941, 99951, 99961, 99971, 99981, 99991…
## $ sum_population_carreau_decoup <dbl> 8.179664e-01, 8.982514e-01, 9.000823e-01…
## $ nombre_eleves <dbl> 0.93943617, 0.96775420, 0.92695597, 0.80…
## $ nombre_loisirs <dbl> 0.923327896, 0.964110930, 0.957585644, 0…
## $ nombre_sante <dbl> 0.735346359, 0.820603908, 0.804618117, 0…
## $ nombre_commerces <dbl> 0.800000000, 0.955102041, 0.853061224, 0…
## $ nombre_restauration <dbl> 0.885852090, 0.979099678, 0.927652733, 0…
## $ nombre_sports <dbl> 0.76470588, 0.88235294, 0.67647059, 0.64…
## $ ZA <dbl> 0.372185305, 0.484537011, 0.552470988, 0…
## $ passage_niveau <dbl> 0.1333333, 0.1333333, 0.2000000, 0.26666…
## $ total_sum_allegee <dbl> 6.3721534563, 7.0851454621, 6.7988975233…
## $ geom <POINT [m]> POINT (929826.7 6687285), POINT (9…
## $ data_rennes_classes <int> 4, 5, 4, 4, 4, 3, 3, 3, 2, 2, 2, 2, 2, 2…