source | dataset | .html | .RData |
---|---|---|---|
insee | ENQ-CONJ-IND-BAT | 2024-04-18 | 2024-05-09 |
source | dataset | .html | .RData |
---|---|---|---|
acpr | as151 | 2024-04-05 | 2024-04-05 |
bdf | BSI1 | 2024-05-08 | 2024-05-08 |
bdf | CPP | 2024-05-08 | 2024-05-08 |
bdf | FM | 2024-05-08 | 2024-05-08 |
bdf | immobilier | 2024-05-08 | 2024-05-07 |
bdf | MIR | 2024-05-08 | 2024-05-08 |
bdf | MIR1 | 2024-05-08 | 2024-05-08 |
bdf | RPP | 2024-05-08 | 2024-05-08 |
insee | CONSTRUCTION-LOGEMENTS | 2024-05-09 | 2024-05-09 |
insee | ENQ-CONJ-ART-BAT | 2024-05-09 | 2023-10-25 |
insee | ENQ-CONJ-IND-BAT | 2024-04-18 | 2024-05-09 |
insee | ENQ-CONJ-PROMO-IMMO | 2024-04-18 | 2024-05-09 |
insee | ENQ-CONJ-TP | 2024-04-18 | 2024-05-09 |
insee | ILC-ILAT-ICC | 2024-04-18 | 2024-05-09 |
insee | INDICES_LOYERS | 2024-04-18 | 2024-05-09 |
insee | IPLA-IPLNA-2015 | 2024-04-18 | 2024-05-09 |
insee | IRL | 2024-04-18 | 2024-05-09 |
insee | PARC-LOGEMENTS | 2024-04-18 | 2023-12-03 |
insee | SERIES_LOYERS | 2024-04-18 | 2024-05-09 |
insee | t_dpe_val | 2024-04-18 | 2024-03-04 |
notaires | arrdt | 2024-04-08 | 2024-04-08 |
notaires | dep | 2024-04-08 | 2024-04-08 |
`ENQ-CONJ-IND-BAT` %>%
group_by(LAST_UPDATE) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
LAST_UPDATE | Nobs |
---|---|
2024-04-25 | 68605 |
2016-10-25 | 1336 |
`ENQ-CONJ-IND-BAT` %>%
left_join(NATURE, by = "NATURE") %>%
group_by(NATURE, Nature) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}
NATURE | Nature | Nobs |
---|---|---|
SOLDE_PROPORTION | Solde d’opinions | 62150 |
PROPORTION | Proportion | 6870 |
INDICE | Indice | 921 |
`ENQ-CONJ-IND-BAT` %>%
group_by(UNIT_MEASURE) %>%
summarise(Nobs = n()) %>%
{if (is_html_output()) print_table(.) else .}
UNIT_MEASURE | Nobs |
---|---|
MOIS | 3534 |
POURCENT | 65486 |
SO | 921 |
`ENQ-CONJ-IND-BAT` %>%
filter(INDICATEUR == "ECB_DREC_ENT",
CORRECTION == "BRUT") %>%
left_join(ACTIVITE_ECB, by = "ACTIVITE_ECB") %>%
quarter_to_date() %>%
arrange(desc(date)) %>%
mutate(OBS_VALUE = OBS_VALUE / 100) %>%
ggplot + theme_minimal() + xlab("") + ylab("Difficultés de recrutement (%)") +
geom_line(aes(x = date, y = OBS_VALUE, color = Activite_ecb)) +
scale_x_date(breaks = seq(1960, 2022, 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 = 0.01*seq(-500, 200, 5),
labels = percent_format(accuracy = 1))
`ENQ-CONJ-IND-BAT` %>%
filter(INDICATEUR == "ECB_DREC_ENT",
CORRECTION == "CVS") %>%
left_join(ACTIVITE_ECB, by = "ACTIVITE_ECB") %>%
quarter_to_date() %>%
arrange(desc(date)) %>%
mutate(OBS_VALUE = OBS_VALUE / 100) %>%
ggplot + theme_minimal() + xlab("") + ylab("Difficultés de recrutement (%)") +
geom_line(aes(x = date, y = OBS_VALUE, color = Activite_ecb)) +
scale_x_date(breaks = seq(1960, 2022, 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 = 0.01*seq(-500, 200, 5),
labels = percent_format(accuracy = 1))
`ENQ-CONJ-IND-BAT` %>%
filter(INDICATEUR %in% c("ECB_DMAN", "ECB_DQUA", "ECB_DSPE", "ECB_DTEC")) %>%
left_join(INDICATEUR, by = "INDICATEUR") %>%
quarter_to_date() %>%
mutate(OBS_VALUE = OBS_VALUE / 100) %>%
ggplot + theme_minimal() + xlab("") + ylab("Difficultés de recrutement (%)") +
geom_line(aes(x = date, y = OBS_VALUE, color = Indicateur)) +
scale_x_date(breaks = seq(1960, 2022, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
theme(legend.position = c(0.65, 0.9),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 5),
labels = percent_format(accuracy = 1))