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()
We have an “access” problem in the U.S. In many ways, we “overprovide” care to some people and underprovide care to lots of other people. We are particularly bad at helping the least healthy among us. These issues are, of course, very closely related to other economic problems and inequality in general.
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.
Some common arguments:
The real culprit(s):
A frustrating feature of U.S. health care is that it is extremely fragmented:
Incredibly complex and convoluted billing process