National Employment Trends

Labor Force Participation Rate (LNU01300000)

series_ls <-fredr_series_observations(series_id = "LNU01300000",observation_start = as.Date("2019-01-01")) 
# convert series list to dataframe
series_df <- do.call(cbind.data.frame, series_ls)

# plotting data
ggplot(series_df) + geom_line(mapping = aes(x=date,y=value),  color = "blue") +
  labs(x = "Monthly",y = "Percent, \nNot Seasonally Adjusted",
      title = "Labor Force Participation Rate (LNU01300000) ", 
      caption = "Source: U.S. Bureau of Labor Statistics and Federal Reserve Bank of St. Louis\nIllustration by @JoeLongSanDiego",
      subtitle = str_glue("Monthly from {min(series_ls$date)} through {max(series_ls$date)}"))+
      theme_economist()

Employment-Population Ratio (LNU02300000)

series_ls <-fredr_series_observations(series_id = "LNU02300000",observation_start = as.Date("2010-01-01")) 
# convert series list to dataframe
series_df <- do.call(cbind.data.frame, series_ls)

# plotting data
ggplot(series_df) + geom_line(mapping = aes(x=date,y=value),  color = "blue") +
  labs(x = "Monthly",y = "Percent, \nNot Seasonally Adjusted",
      title = "Employment-Population Ratio (LNU02300000) ", 
      caption = "Source: U.S. Bureau of Labor Statistics and Federal Reserve Bank of St. Louis\nIllustration by @JoeLongSanDiego",
      subtitle = str_glue("Monthly from {min(series_ls$date)} through {max(series_ls$date)}"))+
      theme_economist()

Unemployment Rate (UNRATENSA)

series_ls <-fredr_series_observations(series_id = "UNRATENSA",observation_start = as.Date("2010-01-01")) 
# convert series list to dataframe
series_df <- do.call(cbind.data.frame, series_ls)

# plotting data
ggplot(series_df) + geom_line(mapping = aes(x=date,y=value),  color = "blue") +
  labs(x = "Monthly",y = "Percent, \nNot Seasonally Adjusted",
      title = "Unemployment Rate (UNRATENSA) ", 
      caption = "Source: U.S. Bureau of Labor Statistics and Federal Reserve Bank of St. Louis\nIllustration by @JoeLongSanDiego",
      subtitle = str_glue("Monthly from {min(series_ls$date)} through {max(series_ls$date)}"))+
      theme_economist()

Reentrants to Labor Force as a Percent of Total Unemployed (LNU03023558)

series_ls <-fredr_series_observations(series_id = "LNU03023558",observation_start = as.Date("2010-01-01")) 
# convert series list to dataframe
series_df <- do.call(cbind.data.frame, series_ls)

# plotting data
ggplot(series_df) + geom_line(mapping = aes(x=date,y=value),  color = "blue") +
  labs(x = "Monthly",y = "Percent, \nNot Seasonally Adjusted",
      title = "Reentrants to Labor Force as a Percent of Total Unemployed (LNU03023558) ", 
      caption = "Source: U.S. Bureau of Labor Statistics and Federal Reserve Bank of St. Louis\nIllustration by @JoeLongSanDiego",
      subtitle = str_glue("Monthly from {min(series_ls$date)} through {max(series_ls$date)}"))+
      theme_economist()

Unemployment Level - Job Leavers (LNU03023705)

series_ls <-fredr_series_observations(series_id = "LNU03023705",observation_start = as.Date("2010-01-01")) 
# convert series list to dataframe
series_df <- do.call(cbind.data.frame, series_ls)

# plotting data
ggplot(series_df) + geom_line(mapping = aes(x=date,y=value),  color = "blue") +
  labs(x = "Monthly",y = "Thousands of Person, \nNot Seasonally Adjusted",
      title = "Unemployment Level - Job Leavers (LNU03023705) ", 
      caption = "Source: U.S. Bureau of Labor Statistics and Federal Reserve Bank of St. Louis\nIllustration by @JoeLongSanDiego",
      subtitle = str_glue("Monthly from {min(series_ls$date)} through {max(series_ls$date)}"))+
      theme_economist()

Not in Labor Force (LNU05000000)

series_ls <-fredr_series_observations(series_id = "LNU05000000",observation_start = as.Date("2010-01-01")) 
# convert series list to dataframe
series_df <- do.call(cbind.data.frame, series_ls)

# plotting data
ggplot(series_df) + geom_line(mapping = aes(x=date,y=value),  color = "blue") +
  labs(x = "Monthly",y = "Thousands of persons, \nNot Seasonally Adjusted",
      title = "Not in Labor Force (LNU05000000)", 
      caption = "Source: U.S. Bureau of Labor Statistics and Federal Reserve Bank of St. Louis\nIllustration by @JoeLongSanDiego",
      subtitle = str_glue("Monthly from {min(series_ls$date)} through {max(series_ls$date)}"))+
      theme_economist()

ADP <- read.csv("C:/Users/joeca/Downloads/ADP_NER_history/ADP_NER_history.csv")
size <- ADP %>% filter(agg_RIS=="Firm Size")
industry <- ADP %>% filter(agg_RIS=="Industry")
national <- ADP %>% filter(agg_RIS=="National")
census <- ADP %>% filter(agg_RIS=="Census Divisions")

ggplot(size,  aes(x = date,
                   y = NER,
                   color = category)) +  geom_line()

All Employees, Manufacturing (CEU3000000001)

All Employees, Leisure and Hospitality (CEU7000000001)

All Employees, Truck Transportation (CEU4348400001)

All Employees, Retail Trade (CEU4200000001)

series_ls <-fredr_series_observations(series_id = "CEU3000000001",observation_start = as.Date("2010-01-01")) 
# convert series list to dataframe
series_df <- do.call(cbind.data.frame, series_ls)

series_ls1 <-fredr_series_observations(series_id = "CEU7000000001",observation_start = as.Date("2010-01-01")) 
# convert series list to dataframe
series_df1 <- do.call(cbind.data.frame, series_ls1)

# plotting data
ggplot(series_df) + geom_line(mapping = aes(x=date,y=value),  color = "blue") +
  labs(x = "Monthly",y = "Thousands of Persons, \nNot Seasonally Adjusted",
      title = "All Employees, Manufacturing (CEU3000000001)", 
      caption = "Source: U.S. Bureau of Labor Statistics and Federal Reserve Bank of St. Louis\nIllustration by @JoeLongSanDiego",
      subtitle = str_glue("Monthly from {min(series_ls$date)} through {max(series_ls$date)}"))+
      theme_economist()+
  geom_line(data=series_ls1, mapping = aes(x=date,y=value),  color = "red")