Share of Government Spending on Health Care: Vietnam and United States

Daily Graph Series

Graphs

R Codes for Collecting Data and Ploting

#===================
#  Data Preparing
#===================

# Load packages: 

library(WHO)
library(tidyverse)
library(extrafont)
library(ggthemes)
library(grid)

# Government and total expenditure data: 

expenditure_gov <- get_data("WHS7_108")
expenditure_total <- get_data("WHS7_105")

# Prepare data for ploting: 

my_countries <- c("Viet Nam", "United States of America")

expenditure_gov %>% 
  filter(country %in% my_countries) %>% 
  select(country, year, gov_exp = value) -> gov_df


expenditure_total %>% 
  filter(country %in% my_countries) %>% 
  select(country, year, total_exp = value) -> total_df


medical_exp <- full_join(gov_df, total_df, by = c("country", "year")) %>% 
  mutate(gov_rate = gov_exp / total_exp)

#=========================
#  Data Visualization
#=========================

# Colors and font selected: 
my_colors <- c("#3E606F", "#8C3F4D")
my_font <- "Roboto Condensed"
my_label <- c("1995", rep("", 4), "00", rep("", 4), "05", 
              rep("", 4), "10", rep("", 3), "2014")


vn_rate_df %>% 
  mutate(pri_exp = total_exp - gov_exp) %>% 
  select(-country, -gov_rate, -total_exp) %>% 
  gather(a, b, -year) %>% 
  mutate(year = factor(year)) %>% 
  ggplot(aes(year, b, fill = a)) + 
  geom_col() + 
  theme_economist() + 
  scale_fill_economist(name = "", labels = c("Government", "Private")) + 
  theme(axis.ticks = element_blank()) + 
  scale_x_discrete(label = my_label) + 
  theme(axis.line.x = element_blank()) + 
  scale_y_continuous(expand = c(0, 0), limits = c(0, 450)) + 
  theme(axis.text  = element_text(family = my_font, size = 12, face = "bold", color = "gray20")) + 
  labs(x = NULL, y = NULL, 
       title = "Vietnam's Composition of Expenditure on Health Care: 1995 - 2014", 
       subtitle = "Expenditure is calculated according to Purchasing Power Parity in 2010.", 
       caption = "Data Source: World Health Organization (WHO)") + 
  theme(plot.title = element_text(family = my_font, size = 20, colour = "grey10")) + 
  theme(plot.subtitle = element_text(family = my_font, size = 15, colour = "grey20")) + 
  theme(plot.caption = element_text(family = my_font, size = 12, colour = "grey30", face = "italic")) + 
  theme(legend.text = element_text(size = 12, color = "grey10", family = my_font)) + 
  theme(legend.position = c(0.15, 0.8)) + 
  theme(plot.margin = unit(c(1.2, 1.2, 1.2, 1.2), "cm"))


grid.rect(x = 0.015, y = 0.92, hjust = 1, vjust = 0, gp = gpar(fill = "#e5001c", lwd = 0)) 



vn_rate_df %>% 
  mutate(priv_rate = 1 - gov_rate) %>% 
  select(priv_rate, gov_rate, year) %>% 
  gather(a, b, -year) %>% 
  ggplot(aes(year, b, fill = a)) + 
  geom_area() + 
  theme_economist() + 
  scale_fill_economist(name = "", labels = c("Government", "Private")) + 
  scale_x_continuous(breaks = seq(1995, 2014, 1), labels = my_label, expand = c(0.01, 0)) + 
  scale_y_continuous(expand = c(0, 0), label = scales::percent) + 
  theme(axis.ticks = element_blank()) + 
  theme(axis.line.x = element_blank()) + 
  theme(axis.text  = element_text(family = my_font, size = 12, face = "bold", color = "gray20")) + 
  labs(x = NULL, y = NULL, 
       title = "Share of Government Spending on Health Care in Vietnam: 1995 - 2014", 
       subtitle = "Expenditure is calculated according to Purchasing Power Parity in 2010.", 
       caption = "Data Source: World Health Organization (WHO)") + 
  theme(plot.title = element_text(family = my_font, size = 20, colour = "grey10")) + 
  theme(plot.subtitle = element_text(family = my_font, size = 15, colour = "grey20")) + 
  theme(plot.caption = element_text(family = my_font, size = 12, colour = "grey30", face = "italic")) + 
  theme(legend.text = element_text(size = 12, color = "grey10", family = my_font)) + 
  theme(plot.margin = unit(c(1.2, 1.2, 1.2, 1.2), "cm"))
  
grid.rect(x = 0.015, y = 0.92, hjust = 1, vjust = 0, gp = gpar(fill = "#e5001c", lwd = 0))  
  


medical_exp %>% 
  ggplot(aes(year, gov_rate, color = country)) + 
  geom_line(size = 2) + 
  theme_economist() + 
  scale_color_economist(name = "", labels = c("United States", "Vietnam")) +
  scale_x_continuous(breaks = seq(1995, 2014, 1), labels = my_label, expand = c(0.01, 0)) + 
  scale_y_continuous(label = scales::percent) + 
  theme(axis.text  = element_text(family = my_font, size = 12, face = "bold", color = "gray20")) + 
  labs(x = NULL, y = NULL, 
       title = "Share of Government Spending on Health Care: Vietnam and United States", 
       subtitle = "Expenditure is calculated according to Purchasing Power Parity in 2010.", 
       caption = "Data Source: World Health Organization (WHO)") + 
  theme(plot.title = element_text(family = my_font, size = 20, colour = "grey10")) + 
  theme(plot.subtitle = element_text(family = my_font, size = 15, colour = "grey20")) + 
  theme(plot.caption = element_text(family = my_font, size = 12, colour = "grey30", face = "italic")) + 
  theme(legend.text = element_text(size = 12, color = "grey10", family = my_font)) + 
  theme(plot.margin = unit(c(1.2, 1.2, 1.2, 1.2), "cm"))
  


grid.rect(x = 0.015, y = 0.92, hjust = 1, vjust = 0, gp = gpar(fill = "#e5001c", lwd = 0))