Motivation
Course Overview
I have two goals for today’s class:
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()
Some common arguments:
The real culprit(s):
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.
Lots of interesting economic issues in health care, not all unique to the US.
We study U.S. health care through the patient’s journey:
By the end of this course, you will be able to:
Total = 400 points → standard grading scale
Class meets: Tues/Thurs, 8:30–9:45am, White Hall 103
Office Hours: Tues/Thurs, 10–11am, RRR 418 (or by appointment)