Learn R Programming

openintro (version 2.4.0)

sowc_maternal_newborn: SOWC Maternal and Newborn Health Data.

Description

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

Usage

sowc_maternal_newborn

Arguments

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).

Examples

Run this code
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"
  )

Run the code above in your browser using DataLab