It has been a while since I created a new post and although there have been a few in the pipeline, I cannot find the peace of mind to sit down and work through them to create something worthwhile. To assuage the feeling of falling behind, here is a quick post tracking unemployment rates in our counties. The data are from the Bureau of Labor Statistics.
library(tidyverse) read_delim("https://www.bls.gov/web/metro/laucntycur14.txt", "|", escape_double = FALSE, col_names = FALSE, trim_ws = TRUE, skip = 6) -> laucnty colnames(laucnty) = c("laus_area_code", "statefips", "countyfips", "areaname", "period", "civ_laborforce", "employed", "unemployed", "urate") The August 2020 data are provisional estimates and should be discounted for good reason.
Someone well-meaning asked me why I thought the current economic crisis might be different from the last recession, and why might we not see the recovery patterns from the 2009-2012 period. I suppose I feel it is different because of everything I read about the state of the economy these days, and because the one number I can chart – the unemployment rate – is not even close to what we have witnessed since 1948.