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()Tableaux des données brutes
str(raw_data_foot)## Classes 'sf' and 'data.frame': 53 obs. of 23 variables:
## $ pk : chr "200" "201" "202" "203" ...
## $ ID_number : int 234340 234350 234360 234370 234380 234390 234400 234410 234420 234430 ...
## $ sum_population : num 52006 60656 2836 2836 2836 ...
## $ sum_lits : num 1096 1096 0 0 0 ...
## $ longueur_route : num 5667 1018 1447 2863 592 ...
## $ longueur_pistes_cyclables : num 1117 732 0 0 0 ...
## $ superficie_vegetation : num 98069 295737 190740 122146 42931 ...
## $ nombre_arrets : num 20 0 0 0 0 0 4 4 0 0 ...
## $ nombre_parkings : num 1226 0 0 0 0 ...
## $ nombre_commerces : num 0 0 0 1 0 0 0 0 0 0 ...
## $ nombre_loisirs : num 2 0 0 1 0 0 1 1 0 0 ...
## $ nombre_restauration : num 1 0 0 0 0 0 0 0 0 0 ...
## $ nombre_sports : num 0 0 0 0 0 0 0 0 0 0 ...
## $ nombre_ronds_points : num 1 0 0 0 0 0 0 0 0 0 ...
## $ nombre_eleves : num 0 0 0 0 0 0 0 0 0 0 ...
## $ superficie_iso : num 371980 342179 314534 365714 93813 ...
## $ ZA : num 273911 46443 123794 243568 50882 ...
## $ passage_niveau : num 0 0 0 1 1 1 1 1 2 1 ...
## $ sum_population_carreau_decoup: num 635.2 17.6 39.8 110.3 38.3 ...
## $ nombre_arrets_v2 : num 2 0 0 0 0 0 1 1 0 0 ...
## $ nombre_sante : num 3 0 0 0 0 0 0 0 0 0 ...
## $ pente_moyenne : num 8.17 4.56 3 3.33 2.71 ...
## $ geom :sfc_POINT of length 53; first list element: 'XY' num 338476 6275064
## - attr(*, "sf_column")= chr "geom"
## - attr(*, "agr")= Factor w/ 3 levels "constant","aggregate",..: NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "names")= chr [1:22] "pk" "ID_number" "sum_population" "sum_lits" ...str(raw_data_bike)## Classes 'sf' and 'data.frame': 53 obs. of 27 variables:
## $ pk : chr "200" "201" "202" "203" ...
## $ ID_number : int 234340 234350 234360 234370 234380 234390 234400 234410 234420 234430 ...
## $ sum_population : num 65955 63917 60656 60656 58103 ...
## $ sum_population_active : num 31731 30723 29097 29097 27964 ...
## $ sum_lits : num 1103 1096 1096 1096 1096 ...
## $ longueur_route : num 84654 58371 15170 16060 10098 ...
## $ nb_intersections : num 2664 1606 146 162 117 ...
## $ reseau_pedestre : num 100225 75207 24451 24630 14697 ...
## $ longueur_pistes_cyclables : num 16607 13472 744 503 310 ...
## $ superficie_vegetation : num 1481016 1589894 1383162 1394707 795478 ...
## $ nombre_arrets : num 368 174 7 7 7 31 38 43 33 56 ...
## $ nombre_parkings : num 5087 3720 0 0 0 ...
## $ nombre_commerces : num 186 52 1 1 1 2 5 3 3 4 ...
## $ nombre_sante : num 328 92 0 0 0 4 8 5 4 8 ...
## $ nombre_loisirs : num 121 47 2 2 1 3 12 16 3 4 ...
## $ nombre_restauration : num 376 174 0 0 0 4 7 6 2 3 ...
## $ nombre_sports : num 4 2 0 0 0 0 0 0 0 1 ...
## $ nombre_ronds_points : num 26 22 0 0 0 1 4 2 0 1 ...
## $ nombre_eleves : num 1324 3373 0 0 0 ...
## $ superficie_iso : num 5311563 4788822 3171400 3179247 1963188 ...
## $ ZA : num 3830547 3198928 1788238 1784541 1167710 ...
## $ passage_niveau : num 1 3 2 2 2 1 3 3 4 4 ...
## $ pente_moyenne : num 5.64 5.21 7.31 7.51 7.44 ...
## $ sum_population_carreau : num 15999 11611 592 672 426 ...
## $ sum_population_carreau_decoup: num 13657 7223 499 602 357 ...
## $ nombre_arrets_v2 : num 53 19 2 2 2 9 10 12 9 14 ...
## $ geom :sfc_POINT of length 53; first list element: 'XY' num 338476 6275064
## - attr(*, "sf_column")= chr "geom"
## - attr(*, "agr")= Factor w/ 3 levels "constant","aggregate",..: NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "names")= chr [1:26] "pk" "ID_number" "sum_population" "sum_population_active" ...str(raw_data_car)## Classes 'sf' and 'data.frame': 53 obs. of 26 variables:
## $ pk : chr "200" "201" "202" "203" ...
## $ ID_number : int 234340 234350 234360 234370 234380 234390 234400 234410 234420 234430 ...
## $ sum_population : num 139786 108814 71316 76615 76615 ...
## $ sum_population_active : num 65258 50725 34403 37037 37037 ...
## $ sum_lits : num 6018 4980 1096 1103 1103 ...
## $ longueur_route : num 548746 320121 47652 119717 78303 ...
## $ nb_intersections : num 13654 8298 752 1841 1257 ...
## $ reseau_pedestre : num 660004 384339 67795 161985 108784 ...
## $ longueur_pistes_cyclables : num 62106 41932 2707 11138 6178 ...
## $ superficie_vegetation : num 16172512 8170297 4423267 9082468 6042249 ...
## $ nombre_arrets : num 1587 947 74 191 135 ...
## $ nombre_parkings : num 12445 8215 88 2410 92 ...
## $ nombre_commerces : num 453 322 8 62 15 5 11 12 17 18 ...
## $ nombre_sante : num 882 687 3 14 6 5 7 15 14 15 ...
## $ nombre_loisirs : num 394 253 10 22 21 11 17 22 21 26 ...
## $ nombre_restauration : num 708 541 5 31 15 5 10 13 15 16 ...
## $ nombre_sports : num 29 19 0 2 0 0 0 1 2 2 ...
## $ nombre_ronds_points : num 132 87 5 9 6 1 5 4 6 9 ...
## $ nombre_eleves : num 12818 9989 0 710 710 ...
## $ superficie_iso : num 48943782 24678340 9649932 20530079 14150052 ...
## $ ZA : num 32771270 16508043 5226665 11447611 8107803 ...
## $ passage_niveau : int 8 5 3 6 4 6 6 8 9 9 ...
## $ sum_population_carreau : num 76194 43121 5122 8180 5772 ...
## $ sum_population_carreau_decoup: num 71917 39381 3970 7354 5339 ...
## $ nombre_arrets_v2 : num 241 143 16 38 27 12 25 35 38 41 ...
## $ geom :sfc_POINT of length 53; first list element: 'XY' num 338476 6275064
## - attr(*, "sf_column")= chr "geom"
## - attr(*, "agr")= Factor w/ 3 levels "constant","aggregate",..: NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "names")= chr [1:25] "pk" "ID_number" "sum_population" "sum_population_active" ...```