R: SOWC Maternal and Newborn Health Data.

sowc_maternal_newborn

R Documentation

SOWC Maternal and Newborn Health Data.

Description

Data from UNICEF's State of the World's Children 2019 Statistical Tables.

Usage

sowc_maternal_newborn

Format

A data frame with 202 rows and 18 variables.

countries_and_areas: Country or area name.
life_expectancy_female: Life expectancy: female in 2018.
family_planning_1549: Demand for family planning satisfied with modern methods (%) 2013–2018 Women aged 15 to 49.
family_planning_1519: Demand for family planning satisfied with modern methods (%) 2013–2018 Women aged 15 to 19.
adolescent_birth_rate: Adolescent birth rate 2013 to 2018.
births_age_18: Births by age 18 (%) 2013 to 2018.
antenatal_care_1: Antenatal care (%) 2013 to 2018 At least one visit.
antenatal_care_4_1549: Antenatal care (%) 2013 to 2018 At least four visits Women aged 15 to 49.
antenatal_care_4_1519: Antenatal care (%) 2013 to 2018 At least four visits Women aged 15 to 19.
delivery_care_attendant_1549: Delivery care (%) 2013 to 2018 Skilled birth attendant Women aged 15 to 49.
delivery_care_attendant_1519: Delivery care (%) 2013 to 2018 Skilled birth attendant Women aged 15 to 19.
delivery_care_institutional: Delivery care (%) 2013 to 2018 Institutional delivery.
c_section: Delivery care (%) 2013–2018 C-section.
postnatal_health_newborns: Postnatal health check(%) 2013 to 2018 For newborns.
postnatal_health_mothers: Postnatal health check(%) 2013 to 2018 For mothers.
maternal_deaths_2017: Maternal mortality 2017 Number of maternal deaths.
maternal_mortality_ratio_2017: Maternal mortality 2017 Maternal Mortality Ratio.
risk_maternal_death_2017: Maternal mortality 2017 Lifetime risk of maternal death (1 in X).

Source

United Nations Children's Emergency Fund (UNICEF)

Examples

library(dplyr)
library(ggplot2)

# List countries and lifetime risk of maternal death (1 in X), ranked
sowc_maternal_newborn %>%
  mutate(rank = round(rank(risk_maternal_death_2017), 0)) %>%
  select(countries_and_areas, rank, risk_maternal_death_2017) %>%
  arrange(rank)

# Graph scatterplot of Maternal Mortality Ratio 2017 and Antenatal Care 4+ Visits %
sowc_maternal_newborn %>%
  select(antenatal_care_4_1549, maternal_mortality_ratio_2017) %>%
  remove_missing(na.rm = TRUE) %>%
  ggplot(aes(antenatal_care_4_1549, maternal_mortality_ratio_2017)) +
  geom_point(alpha = 0.5) +
  labs(
    title = "Antenatal Care and Mortality",
    x = "Antenatal Care 4+ visits %",
    y = "Maternal Mortality Ratio"
  )