Twitter

Données - INSEE

Auteur

François Geerolf

Info

source dataset Title Updated
insee twitter Twitter 2026-08-13

LAST_COMPILE

LAST_COMPILE
2026-08-15

Indice mensuel des prix agricoles à la production (IPPAP)

https://twitter.com/FrancoisGeerolf/status/1785216547306303994

Code 
library("rsdmx")
library("tidyverse")
twitter1 <- "010538794+010776768" %>%
  paste0("https://www.bdm.insee.fr/series/sdmx/data/SERIES_BDM/", ., "?startPeriod=2016") |>
  readSDMX() |>
  as_tibble()

twitter1 %>%
  mutate(OBS_VALUE = OBS_VALUE |> as.numeric(),
         TIME_PERIOD = TIME_PERIOD |> paste0("-01") |> as.Date()) |>
  group_by(TITLE_FR) |>
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[TIME_PERIOD == as.Date("2020-01-01")]) |>
  ggplot() + geom_line(aes(x = TIME_PERIOD, y = OBS_VALUE, color = TITLE_FR)) +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 200, 5)) +
  xlab("") + ylab("Indice 100 = 2020") +  theme_minimal() +
  theme(legend.position = c(0.4, 0.9),
        legend.title = element_blank())

Group Data

Code 
twitter <- twitter1
save(twitter, file = "twitter.RData")