Major improvements in life expectancy (and many other measures of health) across the world
ggplot(gapminder, aes(gdpPercap, lifeExp, size = pop)) +
geom_point(alpha = 0.5, show.legend = FALSE) +
scale_colour_manual(values = country_colors) +
scale_size(range = c(2, 12)) +
scale_x_log10() +
facet_wrap(~continent) +
labs(title = 'Year: {frame_time}', x = 'Log GDP Per Capita ($US)', y = 'Life Expectancy (years)') +
transition_time(year) +
ease_aes('linear') +
theme_bw()
mycolors <- c("US" = "red", "other" = "grey50")
gapminder %>% filter(country %in% c("Canada", "France", "Germany", "Italy", "Japan", "United Kingdom", "United States")) %>%
mutate(highlight = ifelse(country=="United States", "US", "other")) %>%
ggplot(aes(gdpPercap, lifeExp, size = pop)) +
geom_point(alpha = 0.5, show.legend = FALSE, aes(color=highlight)) +
scale_color_manual("U.S.", values = mycolors) +
scale_size(range = c(2, 12)) +
scale_x_comma(limits=c(0,55000)) +
labs(title = 'Year: {frame_time}', x = 'GDP Per Capita ($US)', y = 'Life Expectancy (years)') +
transition_time(year) +
ease_aes('linear') +
theme_bw()
Health and health care are constantly changing
Health expenditures in 2020: $4.1 trillion, 19.7% of GDP, $12,530 per person (from NHE Fact Sheet)
U.S. health care is uniquely inefficient in many ways
Lots of interesting economic issues in health care, not all unique to the US.