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 | 2024-11-09 | 2023-11-01 |
| insee | IPPMP-NF | 2024-11-05 | 2024-11-09 |
| insee | t_5404 | 2024-11-05 | 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-09-15 | 2024-08-25 |
| eurostat | ei_isen_m | 2024-11-08 | 2024-10-09 |
| eurostat | nrg_bal_c | 2023-12-31 | 2024-10-08 |
| eurostat | nrg_pc_202 | 2024-11-05 | 2024-10-08 |
| eurostat | nrg_pc_203 | 2023-06-11 | 2024-10-08 |
| eurostat | nrg_pc_203_c | 2024-11-05 | 2024-10-08 |
| eurostat | nrg_pc_203_h | 2024-11-05 | 2024-11-09 |
| eurostat | nrg_pc_203_v | 2024-11-05 | 2024-10-08 |
| eurostat | nrg_pc_204 | 2024-11-05 | 2024-11-09 |
| eurostat | nrg_pc_205 | 2023-06-11 | 2024-10-08 |
| fred | energy | 2024-11-09 | 2024-11-09 |
| 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-09-18 | 2024-09-18 |
| wdi | EG.USE.PCAP.KG.OE | 2024-09-18 | 2024-09-18 |
| yahoo | energy | 2024-11-05 | 2024-11-05 |
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-11-09 |
Last
Code
`IPPMP-NF` %>%
group_by(TIME_PERIOD) %>%
summarise(Nobs = n()) %>%
arrange(desc(TIME_PERIOD)) %>%
head(1) %>%
print_table_conditional()| TIME_PERIOD | Nobs |
|---|---|
| 2024-09 | 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 | 36822 |
| 2010 | 2010 | 28401 |
| 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 | 63111 |
| COUR_NORV | NA | 417 |
| DA | Dollar australien | 417 |
| LIT | Livre sterling | 417 |
| USD | Dollar US | 417 |
| YUAN | NA | 417 |
| 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 | 17369 |
| E | Prix en euros | 14530 |
| D | Prix en devises | 11990 |
| SO | Sans objet | 9349 |
| 0151 | Cent US | 5387 |
| 0207 | Euro | 3276 |
| 0201 | Euro avec rétropolation en euro converti à taux fixe | 1657 |
| 0147 | Yuan chinois | 1231 |
| 0014 | Couronne norvégienne | 417 |
| 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 | 65368 |
| 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 | 34710 |
| IPIMPI | Indices des prix internationaux des matières importées | 19052 |
| IIEMP | Indices internationaux en euros des matières premières | 9349 |
| CDECMPI | Cours des devises étrangères | 2491 |
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 | 36822 |
| INDICE | Indice | 28780 |
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)