Evolution de la mortalité infantile et de ses nombreuses composantes, 2021

Data - INED

Author

Info

Mortalité infantile. html

year

Code

fm_t70_2021.fr %>%
  group_by(year) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

variable

Code

fm_t70_2021.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)	121
Néonatale = Enfants décédés à moins de 28 jours (1)	72
Néonatale précoce = Enfants décédés à moins de 7 jours	72
Post-néonatale = Enfants décédés entre 28 jours et moins d'un an (2)	72

1950-

Tous

Code

fm_t70_2021.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, 2025, 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 = "‰"))

Sans post-néonatale

Code

fm_t70_2021.fr %>%
  year_to_date2 %>%
  filter(date >= as.Date("1950-01-01"),
         !(variable == "Post-néonatale = Enfants décédés entre 28 jours et moins d'un an (2)")) %>%
  ggplot + geom_line(aes(x = date, y = value, color = variable)) +
  
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1920, 2025, 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-

Tous

Code

fm_t70_2021.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, 2025, 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 = "‰"))

Sans post-néonatale

Code

fm_t70_2021.fr %>%
  year_to_date2 %>%
  filter(date >= as.Date("1980-01-01"),
         !(variable == "Post-néonatale = Enfants décédés entre 28 jours et moins d'un an (2)")) %>%
  ggplot + geom_line(aes(x = date, y = value, color = variable)) +
  
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1920, 2025, 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-

Tous

Code

fm_t70_2021.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, 2025, 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 = "‰"))

Sans post-néonatale

Code

fm_t70_2021.fr %>%
  year_to_date2 %>%
  filter(date >= as.Date("1990-01-01"),
         !(variable == "Post-néonatale = Enfants décédés entre 28 jours et moins d'un an (2)")) %>%
  ggplot + geom_line(aes(x = date, y = value, color = variable)) +
  #
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1990, 2025, 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-

Tous

Code

fm_t70_2021.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, 2025, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.6, 0.9),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  scale_y_continuous(breaks = seq(0, 100, 1),
                     labels = dollar_format(a = 1, pre = "", su = "‰"))

Sans post-néonatale

Code

fm_t70_2021.fr %>%
  year_to_date2 %>%
  filter(date >= as.Date("2000-01-01"),
         !(variable == "Post-néonatale = Enfants décédés entre 28 jours et moins d'un an (2)")) %>%
  ggplot + geom_line(aes(x = date, y = value, color = variable)) +
  
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1920, 2025, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.6, 0.9),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  scale_y_continuous(breaks = seq(0, 100, 0.2),
                     labels = dollar_format(a = .1, pre = "", su = "‰"))