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

#install.packages("clipr")
library(clipr)
## Warning: le package 'clipr' a été compilé avec la version R 4.4.3
## Welcome to clipr. See ?write_clip for advisories on writing to the clipboard in R.

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

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.

plot(DATA$ANNEE,DATA$PRIX_BAGUETTE, type= "l")

plot(DATA$ANNEE,DATA$SMIC_BRUTE, type= "l")

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.