---
title: "Analyse pouvoir achat baguette"
author: "ESA"
date: "2025-09-16"
output:
  html_document: default
---

## Objectif

Ce document computationnel vise à sauvegarder la démarche visant à inspecter le pouvoir d'achat baguette en France depuis 20 ans.

## Code
### Installation des librairies nécessaires
```{r}
#install.packages("clipr")
library(clipr)
```

### Import des données  
0.Demander les données à Gemini!  
1.importer les données dans R avec `DATA <- read_clip_tbl(dec=",")`   
2.afficher ces données avec `dput(DATA)`   
3.copier le résultat de la commande précédente  
4.le coller dans un bloc de code R suivant  

```{r setup3, echo=TRUE}
DATA <- structure(list(ANNEE = 2025:2002, PRIX_BAGUETTE = c(1.02, 1.01, 
0.94, 0.9, 0.88, 0.88, 0.87, 0.87, 0.86, 0.86, 0.87, 0.87, 0.86, 
0.87, 0.84, 0.83, 0.8, 0.77, 0.75, 0.74, 0.71, 0.68, 0.68, 0.68
), SMIC_BRUTE = c(1801.8, 1766.92, 1709.28, 1603.12, 1554.58, 
1539.42, 1521.22, 1498.47, 1480.27, 1466.62, 1457.52, 1445.38, 
1430.22, 1398.4, 1365, 1343.8, 1321, 1279.7, 1254.3, 1217.9, 
1154.2, 1127.1, 1090.5, 1035.9), POUVOIR_ACHAT_BAGUETTE = c(1766.47, 
1749.43, 1818.38, 1781.24, 1766.57, 1749.34, 1748.53, 1722.38, 
1721.24, 1705.37, 1675.31, 1661.36, 1663.05, 1607.36, 1625, 1619.04, 
1651.25, 1661.95, 1672.4, 1645.81, 1625.63, 1657.5, 1603.67, 
1523.38)), class = "data.frame", row.names = c(NA, -24L))
```


### Génération de graphiques

La fonction plot est utilisée.

```{r, echo=TRUE}
plot(DATA$ANNEE,DATA$PRIX_BAGUETTE, type= "l")

```

```{r, echo=TRUE}
plot(DATA$ANNEE,DATA$SMIC_BRUTE, type= "l")

```



```{r, echo=TRUE}
plot(DATA$ANNEE,DATA$POUVOIR_ACHAT_BAGUETTE, type= "l")

```

### OBSERVATION

Sur les 20 dernières années, le prix de la baguette de pain a augmenté mais pas autant que le SMIC; le *"pouvoir d'achat baguette"* a donc lui aussi légèrement augmenté sur la periode.