Last data update: 27 sept. 2026, 13:53
Last compile: 27 sept. 2026, 13:54
Figure 1a : taux d’alternance par âge, selon l’année
Code
fig1a |>
mutate(age = factor(age, levels = ordre_ages)) |>
ggplot(aes(x = age, y = taux_alternance, color = factor(annee), group = annee)) +
geom_line(linewidth = 1) +
scale_color_viridis_d(name = NULL) +
theme_minimal(base_size = 11) +
labs(x = "Âge de l'enfant", y = "%",
title = "Taux d'alternance par âge",
subtitle = "selon l'année, 2010-2016") +
theme(legend.position = "bottom", panel.grid.minor = element_blank()) +
guides(color = guide_legend(nrow = 1))
Figure 1b : taux d’alternance par âge, selon la génération
Code
fig1b |>
mutate(age = factor(age, levels = ordre_ages)) |>
ggplot(aes(x = age, y = taux_alternance, color = factor(generation), group = generation)) +
geom_line(linewidth = 1) +
geom_point() +
scale_color_brewer(palette = "Set1", name = "Génération") +
theme_minimal(base_size = 11) +
labs(x = "Âge de l'enfant", y = "%",
title = "Taux d'alternance par âge",
subtitle = "selon la génération de naissance") +
theme(legend.position = "bottom", panel.grid.minor = element_blank())
Figure 2 : niveau de vie des enfants en résidence alternée
Code
fig2 |>
mutate(groupe = fct_inorder(groupe)) |>
ggplot(aes(x = groupe, y = niveau_vie_moyen)) +
geom_col(fill = "#1B3F8B") +
coord_flip() +
theme_minimal(base_size = 10) +
labs(x = NULL, y = "€ par an",
title = "Niveau de vie moyen du ménage",
subtitle = "selon la situation familiale et alternante, 2017") +
theme(panel.grid.minor = element_blank())
Code
fig2 |>
mutate(groupe = fct_inorder(groupe)) |>
ggplot(aes(x = groupe, y = part_menages_pauvres)) +
geom_col(fill = "#E8737A") +
coord_flip() +
theme_minimal(base_size = 10) +
labs(x = NULL, y = "%",
title = "Proportion de ménages pauvres",
subtitle = "selon la situation familiale et alternante, 2017") +
theme(panel.grid.minor = element_blank())
Figure 3 : le logement des enfants selon leur situation familiale
Code
fig3 |>
select(groupe, proprietaire_occupant, locataire_parc_social, locataire_secteur_libre) |>
mutate(groupe = fct_rev(fct_inorder(groupe))) |>
pivot_longer(-groupe, names_to = "statut", values_to = "part") |>
mutate(statut = recode(statut, proprietaire_occupant = "Propriétaire occupant",
locataire_parc_social = "Locataire du parc social",
locataire_secteur_libre = "Locataire du secteur libre"),
statut = fct_relevel(statut, "Propriétaire occupant", "Locataire du parc social",
"Locataire du secteur libre")) |>
ggplot(aes(x = groupe, y = part, fill = statut)) +
geom_col() +
coord_flip() +
scale_fill_brewer(palette = "Set2", name = NULL) +
theme_minimal(base_size = 9) +
labs(x = NULL, y = "%",
title = "Statut d'occupation du logement",
subtitle = "selon la situation familiale des enfants, 2017") +
theme(legend.position = "bottom", panel.grid.minor = element_blank())
Code
fig3 |>
mutate(groupe = fct_inorder(groupe)) |>
ggplot(aes(x = groupe, y = surface_par_habitant)) +
geom_col(fill = "#1B3F8B") +
coord_flip() +
theme_minimal(base_size = 9) +
labs(x = NULL, y = "m² par habitant",
title = "Surface moyenne du logement par habitant",
subtitle = "selon la situation familiale des enfants, 2017") +
theme(panel.grid.minor = element_blank())
Figure 4 : taux d’alternance par département
Code
fig4 |>
mutate(dept = fct_reorder(dept, taux_alternance)) |>
ggplot(aes(x = dept, y = taux_alternance)) +
geom_col(fill = "#1B3F8B") +
geom_hline(yintercept = fig4_national, linetype = "dashed", color = "#E8737A") +
coord_flip() +
theme_minimal(base_size = 8) +
labs(x = NULL, y = "%",
title = "Taux d'alternance entre les résidences d'enfants de parents séparés",
subtitle = paste0("par département, 2017 (pointillé : moyenne France, ", fig4_national, " %)")) +
theme(panel.grid.minor = element_blank(), panel.grid.major.y = element_blank())
Figure 5 : proportion d’enfants alternants selon le type de communes
Code
ordre_communes <- c("Densément peuplées d‘Île-de-France", "Densément peuplées hors Île-de-France",
"De catégorie intermédiaire", "Peu denses", "Très peu denses", "Ensemble")
fig5 |>
mutate(type_commune = factor(type_commune, levels = ordre_communes)) |>
ggplot(aes(x = type_commune, y = part_alternants, fill = factor(annee))) +
geom_col(position = "dodge") +
coord_flip() +
scale_fill_manual(values = c("2010" = "#8FA8D8", "2016" = "#1B3F8B"), name = NULL) +
theme_minimal(base_size = 10) +
labs(x = NULL, y = "%",
title = "Proportion d'enfants en résidence alternée",
subtitle = "selon le type de communes, 2010 et 2016") +
theme(legend.position = "bottom", panel.grid.minor = element_blank())
Figure encadré : entrées et sorties de la résidence alternée
Code
fig_encadre |>
mutate(indicateur = fct_relevel(indicateur, "Entrées", "Sorties", "Stables au moins 5 ans")) |>
ggplot(aes(x = groupe_age, y = part, fill = indicateur)) +
geom_col(position = "dodge") +
facet_wrap(~ indicateur, scales = "free_y") +
scale_fill_brewer(palette = "Set2", guide = "none") +
theme_minimal(base_size = 9) +
labs(x = NULL, y = "%",
title = "Entrées et sorties de la résidence alternée",
subtitle = "selon l'âge, 2014-2016") +
theme(axis.text.x = element_text(angle = 30, hjust = 1), panel.grid.minor = element_blank())
Figure complémentaire 1 : proportion d’alternants par décile de niveau de vie
Code
figc1 |>
ggplot(aes(x = decile, y = part_alternants)) +
geom_col(fill = "#1B3F8B") +
scale_x_continuous(breaks = 1:10) +
theme_minimal(base_size = 12) +
labs(x = "Décile de niveau de vie du ménage", y = "%",
title = "Proportion d'enfants en résidence alternée",
subtitle = "selon le décile de niveau de vie, 2017") +
theme(panel.grid.minor = element_blank())
Figure complémentaire 2 : mineurs vivant avec un seul parent, par région
Code
figc2 |>
mutate(region = fct_reorder(region, part_alternants_parmi_un_seul_parent)) |>
ggplot(aes(x = region, y = part_alternants_parmi_un_seul_parent)) +
geom_col(fill = "#1B3F8B") +
coord_flip() +
theme_minimal(base_size = 9) +
labs(x = NULL, y = "%",
title = "Part d'enfants en résidence alternée parmi ceux vivant avec un seul parent",
subtitle = "par région, 2018") +
theme(panel.grid.minor = element_blank())