Un enfant sur dix vit en résidence alternée après la séparation de ses parents - IP1841

Données - INSEE

Figure 1 : part des enfants en résidence alternée selon l’âge

Code
fig1 |>
  filter(age != "Ensemble") |>
  mutate(age = as.integer(age)) |>
  ggplot(aes(x = age, y = part_alternants)) +
  geom_col(fill = "#1B3F8B") +
  theme_minimal(base_size = 12) +
  labs(x = "Âge de l'enfant (années)", y = "%",
       title = "Part des enfants en résidence alternée parmi les enfants ayant des parents séparés",
       subtitle = "selon l'âge, 2020") +
  theme(panel.grid.minor = element_blank())

Figure 2 : diplôme des parents selon leur situation familiale

Code
fig2 |>
  select(situation_familiale, inferieur_bac, baccalaureat, superieur_bac) |>
  mutate(situation_familiale = factor(situation_familiale, levels = rev(ordre_situation))) |>
  pivot_longer(-situation_familiale, names_to = "diplome", values_to = "part") |>
  mutate(diplome = recode(diplome, inferieur_bac = "Inférieur au baccalauréat",
                           baccalaureat = "Baccalauréat", superieur_bac = "Supérieur au baccalauréat"),
         diplome = fct_relevel(diplome, "Inférieur au baccalauréat", "Baccalauréat",
                                "Supérieur au baccalauréat")) |>
  ggplot(aes(x = situation_familiale, y = part, fill = diplome)) +
  geom_col() +
  coord_flip() +
  scale_fill_brewer(palette = "Blues", name = NULL) +
  theme_minimal(base_size = 9) +
  labs(x = NULL, y = "%",
       title = "Diplôme des parents selon leur situation familiale",
       subtitle = "2020") +
  theme(legend.position = "bottom", panel.grid.minor = element_blank())

Figure 3 : situation des parents vis-à-vis de l’emploi

Code
fig3 |>
  select(situation_familiale, en_emploi, au_chomage, au_foyer, autres_inactifs) |>
  mutate(situation_familiale = factor(situation_familiale, levels = rev(ordre_situation))) |>
  pivot_longer(-situation_familiale, names_to = "statut_emploi", values_to = "part") |>
  mutate(statut_emploi = recode(statut_emploi, en_emploi = "En emploi", au_chomage = "Au chômage",
                                 au_foyer = "Au foyer", autres_inactifs = "Autres inactifs"),
         statut_emploi = fct_relevel(statut_emploi, "En emploi", "Au chômage", "Au foyer",
                                      "Autres inactifs")) |>
  ggplot(aes(x = situation_familiale, y = part, fill = statut_emploi)) +
  geom_col() +
  coord_flip() +
  scale_fill_brewer(palette = "Set2", name = NULL) +
  theme_minimal(base_size = 9) +
  labs(x = NULL, y = "%",
       title = "Situation des parents vis-à-vis de l'emploi",
       subtitle = "selon leur situation familiale, 2020") +
  theme(legend.position = "bottom", panel.grid.minor = element_blank())

Figure 4 : caractéristiques des EPCI selon leur part d’enfants alternants

Code
fig4 |>
  filter(indicateur %in% c("Ensemble des enfants", "Dont enfants alternants"),
         categorie_epci != "Ensemble") |>
  ggplot(aes(x = categorie_epci, y = valeur, fill = indicateur, group = indicateur)) +
  geom_col(position = "dodge") +
  scale_fill_manual(values = c("Ensemble des enfants" = "#8FA8D8",
                                "Dont enfants alternants" = "#1B3F8B"), name = NULL) +
  theme_minimal(base_size = 10) +
  labs(x = NULL, y = "€ par an",
       title = "Niveau de vie médian selon la catégorie d'EPCI",
       subtitle = "part d'enfants en résidence alternée parmi les enfants ayant des parents séparés") +
  theme(legend.position = "bottom", axis.text.x = element_text(angle = 20, hjust = 1),
        panel.grid.minor = element_blank())

