---
title: "Illustrations chapitre 6"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Illustrations chapitre 6}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r, include = FALSE}
options(knitr.kable.NA = '')
knitr::opts_chunk$set(
  collapse = TRUE,
  echo = TRUE, 
  message = FALSE, 
  warning = FALSE, 
  error = FALSE,
  comment = "#>",
  fig.width = 9,
  fig.height = 7
)

```

```{r septup}
library(propre.artificialisation)
library(gouvdown)
ggplot2::theme_set(gouvdown::theme_gouv(plot_title_size = 14, subtitle_size  = 12, base_size = 10, caption_size = 10,strip_text_size  = 10))
```

## Tableau de synthese

La fonction `creer_tableau_6_1()` produit le tableau de synthese.


```{r creer_tableau_6_1, fig.height=8,fig.width=10}
creer_tableau_6_1(millesime_stock_artif = 2020,
                 millesime_population = 2019, 
                 code_reg = '52')
```


