Indices de prix et cours des matières premières

Data - INSEE

Author

François Geerolf

Info

source dataset .html .RData

insee

IPPMP-NF

 2024-06-20 2024-06-24

Informations

Données sur l’énergie

source dataset .html .RData

insee

econ-gen-solde-ech-ext-2

 2024-06-24 2023-11-01

insee

IPPMP-NF

 2024-06-20 2024-06-24

insee

t_5404

 2024-06-20 2021-08-01

sdes

bilan_energetique

 2024-06-20 2022-04-16

Data on energy

Code 
load_data("energy.RData")
energy %>%
  source_dataset_file_updates()
source dataset .html .RData

ec

WOB

 2024-06-19 2024-01-03

eurostat

ei_isen_m

 2024-06-23 2024-06-08

eurostat

nrg_bal_c

 2023-12-31 2024-06-08

eurostat

nrg_pc_202

 2024-06-24 2024-06-08

eurostat

nrg_pc_203

 2023-06-11 2024-06-07

eurostat

nrg_pc_203_c

 2024-06-24 2024-06-08

eurostat

nrg_pc_203_h

 2024-06-24 2024-06-23

eurostat

nrg_pc_203_v

 2024-06-24 2024-06-08

eurostat

nrg_pc_204

 2024-06-24 2024-06-23

eurostat

nrg_pc_205

 2023-06-11 2024-06-08

fred

energy

 2024-06-20 2024-06-07

iea

world_energy_balances_highlights_2022

 2024-06-20 2023-04-24

wb

CMO

 2024-06-20 2024-05-23

wdi

EG.GDP.PUSE.KO.PP.KD

 2024-06-20 2024-04-14

wdi

EG.USE.PCAP.KG.OE

 2024-06-20 2024-04-14

yahoo

energy

 2024-06-23 2024-06-23

LAST_DOWNLOAD

Code 
tibble(LAST_DOWNLOAD = as.Date(file.info("~/Library/Mobile\ Documents/com~apple~CloudDocs/website/data/insee/IPPMP-NF.RData")$mtime)) %>%
  print_table_conditional()
LAST_DOWNLOAD
2024-06-24

Last

Code 
`IPPMP-NF` %>%
  group_by(TIME_PERIOD) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(TIME_PERIOD)) %>%
  head(1) %>%
  print_table_conditional()
TIME_PERIOD Nobs
2024-05 134

TITLE_FR

Code 
`IPPMP-NF` %>%
  group_by(IDBANK, TITLE_FR) %>%
  summarise(Nobs = n(),
            date1 = first(TIME_PERIOD),
            date2 = last(TIME_PERIOD)) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

BASIND

Code 
`IPPMP-NF` %>%
  left_join(BASIND, by = "BASIND") %>%
  group_by(BASIND, Basind) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
BASIND Basind Nobs
SO Sans objet 36542
2010 2010 28145
2015 2015 379

DEVISE

Code 
`IPPMP-NF` %>%
  left_join(DEVISE, by = "DEVISE") %>%
  group_by(DEVISE, Devise) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
DEVISE Devise Nobs
SO Sans objet 62595
COUR_NORV NA 413
DA Dollar australien 413
LIT Livre sterling 413
USD Dollar US 413
YUAN NA 413
DM Dollar malais 406

MONNAIE

Code 
`IPPMP-NF` %>%
  left_join(MONNAIE, by = "MONNAIE") %>%
  group_by(MONNAIE, Monnaie) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
MONNAIE Monnaie Nobs
0048 Dollar US 17253
E Prix en euros 14394
D Prix en devises 11882
SO Sans objet 9269
0151 Cent US 5339
0207 Euro 3252
0201 Euro avec rétropolation en euro converti à taux fixe 1645
0147 Yuan chinois 1223
0014 Couronne norvégienne 413
0121 Ringgit malaisien 396

MATIERES_PREMIERES

Code 
`IPPMP-NF` %>%
  left_join(MATIERES_PREMIERES, by = "MATIERES_PREMIERES") %>%
  group_by(MATIERES_PREMIERES, Matieres_premieres) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

NOUVEAU_FOURNISSEUR

Code 
`IPPMP-NF` %>%
  left_join(NOUVEAU_FOURNISSEUR, by = "NOUVEAU_FOURNISSEUR") %>%
  group_by(NOUVEAU_FOURNISSEUR, Nouveau_fournisseur) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
