Evolution de la mortalité infantile et de ses nombreuses composantes, 2019 - fm_t70_2019.fr

Données - INED

Auteur·rice

François Geerolf

Last observation: 2019 (N = 4)

First observation: 1901 (N = 1)

Last data update: 01 août 2026, 21:05

Last compile: 02 sept. 2026, 23:50

Info

  • Mortalité infantile. html

year

Code 
fm_t70_2019.fr |>
  group_by(year) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  print_table_conditional()

variable

Code 
fm_t70_2019.fr |>
  group_by(variable) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  print_table_conditional()
variable Nobs
Infantile = Enfants décédés à moins d'un an = (1) + (2) 119
Néonatale = Enfants décédés à moins de 28 jours (1) 70
Néonatale précoce = Enfants décédés à moins de 7 jours 70
Post-néonatale = Enfants décédés entre 28 jours et moins d'un an (2) 70

1950-

Code 
fm_t70_2019.fr |>
  year_to_date2() |>
  filter(date >= as.Date("1950-01-01")) |>
  ggplot() + geom_line(aes(x = date, y = value, color = variable)) +
  
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.6, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 100, 5),
                     labels = dollar_format(a = 1, pre = "", su = "‰"))

1980-

Code 
fm_t70_2019.fr |>
  year_to_date2() |>
  filter(date >= as.Date("1980-01-01")) |>
  ggplot() + geom_line(aes(x = date, y = value, color = variable)) +
  
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.6, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 100, 1),
                     labels = dollar_format(a = 1, pre = "", su = "‰"))

1990-

Code 
fm_t70_2019.fr |>
  year_to_date2() |>
  filter(date >= as.Date("1990-01-01")) |>
  ggplot() + geom_line(aes(x = date, y = value, color = variable)) +
  #
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1990, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.6, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 100, 1),
                     labels = dollar_format(a = 1, pre = "", su = "‰"))

2000-

Code 
fm_t70_2019.fr |>
  year_to_date2() |>
  filter(date >= as.Date("2000-01-01")) |>
  ggplot() + geom_line(aes(x = date, y = value, color = variable)) +
  
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1920, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.6, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 100, 1),
                     labels = dollar_format(a = 1, pre = "", su = "‰"))