Overview
The insee package contains tools to easily download data and metadata from INSEE BDM database. Using embedded SDMX queries, get the data of more than 140 000 INSEE series from BDM database (Banque de données macroéconomiques).
Installation
# Get the development version from GitHub
# install.packages("devtools")
devtools::install_github("hadrilec2/insee")
Library
library(tidyverse)
library(insee)
get INSEE datasets list
dataset = get_dataset_list()
get INSEE series key (idbank) list
idbank_list = get_idbank_list()
select idbanks
idbank_list_selected =
idbank_list %>%
filter(nomflow == "ENQ-CONJ-ACT-IND") %>%
filter(dim12 == "A88-29") %>%
filter(dim8 == "CVS") %>%
filter(dim13 == "SOLDE_PROPORTION") %>%
filter(dim10 == "ECAI_TPE")
get idbank title
idbank_list_selected =
idbank_list_selected %>%
mutate(title = get_insee_title(idbank, lang = "fr"))
extract selected idbanks list
list_idbank = idbank_list_selected %>% pull(idbank)
get selected idbanks data
data = get_insee_idbank(list_idbank)
avoid proxy issues
Sys.setenv(http_proxy = "my_proxy_server")
Sys.setenv(https_proxy = "my_proxy_server")
Full example : French GDP plot
library(tidyverse)
library(insee)
idbank_list = get_idbank_list()
idbank_list_selected =
idbank_list %>%
filter(nomflow == "CNT-2014-PIB-EQB-RF") %>% # Gross domestic product balance
filter(dim1 == "T") %>% #quarter
filter(dim4 == "PIB") %>% #GDP
filter(dim6 == "TAUX") #rate
idbank = idbank_list_selected %>% pull(idbank)
idbank_title = get_insee_title(idbank)
data = get_insee_idbank(idbank)
# plot
ggplot(data, aes(x = DATE, y = OBS_VALUE)) +
geom_col() +
ggtitle("French GDP growth rate, quarter-on-quarter, sa-wda") +
labs(subtitle = sprintf("Last updated : %s", data$TIME_PERIOD[1]))