Code
fig4 |>
  filter(indicateur %in% c("Taux de pauvreté des enfants* (en %)", "Taux d’activité des mères (en %)",
                            "Suroccupés", "Situés dans un pôle"),
         categorie_epci != "Ensemble") |>
  mutate(indicateur = recode(indicateur, "Taux de pauvreté des enfants* (en %)" = "Taux de pauvreté des enfants",
                              "Taux d’activité des mères (en %)" = "Taux d'activité des mères",
                              "Suroccupés" = "Logements suroccupés",
                              "Situés dans un pôle" = "Logements situés dans un pôle")) |>
  ggplot(aes(x = categorie_epci, y = valeur, fill = indicateur)) +
  geom_col(show.legend = FALSE) +
  facet_wrap(~ indicateur, scales = "free_y") +
  theme_minimal(base_size = 9) +
  labs(x = NULL, y = "%",
       title = "Caractéristiques des EPCI selon leur part d'enfants en résidence alternée",
       subtitle = "part d'enfants alternants parmi les enfants ayant des parents séparés") +
  theme(axis.text.x = element_text(angle = 30, hjust = 1), panel.grid.minor = element_blank())

Figure 5 : part d’enfants en résidence alternée selon les EPCI

Code
fig5 |>
  filter(!is.na(categorie_part_alternants)) |>
  count(categorie_part_alternants) |>
  ggplot(aes(x = categorie_part_alternants, y = n)) +
  geom_col(fill = "#1B3F8B") +
  theme_minimal(base_size = 10) +
  labs(x = NULL, y = "Nombre d'EPCI",
       title = "Répartition des EPCI selon leur part d'enfants en résidence alternée",
       subtitle = "2020") +
  theme(axis.text.x = element_text(angle = 20, hjust = 1), panel.grid.minor = element_blank())

Code
fig5 |>
  filter(categorie_part_alternants %in% c("Moins de 7 %", "16 % ou plus")) |>
  arrange(categorie_part_alternants, epci) |>
  select(epci, categorie_part_alternants) |>
  gt(groupname_col = "categorie_part_alternants") |>
  tab_header(title = "EPCI aux parts d'enfants alternants extrêmes", subtitle = "2020") |>
  cols_label(epci = "")
