Code
`TCRED-CONSTRUCTION-LOCAUX` %>%
group_by(LAST_UPDATE) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()| LAST_UPDATE | Nobs |
|---|---|
| 2022-05-04 | 25740 |
Data - INSEE
`TCRED-CONSTRUCTION-LOCAUX` %>%
group_by(LAST_UPDATE) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()| LAST_UPDATE | Nobs |
|---|---|
| 2022-05-04 | 25740 |
| LAST_DOWNLOAD |
|---|
| 2025-12-27 |
| LAST_COMPILE |
|---|
| 2025-12-27 |
`TCRED-CONSTRUCTION-LOCAUX` %>%
group_by(IDBANK, TITLE_FR) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()`TCRED-CONSTRUCTION-LOCAUX` %>%
left_join(INDICATEUR, by = "INDICATEUR") %>%
group_by(INDICATEUR, Indicateur) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()| INDICATEUR | Indicateur | Nobs |
|---|---|---|
| SURFACES_LOCAUX_AUTO_ARTISANAT | Surfaces de locaux autorisés pour l'artisanat | 2574 |
| SURFACES_LOCAUX_AUTO_BUREAUX | Surfaces de locaux autorisés pour les bureaux | 2574 |
| SURFACES_LOCAUX_AUTO_COMMERCE | Surfaces de locaux autorisés pour le commerce | 2574 |
| SURFACES_LOCAUX_AUTO_CONSTRUCTION | Surfaces de locaux autorisés à la construction | 2574 |
| SURFACES_LOCAUX_AUTO_ENTREPOTS | Surfaces de locaux autorisés pour les entrepôts | 2574 |
| SURFACES_LOCAUX_AUTO_EXPLOITATIONS | Surfaces de locaux autorisés pour les exploitations | 2574 |
| SURFACES_LOCAUX_AUTO_HOTELLERIE | Surfaces de locaux autorisés pour l'hébergement hôtelier | 2574 |
| SURFACES_LOCAUX_AUTO_INDUSTRY | Surfaces de locaux autorisés pour l'industrie | 2574 |
| SURFACES_LOCAUX_AUTO_SERVICES_PUBLICS | Surfaces de locaux autorisés pour les services publics | 2574 |
| SURFACES_LOCAUX_COMMENCES | Surfaces de locaux commencés | 2574 |
`TCRED-CONSTRUCTION-LOCAUX` %>%
group_by(REF_AREA) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()`TCRED-CONSTRUCTION-LOCAUX` %>%
group_by(TIME_PERIOD) %>%
summarise(Nobs = n()) %>%
arrange(desc(TIME_PERIOD)) %>%
print_table_conditional()| TIME_PERIOD | Nobs |
|---|---|
| 2021 | 1170 |
| 2020 | 1170 |
| 2019 | 1170 |
| 2018 | 1170 |
| 2017 | 1170 |
| 2016 | 1170 |
| 2015 | 1170 |
| 2014 | 1170 |
| 2013 | 1170 |
| 2012 | 1170 |
| 2011 | 1170 |
| 2010 | 1170 |
| 2009 | 1170 |
| 2008 | 1170 |
| 2007 | 1170 |
| 2006 | 1170 |
| 2005 | 1170 |
| 2004 | 1170 |
| 2003 | 1170 |
| 2002 | 1170 |
| 2001 | 1170 |
| 2000 | 1170 |
`TCRED-CONSTRUCTION-LOCAUX` %>%
filter(INDICATEUR == "SURFACES_LOCAUX_AUTO_ARTISANAT",
REF_AREA %in% c("D92", "D93", "D94")) %>%
year_to_date %>%
ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = REF_AREA, linetype = REF_AREA)) +
xlab("") + ylab("") + theme_minimal() +
scale_x_date(breaks = seq(1960, 2020, 1) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%y")) +
scale_color_manual(values = viridis(5)[1:4]) +
theme(legend.position = c(0.8, 0.9),
legend.title = element_blank())