Twitter

Data - INSEE

Info

source	dataset	Title	.html	.rData
insee	twitter	Twitter	2025-10-10	2025-10-10

LAST_COMPILE

LAST_COMPILE
2025-10-11

Indice mensuel des prix agricoles à la production (IPPAP)

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

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

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