2.102 – Revenu « arbitrable » des ménages et évolution du pouvoir d’achat « arbitrable » par personne, par ménage et par unité de consommation (En milliards deuros et %) - t_2102

Data - INSEE

Info

  • Comptes de la Nation 2019. html

gdp

Code
gdp <- `CNA-2014-PIB` %>%
  year_to_date %>%
  filter(OPERATION == "PIB",
         UNIT_MEASURE %in% c("EUR2014", "EUROS_COURANTS")) %>%
  select(date, UNIT_MEASURE, OBS_VALUE) %>%
  mutate(OBS_VALUE = (OBS_VALUE %>% as.numeric)/1000,
         UNIT_MEASURE = paste0("PIB_", UNIT_MEASURE)) %>%
  spread(UNIT_MEASURE, OBS_VALUE)

gdp %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

2019

Code
t_2102 %>%
  filter(date == as.Date("2019-12-31")) %>%
  select(-date) %>%
  mutate(value = round(value) %>% paste0(" Mds€")) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}