Hi Kieran,

The gghighlight package makes the plotting of all the other countries in gray on the same plot much easier.

For example, I plot death tracks from the JHU data (Twitter: @corona_dt), and created a data frame deaths_after_10 to keep all countries with at least 10 deaths. To plot the small multiples:

library(tidyverse)
library(gghighlight)
ggplot(deaths_after_10, aes(x=days, y=deaths))+
  geom_line(aes(group=country_region), color='firebrick')+ 
  gghighlight() + 
  facet_wrap(~country_region) + 
  theme_classic() + 
  labs(x = 'Days since 10th death', y = 'Cumulative number of deaths')

gets you the following plot

Writing here since I figured this would be easiest way to get feedback to you. Happy plotting, and love your book

Thanks for sharing this code!

A lot of calls are already namespaced. Would you do same for union() so it's always clear which package you intend?

> covid <- coalesce_join(covid, cname_xwalk, 
+                        by = "geo_id", join = dplyr::left_join)
Error: [conflicted] `union` found in 2 packages.
Either pick the one you want with `::` 
* lubridate::union
* dplyr::union
Or declare a preference with `conflict_prefer()`
* conflict_prefer("union", "lubridate")
* conflict_prefer("union", "dplyr")