Infant mortality rates - demo_r_minfind

Data - Eurostat

Author

François Geerolf

Info

Last observation: Annual: 2024 (N = 437)

First observation: Annual: 1990 (N = 240)

Last data update: 23 jul 2026, 22:08. Last compile: 24 jul 2026, 01:07

Structure

Trends by Country

France, Germany, Italy, Spain, Poland

Code

demo_r_minfind %>%
  filter(geo %in% c("FR", "DE", "IT", "ES", "PL")) %>%
  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_5flags +
  scale_x_date(breaks = as.Date(paste0(seq(1990, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("Infant mortality rate (deaths per 1,000 live births)")

Latest Year by Country

Code

latest_y <- demo_r_minfind %>%
  filter(nchar(geo) == 2, !is.na(values)) %>%
  summarise(m = max(time)) %>%
  pull(m)

demo_r_minfind %>%
  filter(nchar(geo) == 2, time == latest_y) %>%
  select(Geo, values) %>%
  arrange(values) %>%
  print_table_conditional()

NUTS 0

Code

demo_r_minfind %>%
  filter(time == "2018") %>%
  
  select(geo, Geo, values) %>%
  right_join(europe_NUTS0, by = "geo") %>%
  filter(long >= -15, lat >= 33) %>%
  ggplot(., aes(x = long, y = lat, group = group, fill = values/100)) +
  geom_polygon() + coord_map() +
  scale_fill_viridis_c(na.value = "white",
                       labels = scales::percent_format(accuracy = 1),
                       breaks = 0.01*seq(0, 10, 1),
                       values = c(0, 0.1, 0.2, 0.3, 0.4, 0.5, 1)) +
  theme_void() + theme(legend.position = c(0.25, 0.85)) + 
  labs(fill = "Infant Mortality Rates")