Indices de prix et cours des matières premières - IPPMP-NF

Données - INSEE

Structure

Informations

Prix du pétrole

Valeur

All

Code
`IPPMP-NF` |>
  filter(INDICATEUR == "CIMP",
         MATIERES_PREMIERES == "41") |>
  
  
  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") |>
  
  
  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") |>
  
  
  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") |>
  
  
  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") |>
  
  
  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 = "inside",
    legend.position.inside = c(.25, .8),
        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)