Lecture 16 demo code

Gapminder scatter plot (slide 28)

gapminder

## # A tibble: 1,704 × 6
##    country     continent  year lifeExp      pop gdpPercap
##    <fct>       <fct>     <int>   <dbl>    <int>     <dbl>
##  1 Afghanistan Asia       1952    28.8  8425333      779.
##  2 Afghanistan Asia       1957    30.3  9240934      821.
##  3 Afghanistan Asia       1962    32.0 10267083      853.
##  4 Afghanistan Asia       1967    34.0 11537966      836.
##  5 Afghanistan Asia       1972    36.1 13079460      740.
##  6 Afghanistan Asia       1977    38.4 14880372      786.
##  7 Afghanistan Asia       1982    39.9 12881816      978.
##  8 Afghanistan Asia       1987    40.8 13867957      852.
##  9 Afghanistan Asia       1992    41.7 16317921      649.
## 10 Afghanistan Asia       1997    41.8 22227415      635.
## # … with 1,694 more rows

p <- ggplot(gapminder, mapping = aes(x = gdpPercap, y = lifeExp))
p + geom_point() +
  geom_smooth(method = "lm", color = "red") +
  scale_x_log10(label = scales::label_dollar()) +
  labs(x = "GDP per capita", y = "Years",
       title = "Life Expectancy and GDP",
       caption = "Source: Gapminder") +
  theme_bw()

## `geom_smooth()` using formula 'y ~ x'

Gapminder boxplot (slide 30)

gapminder |> filter(year == 2007) |>
  ggplot(mapping = aes(x = continent, y = lifeExp, fill = continent)) +
  geom_boxplot() +
  guides(fill = "none")

A polished plot (slide 38)

gapminder

## # A tibble: 1,704 × 6
##    country     continent  year lifeExp      pop gdpPercap
##    <fct>       <fct>     <int>   <dbl>    <int>     <dbl>
##  1 Afghanistan Asia       1952    28.8  8425333      779.
##  2 Afghanistan Asia       1957    30.3  9240934      821.
##  3 Afghanistan Asia       1962    32.0 10267083      853.
##  4 Afghanistan Asia       1967    34.0 11537966      836.
##  5 Afghanistan Asia       1972    36.1 13079460      740.
##  6 Afghanistan Asia       1977    38.4 14880372      786.
##  7 Afghanistan Asia       1982    39.9 12881816      978.
##  8 Afghanistan Asia       1987    40.8 13867957      852.
##  9 Afghanistan Asia       1992    41.7 16317921      649.
## 10 Afghanistan Asia       1997    41.8 22227415      635.
## # … with 1,694 more rows

p <- ggplot(gapminder, mapping = aes(x = gdpPercap, y = lifeExp))
p + geom_point(alpha = 0.3) +
  geom_smooth(method = "lm") +
  scale_x_log10(label = scales::label_dollar()) +
  labs(x = "GDP per capita", y = "Life Expectancy in Years",
       title = "Economic Growth and Life Expectancy",
       subtitle = "Data points are country-years",
       caption = "Source: Gapminder") +
  theme_bw()

## `geom_smooth()` using formula 'y ~ x'