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

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

```

```{r setup}
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))
```

# Graphique en barres par type de territoire des surfaces artificialisees pour un nouvel habitant

La fonction `creer_graphe_4_2()` produit le graphique en barres par type de territoire des surfaces artificialisees pour un nouvel habitant.

```{r creer_graphe_4_2, fig.height=5,fig.width=8}
creer_graphe_4_2(millesime_stock_artif = 2020,millesime_population = 2018, code_reg = 52)
```
