Wondering how to output a chart I saw in the economist magazine

I saw this in a recent economist and I was wondering if anyone has code that would help replicate it using ggplot. Economist Chart

Thanks!