Conjoncture auprès des ménages - ENQ-CONJ-MENAGES

Data - INSEE

Author

François Geerolf

Info

source dataset Title .html .rData
insee ENQ-CONJ-MENAGES Conjoncture auprès des ménages - ENQ-CONJ-MENAGES 2025-10-10 2025-10-09

TITLE_FR

Code 
`ENQ-CONJ-MENAGES` %>%
  group_by(IDBANK, TITLE_FR) %>%
  summarise(Nobs = n(),
            date1 = first(TIME_PERIOD),
            date2 = last(TIME_PERIOD)) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

INDICATEUR

Code 
`ENQ-CONJ-MENAGES` %>%
  left_join(INDICATEUR, by = "INDICATEUR") %>%
  group_by(INDICATEUR, Indicateur) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

UNIT_MEASURE

Code 
`ENQ-CONJ-MENAGES` %>%
  group_by(UNIT_MEASURE) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) print_table(.) else .}
UNIT_MEASURE Nobs
POURCENT 459
SO 19159

Confiance des ménages

Tous

Code 
`ENQ-CONJ-MENAGES` %>%
  filter(INDICATEUR %in% c("IND_SYNT_CONF")) %>%
  month_to_date() %>%
  ggplot + theme_minimal() + xlab("") + ylab("Confiance des ménages") +
  geom_line(aes(x = date, y = OBS_VALUE)) +
  scale_x_date(breaks = seq(1960, 20100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.15, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(-500, 200, 5))

2005-

Code 
`ENQ-CONJ-MENAGES` %>%
  filter(INDICATEUR %in% c("IND_SYNT_CONF")) %>%
  month_to_date() %>%
  filter(date >= as.Date("2005-01-01")) %>%
  ggplot + theme_minimal() + xlab("") + ylab("Confiance des ménages") +
  geom_line(aes(x = date, y = OBS_VALUE)) +
  scale_x_date(breaks = seq(1960, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.15, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(-500, 200, 5))