Indices de prix et cours des matières premières
Data - INSEE
Info
Informations
- Août 2023. html
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 | 2025-01-31 | 2025-01-31 |
| insee | IPPMP-NF | 2025-01-31 | 2025-01-31 |
| insee | t_5404 | 2025-01-26 | 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 | 2025-01-31 | 2024-08-25 |
| eurostat | ei_isen_m | 2025-01-31 | 2024-10-09 |
| eurostat | nrg_bal_c | 2023-12-31 | 2024-10-08 |
| eurostat | nrg_pc_202 | 2025-01-31 | 2025-01-31 |
| eurostat | nrg_pc_203 | 2023-06-11 | 2024-12-29 |
| eurostat | nrg_pc_203_c | 2025-01-26 | 2024-10-08 |
| eurostat | nrg_pc_203_h | 2025-01-26 | 2025-01-26 |
| eurostat | nrg_pc_203_v | 2025-01-26 | 2024-10-08 |
| eurostat | nrg_pc_204 | 2025-01-31 | 2025-01-31 |
| eurostat | nrg_pc_205 | 2023-06-11 | 2024-10-08 |
| fred | energy | 2025-01-31 | 2025-01-31 |
| iea | world_energy_balances_highlights_2022 | 2024-06-20 | 2023-04-24 |
| wb | CMO | 2025-01-31 | 2025-01-31 |
| 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 | 2025-01-31 | 2025-01-31 |
LAST_DOWNLOAD
Code
tibble(LAST_DOWNLOAD = as.Date(file.info("~/iCloud/website/data/insee/IPPMP-NF.RData")$mtime)) %>%
print_table_conditional()| LAST_DOWNLOAD |
|---|
| 2025-01-31 |
Last
Code
`IPPMP-NF` %>%
group_by(TIME_PERIOD) %>%
summarise(Nobs = n()) %>%
arrange(desc(TIME_PERIOD)) %>%
head(1) %>%
print_table_conditional()| TIME_PERIOD | Nobs |
|---|---|
| 2024-12 | 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 | 37066 |
| 2010 | 2010 | 28593 |
| 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 | 63532 |
| COUR_NORV | NA | 420 |
| DA | Dollar australien | 420 |
| LIT | Livre sterling | 420 |
| USD | Dollar US | 420 |
| YUAN | NA | 420 |
| 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 | 17456 |
| E | Prix en euros | 14632 |
| D | Prix en devises | 12071 |
| SO | Sans objet | 9409 |
| 0151 | Cent US | 5457 |
| 0207 | Euro | 3294 |
| 0201 | Euro avec rétropolation en euro converti à taux fixe | 1666 |
| 0147 | Yuan chinois | 1237 |
| 0014 | Couronne norvégienne | 420 |
| 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 | 65804 |
| 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 | 34939 |
| IPIMPI | Indices des prix internationaux des matières importées | 19184 |
| IIEMP | Indices internationaux en euros des matières premières | 9409 |
| CDECMPI | Cours des devises étrangères | 2506 |
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 | 37066 |
| INDICE | Indice | 28972 |
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)