Code
`MARIAGES-NUPTIALITE-PACS-DIVORCES` %>%
group_by(LAST_UPDATE) %>%
summarise(Nobs = n()) %>%
arrange(desc(LAST_UPDATE)) %>%
print_table_conditional()| LAST_UPDATE | Nobs |
|---|---|
| 2025-06-18 | 29111 |
| 2019-10-15 | 3570 |
| 2016-04-18 | 164 |
| 2015-04-07 | 33 |
Data - INSEE
`MARIAGES-NUPTIALITE-PACS-DIVORCES` %>%
group_by(LAST_UPDATE) %>%
summarise(Nobs = n()) %>%
arrange(desc(LAST_UPDATE)) %>%
print_table_conditional()| LAST_UPDATE | Nobs |
|---|---|
| 2025-06-18 | 29111 |
| 2019-10-15 | 3570 |
| 2016-04-18 | 164 |
| 2015-04-07 | 33 |
`MARIAGES-NUPTIALITE-PACS-DIVORCES` %>%
group_by(IDBANK, TITLE_FR) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}`MARIAGES-NUPTIALITE-PACS-DIVORCES` %>%
left_join(INDICATEUR, by = "INDICATEUR") %>%
group_by(INDICATEUR, Indicateur) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()| INDICATEUR | Indicateur | Nobs |
|---|---|---|
| NOMBRE_MARIAGES | Nombre de mariages | 28143 |
| TAUX_NUPTIALITE | Taux de nuptialité | 2373 |
| NOMBRE_PACS | Nombre de Pactes civils de solidarité | 1196 |
| NOMBRE_DIVORCES | Nombre de divorces | 1166 |
`MARIAGES-NUPTIALITE-PACS-DIVORCES` %>%
left_join(DEMOGRAPHIE, by = "DEMOGRAPHIE") %>%
group_by(DEMOGRAPHIE, Demographie) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()| DEMOGRAPHIE | Demographie | Nobs |
|---|---|---|
| MARENREG-SD | Mariages enregistrés entre personnes de sexe différent | 7023 |
| MARENREG-TOT | Mariages enregistrés | 7023 |
| MARDOMI-SD | Mariages domiciliés entre personnes de sexe différent | 5632 |
| MARDOMI-TOT | Mariages domiciliés | 5632 |
| TXNUP | Taux de nuptialité | 2373 |
| MARENREG-MS | Mariages enregistrés entre personnes de même sexe | 1544 |
| MARDOMI-MS | Mariages domiciliés entre personnes de même sexe | 1289 |
| PACS | Pactes civils de solidarité (PACS) | 1196 |
| DIVORCE | Divorces prononcés | 1166 |
`MARIAGES-NUPTIALITE-PACS-DIVORCES` %>%
group_by(TIME_PERIOD) %>%
summarise(Nobs = n()) %>%
arrange(desc(TIME_PERIOD)) %>%
print_table_conditional()