6
6
< meta http-equiv ="X-UA-Compatible " content ="IE=edge " />
7
7
< title > Chapitre 3 La mise en page | Cartographie avec R</ title >
8
8
< meta name ="description " content ="Chapitre 3 La mise en page | Cartographie avec R " />
9
- < meta name ="generator " content ="bookdown 0.26 and GitBook 2.6.7 " />
9
+ < meta name ="generator " content ="bookdown 0.31 and GitBook 2.6.7 " />
10
10
11
11
< meta property ="og:title " content ="Chapitre 3 La mise en page | Cartographie avec R " />
12
12
< meta property ="og:type " content ="book " />
91
91
code span .an { color : # 60a0b0 ; font-weight : bold; font-style : italic; } /* Annotation */
92
92
code span .at { color : # 7d9029 ; } /* Attribute */
93
93
code span .bn { color : # 40a070 ; } /* BaseN */
94
- code span .bu { } /* BuiltIn */
94
+ code span .bu { color : # 008000 ; } /* BuiltIn */
95
95
code span .cf { color : # 007020 ; font-weight : bold; } /* ControlFlow */
96
96
code span .ch { color : # 4070a0 ; } /* Char */
97
97
code span .cn { color : # 880000 ; } /* Constant */
104
104
code span .ex { } /* Extension */
105
105
code span .fl { color : # 40a070 ; } /* Float */
106
106
code span .fu { color : # 06287e ; } /* Function */
107
- code span .im { } /* Import */
107
+ code span .im { color : # 008000 ; font-weight : bold; } /* Import */
108
108
code span .in { color : # 60a0b0 ; font-weight : bold; font-style : italic; } /* Information */
109
109
code span .kw { color : # 007020 ; font-weight : bold; } /* Keyword */
110
110
code span .op { color : # 666666 ; } /* Operator */
@@ -550,7 +550,7 @@ <h2><span class="header-section-number">3.18</span> Exercices<a href="la-mise-en
550
550
<!-- # import des départments français -->
551
551
<!-- dep <- st_read("data/lot46.gpkg", layer = "departement", quiet = TRUE) -->
552
552
<!-- # Nombre total d'actifs -->
553
- <!-- com$ACT <- com$AGR_H + com$AGR_F + com$IND_H + com$IND_F + com$BTP_H + -->
553
+ <!-- com$ACT <- com$AGR_H + com$AGR_F + com$IND_H + com$IND_F + com$BTP_H + -->
554
554
<!-- com$BTP_F + com$TER_H + com$TER_F -->
555
555
<!-- # Nombre d'actifs dans l'industrie -->
556
556
<!-- com$IND <- com$IND_F + com$IND_H -->
@@ -559,7 +559,7 @@ <h2><span class="header-section-number">3.18</span> Exercices<a href="la-mise-en
559
559
<!-- # Création d'un thème personnalisé -->
560
560
<!-- th <- mf_theme("green", mar = c(0,0,1.5,0), pos = "left") -->
561
561
<!-- # Cartographie du nombre total de travailleurs de l'industrie -->
562
- <!-- mf_export(com, "img/n_ind.png", theme = th, -->
562
+ <!-- mf_export(com, "img/n_ind.png", theme = th, -->
563
563
<!-- width = 800) -->
564
564
<!-- mf_map(x = com, border = "white", lwd = .2, add = T) -->
565
565
<!-- mf_map(x = dep, lwd = 1, col = NA, add = TRUE, lend = 0) -->
@@ -568,9 +568,9 @@ <h2><span class="header-section-number">3.18</span> Exercices<a href="la-mise-en
568
568
<!-- mf_title("Répartition des actifs travaillant dans l'industrie - 2017") -->
569
569
<!-- mf_scale(5) -->
570
570
<!-- mf_arrow(pos = "topright") -->
571
- <!-- # notez l'utilisation ici de paste0() qui permet de concatener des chaines -->
571
+ <!-- # notez l'utilisation ici de paste0() qui permet de concatener des chaines -->
572
572
<!-- # de caractères et de \n qui permet d'aller à la ligne -->
573
- <!-- mf_credits(paste0("Admin Express COG Carto 3.0, IGN - 2021 & ", -->
573
+ <!-- mf_credits(paste0("Admin Express COG Carto 3.0, IGN - 2021 & ", -->
574
574
<!-- "BD CARTO® 4.0, IGN - 2021 ; Recensements harmonisés - ", -->
575
575
<!-- "Séries départementales et communales, INSEE - 2020\n", -->
576
576
<!-- "Auteurs : T. Giraud & H. Pecout, 2022")) -->
@@ -591,73 +591,73 @@ <h2><span class="header-section-number">3.18</span> Exercices<a href="la-mise-en
591
591
<!-- hist(com_sel$PART_ACT_IND) -->
592
592
<!-- boxplot(com_sel$PART_ACT_IND, horizontal = TRUE) -->
593
593
<!-- summary(com_sel$PART_ACT_IND) -->
594
- <!-- # Creation d'un vecteur contenant les limites de classes en -->
594
+ <!-- # Creation d'un vecteur contenant les limites de classes en -->
595
595
<!-- # utilisant la méthode des quantiles -->
596
596
<!-- bks <- mf_get_breaks(com_sel$PART_ACT_IND, nbreaks = 5, -->
597
597
<!-- breaks = "quantile") -->
598
598
<!-- hist(com_sel$PART_ACT_IND, bks) -->
599
- <!-- mf_export(com, "img/s_ind.png", theme = th, -->
599
+ <!-- mf_export(com, "img/s_ind.png", theme = th, -->
600
600
<!-- width = 800) -->
601
601
<!-- # Cartographie -->
602
- <!-- mf_map(x = com, -->
603
- <!-- var = "PART_ACT_IND", -->
602
+ <!-- mf_map(x = com, -->
603
+ <!-- var = "PART_ACT_IND", -->
604
604
<!-- type = "choro", -->
605
605
<!-- breaks = bks, # Utilisation des bornes de classes créées précédement -->
606
606
<!-- leg_val_rnd = 0, # arrondir les valeurs dans la légende -->
607
607
<!-- pal = "Red-Yellow", # Utilisation d'une palette de couleur -->
608
608
<!-- leg_title = "Part des actifs\ntravaillant dans\nl'industrie", -->
609
- <!-- add = TRUE, -->
609
+ <!-- add = TRUE, -->
610
610
<!-- col_na = "grey", -->
611
611
<!-- leg_no_data = "Communes de moins de 15 actifs") # texte du no data dans la légende -->
612
612
<!-- mf_title("Répartition des actifs travaillant dans l'industrie - 2017") -->
613
613
<!-- mf_scale(5) -->
614
614
<!-- mf_arrow(pos = "topright") -->
615
- <!-- mf_credits(paste0("Admin Express COG Carto 3.0, IGN - 2021 & ", -->
615
+ <!-- mf_credits(paste0("Admin Express COG Carto 3.0, IGN - 2021 & ", -->
616
616
<!-- "BD CARTO® 4.0, IGN - 2021 ; Recensements harmonisés - ", -->
617
617
<!-- "Séries départementales et communales, INSEE - 2020\n", -->
618
618
<!-- "Auteurs : T. Giraud & H. Pecout, 2022")) -->
619
619
<!-- dev.off() -->
620
620
<!-- ``` -->
621
621
<!--  -->
622
- <!-- Nous allons maintenant combiner le nombre total d'actifs et la parts des travailleurs de l'industrie. -->
622
+ <!-- Nous allons maintenant combiner le nombre total d'actifs et la parts des travailleurs de l'industrie. -->
623
623
<!-- ```{r exoc, echo=TRUE, eval = TRUE} -->
624
- <!-- mf_export(com, "img/c_ind.png", theme = th, -->
624
+ <!-- mf_export(com, "img/c_ind.png", theme = th, -->
625
625
<!-- width = 800) -->
626
626
<!-- mf_map(x = com, border = "white", lwd = .2, add = T) -->
627
627
<!-- mf_map(x = dep, lwd = 1, col = NA, add = TRUE, lend = 0) -->
628
- <!-- mf_map(com, c("ACT", "PART_ACT_IND"), "prop_choro", -->
629
- <!-- breaks = bks, -->
630
- <!-- pal = "Red-Yellow", -->
628
+ <!-- mf_map(com, c("ACT", "PART_ACT_IND"), "prop_choro", -->
629
+ <!-- breaks = bks, -->
630
+ <!-- pal = "Red-Yellow", -->
631
631
<!-- inches = .4, -->
632
- <!-- border = "white", lwd = .7, -->
633
- <!-- leg_val_rnd = c(0,1), -->
632
+ <!-- border = "white", lwd = .7, -->
633
+ <!-- leg_val_rnd = c(0,1), -->
634
634
<!-- leg_pos = c(538000,6442000, 538000, 6424000), # ici les légendes sont positionnées manuellement -->
635
- <!-- leg_title = c("Nombre d'actifs*", -->
636
- <!-- "Part des actifs\ndans l'industrie (en %)"), -->
635
+ <!-- leg_title = c("Nombre d'actifs*", -->
636
+ <!-- "Part des actifs\ndans l'industrie (en %)"), -->
637
637
<!-- col_na = "grey", -->
638
638
<!-- leg_no_data = "Communes de moins de 15 actifs") -->
639
639
<!-- # Ajout d'annotations -->
640
- <!-- mf_annotation(x = com[com$NOM_COM=="Biars-sur-Cère",], -->
641
- <!-- txt = "Andros", -->
640
+ <!-- mf_annotation(x = com[com$NOM_COM=="Biars-sur-Cère",], -->
641
+ <!-- txt = "Andros", -->
642
642
<!-- col_arrow = th$fg, halo = T, cex = 1) -->
643
- <!-- mf_annotation(x = com[com$NOM_COM=="Figeac",], -->
644
- <!-- txt = "Industrie\naéronautique", -->
643
+ <!-- mf_annotation(x = com[com$NOM_COM=="Figeac",], -->
644
+ <!-- txt = "Industrie\naéronautique", -->
645
645
<!-- col_arrow = th$fg, pos = "bottomright", halo = T, cex = 1) -->
646
- <!-- mf_annotation(x = com[com$NOM_COM=="Gramat",], -->
647
- <!-- txt = "La Quercynoise (?)", -->
648
- <!-- col_arrow = th$fg, pos = "topleft", s = 1, halo = T, -->
646
+ <!-- mf_annotation(x = com[com$NOM_COM=="Gramat",], -->
647
+ <!-- txt = "La Quercynoise (?)", -->
648
+ <!-- col_arrow = th$fg, pos = "topleft", s = 1, halo = T, -->
649
649
<!-- cex = 1) -->
650
650
<!-- mf_title("Répartition des actifs travaillant dans l'industrie - 2017") -->
651
651
<!-- # ajout d'un carton -> -->
652
- <!-- mf_inset_on(fig = c(.8,0.98,0.1,0.3)) -->
652
+ <!-- mf_inset_on(fig = c(.8,0.98,0.1,0.3)) -->
653
653
<!-- mf_map(dep, lwd = .1) -->
654
654
<!-- mf_map(com, border = NA, add = T, col = th$fg) -->
655
655
<!-- box(col = th$fg, lwd = .5) -->
656
656
<!-- mf_inset_off() -->
657
657
<!-- # <- fin du carton -->
658
658
<!-- mf_scale(5) -->
659
659
<!-- mf_arrow("topright") -->
660
- <!-- mf_credits(paste0("Admin Express COG Carto 3.0, IGN - 2021 & ", -->
660
+ <!-- mf_credits(paste0("Admin Express COG Carto 3.0, IGN - 2021 & ", -->
661
661
<!-- "BD CARTO® 4.0, IGN - 2021 ; Recensements harmonisés - ", -->
662
662
<!-- "Séries départementales et communales, INSEE - 2020\n", -->
663
663
<!-- "Auteurs : T. Giraud & H. Pecout, 2022")) -->
0 commit comments