4.11 Solutions

Solution to Exercise 4.5.1:

library(tidyverse)
library(gapminder)

gapminder %>% 
  ggplot(aes(x      = year,
             y      = lifeExp,
             group  = country,
             colour = continent)) +
  geom_line() +
  facet_wrap(~continent) + 
  theme_bw() +
  scale_colour_brewer(palette = "Paired")

Solution to Exercise 4.6.5:

library(tidyverse)
library(gapminder)

gapminder %>% 
  filter(year == 2007) %>%
  filter(continent == "Europe") %>% 
  ggplot(aes(x = fct_reorder(country, lifeExp), y = lifeExp)) +
  geom_col(colour = "deepskyblue", fill = NA) +
  coord_flip() +
  theme_classic()