EPCI aux parts d'enfants alternants extrêmes
2020
Moins de 7 %
CA CIVIS (Communauté Intercommunale des VIlles Solidaires)
CA Cap Excellence
CA Chauny-Tergnier-La Fère
CA Creil Sud Oise
CA Grand Sud Caraïbe
CA Intercommunale de la Réunion Est (CIREST)
CA Intercommunale du Nord de la Réunion (CINOR)
CA La Riviera du Levant
CA Maubeuge Val de Sambre
CA Roissy Pays de France
CA Saint-Avold Synergie
CA Territoire de la Côte Ouest (TCO)
CA Valenciennes Métropole
CA de Forbach Porte de France
CA de Lens - Liévin
CA de l'Espace Sud de la Martinique
CA de la Porte du Hainaut
CA du Caudrésis et du Catésis
CA du Centre Littoral
CA du Centre de la Martinique
CA du Nord Basse-Terre
CA du Nord Grande Terre
CA du Pays Nord Martinique
CA du Saint-Quentinois
CA du Sud
CC Agly Fenouillèdes
CC Ardenne, Rives de Meuse
CC Cœur d'Ostrevent
CC Pasquale Paoli
CC Pays de Montereau
CC Pays de Nérondes
CC Thiérache Sambre et Oise
CC de Freyming-Merlebach
CC de Marie-Galante
CC de Vezouze en Piémont
CC de l'Est Guyanais
CC de l'Ouest Guyanais
CC de la Costa Verde
CC de la Haute Comté
CC de la Marche Berrichonne
CC des Lacs de Champagne
CC des Portes de Romilly-sur-Seine
CC des Portes de la Thiérache
CC des Portes du Luxembourg
CC des Savanes
CC des Trois Rivières
CC du Grand Roye
CC du Pays Noyonnais
CC du Pays du Vermandois
CC du Sud Avesnois
CC du Sud Marnais
CC du Ternois
CC du Warndt
16 % ou plus
CA Arche Agglo
CA Clisson Sèvre et Maine Agglo
CA Gaillac-Graulhet
CA Gap-Tallard-Durance
CA Golfe du Morbihan - Vannes Agglomération
CA Grand Auch Cœur de Gascogne
CA Grand Lac
CA Lannion-Trégor Communauté
CA Le Muretain Agglo
CA Les Sables d'Olonne Agglomération
CA Loire Forez Agglomération
CA Mauges Communauté
CA Pays d'Issoire
CA Pornic Agglo Pays de Retz
CA Quimperlé Communauté
CA Rambouillet Territoires
CA Riom Limagne et Volcans
CA Rodez Agglomération
CA Thonon Agglomération
CA Vitré Communauté
CA de Lamballe Terre et Mer
CA de Saintes
CA de la Presqu'île de Guérande Atlantique (Cap Atlantique)
CA de la Rochelle
CA du Bassin de Brive
CA du Cotentin
CA du Grand Annecy
CA du Niortais
CA du Pays Basque
CA du Pays Voironnais
CA du Pays de l'Or
CA du Sicoval
CC Airvaudais-Val du Thouet
CC Anjou Loir et Sarthe
CC Arve et Salève
CC Aubrac Lot Causses Tarn
CC Aunis Atlantique
CC Auray Quiberon Terre Atlantique
CC Aure-Louron
CC Auxonne Pontailler Val de Saône
CC Bassin Auterivain Haut-Garonnais
CC Beaujolais Pierres Dorées
CC Billom Communauté
CC Bresse et Saône
CC Bretagne Romantique
CC Bretagne porte de Loire Communauté
CC Briance Sud Haute Vienne
CC Brie des Rivières et Châteaux
CC Buëch-Dévoluy
CC Carnelle Pays-De-France
CC Champagne Boischauts
CC Champagnole Nozeroy Jura
CC Combrailles Sioule et Morge
CC Communauté Lesneven Côte des Légendes
CC Comtal Lot et Truyère
CC Conques-Marcillac
CC Convergence Garonne
CC Cère et Goul en Carladès
CC Côte d'Émeraude
CC Cœur d'Yvelines
CC Cœur de Berry
CC Cœur de Chartreuse
CC Cœur de Lozère
CC Cœur de Nacre
CC Cœur de Saintonge
CC Cœur de Savoie
CC Cœur de Tarentaise
CC Dombes Saône Vallée
CC Douarnenez Communauté
CC Dronne et Belle
CC Entre Dore et Allier
CC Entre Juine et Renarde (CCEJR)
CC Estuaire et Sillon
CC Fier et Usses
CC Forêts, Seine et Suzon
CC Gally Mauldre
CC Grand Sud Tarn et Garonne
CC Grand-Figeac
CC Haut Val de Sèvre
CC Haut-Léon Communauté
CC Haute-Maurienne Vanoise
CC Haute-Provence-Pays de Banon
CC Inter-Caux-Vexin
CC Isigny-Omaha Intercom
CC Jalle-Eau-Bourde
CC Le Dourdannais en Hurepoix (CCDH)
CC Le Gesnois Bilurien
CC Le Grésivaudan
CC Les Balcons du Dauphiné
CC Les Vals du Dauphiné
CC Les Versants d'Aime
CC Liffré-Cormier Communauté
CC Loire Layon Aubance
CC Loire et Semène
CC Loué - Brûlon - Noyen
CC Maine Cœur de Sarthe
CC Marches du Velay-Rochebaron
CC Maremne Adour Côte Sud
CC Maurienne Galibier
CC Mayenne Communauté
CC Mellois-en-Poitou
CC Midi Corrézien
CC Mond'Arverne Communauté
CC Mont Lozère
CC Montfort Communauté
CC Monts d'Arrée Communauté
CC Moret Seine et Loing
CC Moselle et Madon
CC Mâconnais - Tournugeois
CC Médoc Estuaire
CC Norge et Tille
CC Orée de Bercé - Belinois
CC Ouche et Montagne
CC Ouest Aveyron Communauté
CC Ouest Limousin
CC Pays Ségali Communauté
CC Pays de Châteaugiron Communauté
CC Pays de Nay
CC Pays de Nexon Monts de Chalus
CC Pays des Vans en Cévennes
CC Pays du Mont-Blanc
CC Plaine Limagne
CC Plateau de Caux-Doudeville-Yerville
CC Porte de Maurienne
CC Presqu'île de Crozon-Aulne maritime
CC Pyrénées Vallées des Gaves
CC Pévèle-Carembault
CC Rhony, Vistre, Vidourle
CC Rhône Crussol
CC Rives de l'Ain - Pays du Cerdon
CC Roumois Seine
CC Rumilly Terre de Savoie
CC Saint-Pourçain Sioule Limagne
CC Sausseron Impressionnistes
CC Saône Doubs Bresse
CC Serre-Ponçon
CC Serre-Ponçon Val d'Avance
CC Seulles Terre et Mer
CC Sèvre et Loire
CC Tarn-Agout
CC Terres du Haut Berry
CC Terres-de-Montaigu, communauté de communes Montaigu-Rocheservière
CC Touraine Vallée de l'Indre
CC Touraine-Est Vallées
CC Usses et Rhône
CC Val Briard
CC Val Eyrieux
CC Val Guiers
CC Val Vanoise
CC Val de Gâtine
CC Val de Saône Centre
CC Val-de-Cher-Controis
CC Vallons de Haute-Bretagne Communauté
CC Vallée de l'Ubaye - Serre-Ponçon
CC Vallées de l'Orne et de l'Odon
CC Vendée, Sèvre, Autise
CC Vexin Centre
CC Yvetot Normandie
CC d'Erdre et Gesvres
CC de Belle-+le-en-Mer
CC de Bièvre Est
CC de Blavet Bellevue Océan
CC de Bléré Val de Cher
CC de Brocéliande
CC de Cattenom et Environs
CC de Forez-Est
CC de Gevrey-Chambertin et de Nuits-Saint-Georges
CC de Grand Lieu
CC de Gâtine et Choisilles - Pays de Racan
CC de Haute-Cornouaille
CC de Haute-Tarentaise
CC de Miribel et du Plateau
CC de Montesquieu
CC de Nozay
CC de Seille et Grand Couronné
CC de Val'Aïgo
CC de Vie et Boulogne
CC de Yenne
CC de l'+le de Ré
CC de l'Aillantais
CC de l'Arc Mosellan
CC de l'Ernée
CC de l'Est Lyonnais (CCEL)
CC de l'Oisans
CC de la Basse-Zorn
CC de la Beauce Loirétaine
CC de la Côtière à Montluel
CC de la Dombes
CC de la Forêt
CC de la Gascogne Toulousaine
CC de la Haute Vallée de Chevreuse
CC de la Haute-Bigorre
CC de la Lomagne Gersoise
CC de la Matheysine
CC de la Moivre à la Coole
CC de la Plaine d'Estrées
CC de la Plaine de l'Ain
CC de la Région de Blain
CC de la Région de Suippes
CC de la Save au Touch
CC de la Station des Rousses-Haut Jura
CC de la Vallée Verte
CC de la Vallée d'Ossau
CC de la Vallée de Chamonix-Mont-Blanc
CC de la Vallée de Kaysersberg
CC de la Vallée de Villé
CC de la Vallée du Gapeau
CC de la Vallée du Garon (CCVG)
CC de la Vanne et du Pays d'Othe
CC de la Veyle
CC des Baronnies en Drôme Provençale
CC des Bastides Dordogne-Périgord
CC des Collines du Nord Dauphiné
CC des Coteaux Arrats Gimone
CC des Coteaux Bellevue
CC des Coteaux Bordelais
CC des Coteaux du Girou
CC des Coteaux du Val-d'Arros
CC des Deux Vallées
CC des Hauts Tolosans
CC des Lacs et Montagnes du Haut-Doubs
CC des Loges
CC des Montagnes du Giffre
CC des Monts de Gy
CC des Monts du Lyonnais
CC des Pays du Sel et du Vermois
CC des Portes Euréliennes d'+le-de-France
CC des Portes de Rosheim
CC des Portes de l'Entre-deux-Mers
CC des Quatre Rivières
CC des Sources du Lac d'Annecy
CC des Sucs
CC des Terres d'Apcher-Margeride-Aubrac
CC des Terres du Lauragais
CC des Terres du Val de Loire
CC des Vallons du Lyonnais (CCVL)
CC des Vallées d'Aigueblanche
CC des Vallées de Thônes
CC des Vallées de la Tille et de l'Ignon
CC des Vallées du Clain
CC des Vallées du Haut-Anjou
CC des Vosges du Sud
CC du Bassin de Marennes
CC du Canton d'Erstein
CC du Castelrenaudais
CC du Causse de Labastide-Murat
CC du Centre du Haut-Rhin
CC du Châtillonnais en Berry
CC du Crestois et de Pays de Saillans Cœur de Drôme
CC du Créonnais
CC du Diois
CC du Frontonnais
CC du Grand Chambord
CC du Grand Pic Saint-Loup
CC du Guillestrois et du Queyras
CC du Gévaudan
CC du Haut Pays Bigouden
CC du Haut-Poitou
CC du Kochersberg
CC du Lac d'Aiguebelette (CCLA)
CC du Liancourtois
CC du Massif du Vercors
CC du Nord Est Béarn
CC du Pays Fouesnantais
CC du Pays Grenadois
CC du Pays Houdanais (C.C.P.H.)
CC du Pays Mornantais (COPAMO)
CC du Pays Rignacois
CC du Pays Riolais
CC du Pays Rochois
CC du Pays d'Ancenis
CC du Pays d'Iroise
CC du Pays d'Uzerche
CC du Pays de Barr
CC du Pays de Conches
CC du Pays de Cruseilles
CC du Pays de Fénelon
CC du Pays de Landerneau-Daoulas
CC du Pays de Landivisiau
CC du Pays de Limours (CCPL)
CC du Pays de Maîche
CC du Pays de Mortagne
CC du Pays de Pontchâteau Saint-Gildas-des-Bois
CC du Pays de Rouffach, Vignobles et Châteaux
CC du Pays de Saint-Fulgent - Les Essarts
CC du Pays de Saint-Gilles-Croix-de-Vie
CC du Pays de Salars
CC du Pays de Sommières
CC du Pays de Villersexel
CC du Pays de l'Arbresle (CCPA)
CC du Pays de l'Huisne Sarthoise
CC du Pays de l'Ozon
CC du Pays de la Zorn
CC du Pays des Abers
CC du Pays des Achards
CC du Pays des Ecrins
CC du Pays des Herbiers
CC du Pays du Saintois
CC du Pilat Rhodanien
CC du Piémont Cévenol
CC du Plateau de Russey
CC du Quercy Blanc
CC du Ried de Marckolsheim
CC du Rouillacais
CC du Royans-Vercors
CC du Saves
CC du Seignanx
CC du Sor et de l'Agout
CC du Sud Est du Pays Manceau
CC du Sud Messin
CC du Sud-Estuaire
CC du Trièves
CC du Val Marnaysien
CC du Val d'Essonne (CCVE)
CC du Val d'Ille-Aubigné
CC du Val de Sarthe
CC du Val de Somme
CC du Val de Vienne
CC du Val de l'Eyre
CC l'Orée de la Brie
CC Élan Limousin Avenir Nature