NOUVEAU_FOURNISSEUR Nouveau_fournisseur Nobs
NOUVEAU Nouveau 64832
SO Sans objet 234

INDICATEUR

Code 
`IPPMP-NF` %>%
  left_join(INDICATEUR, by = "INDICATEUR") %>%
  group_by(INDICATEUR, Indicateur) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
INDICATEUR Indicateur Nobs
CIMP Cours internationaux des matières premières 34450
IPIMPI Indices des prix internationaux des matières importées 18876
IIEMP Indices internationaux en euros des matières premières 9269
CDECMPI Cours des devises étrangères 2471

NATURE

Code 
`IPPMP-NF` %>%
  left_join(NATURE, by = "NATURE") %>%
  group_by(NATURE, Nature) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
NATURE Nature Nobs
VALEUR_ABSOLUE Valeur absolue 36542
INDICE Indice 28524

TIME_PERIOD

Code 
`IPPMP-NF` %>%
  group_by(TIME_PERIOD) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(TIME_PERIOD)) %>%
  print_table_conditional()

Prix du pétrole

Valeur

All

Code 
`IPPMP-NF` %>%
  filter(INDICATEUR == "CIMP",
         MATIERES_PREMIERES == "41") %>%
  left_join(MATIERES_PREMIERES, by = "MATIERES_PREMIERES") %>%
  left_join(MONNAIE, by = "MONNAIE") %>%
  month_to_date %>%
  ggplot + theme_minimal() + xlab("") + ylab("Pétrole brut  Brent (Londres) – par baril") +
  geom_line(aes(x = date, y = OBS_VALUE, color = Monnaie)) +
  scale_x_date(breaks = seq(1990, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 200, 10)) +
  theme(legend.position = c(0.3, 0.9),
        legend.title = element_blank())

Log

Tous

Code 
`IPPMP-NF` %>%
  filter(INDICATEUR == "CIMP",
         MATIERES_PREMIERES == "41") %>%
  left_join(MATIERES_PREMIERES, by = "MATIERES_PREMIERES") %>%
  left_join(MONNAIE, by = "MONNAIE") %>%
  month_to_date %>%
  ggplot + theme_minimal() + xlab("") + ylab("Pétrole brut  Brent (Londres) – par baril") +
  geom_line(aes(x = date, y = OBS_VALUE, color = Monnaie)) +
  scale_x_date(breaks = seq(1990, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 200, 10)) +
  theme(legend.position = c(0.3, 0.9),
        legend.title = element_blank())

2004-

Code 
`IPPMP-NF` %>%
  filter(INDICATEUR == "CIMP",
         MATIERES_PREMIERES == "41") %>%
  left_join(MATIERES_PREMIERES, by = "MATIERES_PREMIERES") %>%
  left_join(MONNAIE, by = "MONNAIE") %>%
  month_to_date %>%
  filter(date >= as.Date("2004-01-01")) %>%
  ggplot + theme_minimal() + xlab("") + ylab("Pétrole brut  Brent (Londres) – par baril") +
  geom_line(aes(x = date, y = OBS_VALUE, color = Monnaie)) +
  scale_x_date(breaks = seq(1990, 2025, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 200, 10)) +
  theme(legend.position = c(0.3, 0.2),
        legend.title = element_blank())

2 years

Code 
`IPPMP-NF` %>%
  filter(INDICATEUR == "CIMP",
         MATIERES_PREMIERES == "41") %>%
  left_join(MATIERES_PREMIERES, by = "MATIERES_PREMIERES") %>%
  left_join(MONNAIE, by = "MONNAIE") %>%
  month_to_date %>%
  filter(date >= Sys.Date() - years(2)) %>%
  ggplot + theme_minimal() + xlab("") + ylab("Pétrole brut  Brent (Londres) – par baril") +
  geom_line(aes(x = date, y = OBS_VALUE, color = Monnaie)) +
  scale_x_date(breaks = "2 months",
               labels = date_format("%b %Y")) +
  scale_y_log10(breaks = seq(0, 200, 10)) +
  theme(legend.position = c(0.3, 0.2),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  geom_text_repel(aes(x = date, y = OBS_VALUE, label = round(OBS_VALUE, 1)), 
                  fontface ="plain", color = "black", size = 3)