Legally induced abortions by mother’s age - demo_fabort

Data - Eurostat

Author

François Geerolf

Info

Last observation: Annual: 2024 (N = 148)

First observation: Annual: 1960 (N = 12)

Last data update: 11 aoû 2026, 22:42. Last compile: 11 aoû 2026, 23:19

Structure

France, Germany, Italy, Spain

Legally Induced Abortions, Total

Code

demo_fabort |>
  filter(geo %in% c("FR", "DE", "IT", "ES"),
         age == "TOTAL") |>
  year_to_date() |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) +
  theme_minimal() + scale_color_identity() + add_flags +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("Legally induced abortions (Number)") +
  scale_y_continuous(labels = scales::comma)

France: By Age Group

Since 1990

Code

demo_fabort |>
  filter(geo == "FR",
         age %in% c("Y15-19", "Y20-24", "Y25-29", "Y30-34", "Y35-39", "Y40-44")) |>
  year_to_date() |>
  ggplot() + geom_line(aes(x = date, y = values, color = Age)) +
  theme_minimal() +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("Legally induced abortions (Number)") +
  scale_y_continuous(labels = scales::comma)

Latest Year by Age Group

Code

demo_fabort |>
  filter(geo %in% c("FR", "DE", "IT", "ES"),
         age != "TOTAL",
         age != "UNK") |>
  group_by(geo) |>
  filter(time == max(time)) |>
  ungroup() |>
  select(Age, Geo, values) |>
  spread(Geo, values) |>
  print_table_conditional()

Age	France	Germany	Italy	Spain
50 years or over	73	20	20	0
From 15 to 19 years	20961	7461	4998	11345
From 20 to 24 years	56009	20123	11249	24705
From 25 to 29 years	57440	23777	13084	23198
From 30 to 34 years	53487	25035	14780	21062
From 35 to 39 years	41831	20499	13673	16985
From 40 to 44 years	17068	8252	6513	7795
From 45 to 49 years	1562	747	698	728
Less than 15 years	514	304	134	354