Figure complémentaire 1 : catégorie sociale des parents en emploi

Code
figc1 |>
  select(-ensemble) |>
  mutate(situation_familiale = factor(situation_familiale, levels = rev(ordre_situation))) |>
  pivot_longer(-c(sexe, situation_familiale), names_to = "categorie_sociale", values_to = "part") |>
  mutate(categorie_sociale = recode(categorie_sociale, agriculteurs = "Agriculteurs",
                                     artisans_commercants = "Artisans, commerçants, chefs d'entreprise",
                                     cadres = "Cadres et professions intellectuelles supérieures",
                                     professions_intermediaires = "Professions intermédiaires",
                                     employes = "Employés", ouvriers = "Ouvriers"),
         categorie_sociale = fct_relevel(categorie_sociale, "Agriculteurs",
                                          "Artisans, commerçants, chefs d'entreprise",
                                          "Cadres et professions intellectuelles supérieures",
                                          "Professions intermédiaires", "Employés", "Ouvriers")) |>
  ggplot(aes(x = situation_familiale, y = part, fill = categorie_sociale)) +
  geom_col() +
  coord_flip() +
  scale_fill_brewer(palette = "Set2", name = NULL) +
  theme_minimal(base_size = 9) +
  labs(x = NULL, y = "%",
       title = "Catégorie sociale des parents en emploi",
       subtitle = "selon leur situation familiale, 2020") +
  theme(legend.position = "bottom", panel.grid.minor = element_blank()) +
  guides(fill = guide_legend(ncol = 2))