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

Data - INSEE

Info

source dataset .html .RData
insee IPPMP-NF 2024-12-22 2024-12-22

Informations

Données sur l’énergie

source dataset .html .RData
cre TRV_electricite 2024-10-27 2024-10-07
cre TRV_gaz 2024-10-07 2021-09-05
insee econ-gen-solde-ech-ext-2 2024-12-22 2024-12-22
insee IPPMP-NF 2024-12-22 2024-12-22
insee t_5404 2024-11-22 2021-08-01
sdes bilan_energetique 2024-10-07 2024-10-07

Data on energy

Code
load_data("energy.RData")
energy %>%
  source_dataset_file_updates()
source dataset .html .RData
ec WOB 2024-12-22 2024-08-25
eurostat ei_isen_m 2024-11-23 2024-10-09
eurostat nrg_bal_c 2023-12-31 2024-10-08
eurostat nrg_pc_202 2024-12-22 2024-12-22
eurostat nrg_pc_203 2023-06-11 2024-10-08
eurostat nrg_pc_203_c 2024-11-22 2024-10-08
eurostat nrg_pc_203_h 2024-11-22 2024-12-22
eurostat nrg_pc_203_v 2024-11-22 2024-10-08
eurostat nrg_pc_204 2024-12-22 2024-12-22
eurostat nrg_pc_205 2023-06-11 2024-10-08
fred energy 2024-12-22 2024-12-22
iea world_energy_balances_highlights_2022 2024-06-20 2023-04-24
wb CMO 2024-12-22 2024-12-22
wdi EG.GDP.PUSE.KO.PP.KD 2024-09-18 2024-09-18
wdi EG.USE.PCAP.KG.OE 2024-09-18 2024-09-18
yahoo energy 2024-12-22 2024-12-22

LAST_DOWNLOAD

Code
tibble(LAST_DOWNLOAD = as.Date(file.info("~/iCloud/website/data/insee/IPPMP-NF.RData")$mtime)) %>%
  print_table_conditional()
LAST_DOWNLOAD
2024-12-22

Last

Code
`IPPMP-NF` %>%
  group_by(TIME_PERIOD) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(TIME_PERIOD)) %>%
  head(1) %>%
  print_table_conditional()
TIME_PERIOD Nobs
2024-11 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 36996
2010 2010 28529
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 63403
COUR_NORV NA 419
DA Dollar australien 419
LIT Livre sterling 419
USD Dollar US 419
YUAN NA 419
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 17427
E Prix en euros 14598
D Prix en devises 12044
SO Sans objet 9389
0151 Cent US 5445
0207 Euro 3288
0201 Euro avec rétropolation en euro converti à taux fixe 1663
0147 Yuan chinois 1235
0014 Couronne norvégienne 419
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 65670
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 34874
IPIMPI Indices des prix internationaux des matières importées 19140
IIEMP Indices internationaux en euros des matières premières 9389
CDECMPI Cours des devises étrangères 2501

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 36996
INDICE Indice 28908

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, 2100, 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, 2100, 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, 2100, 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())

2010-

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, 2100, 1) %>% 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(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

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(aes(x = date, y = OBS_VALUE, label = round(OBS_VALUE, 1), color = Monnaie), 
                  fontface ="plain", size = 3)