All Employees: Total Nonfarm in Anaheim-Santa Ana-Irvine, CA (SMU06112440000000001)

series_ls <-fredr_series_observations(series_id = "SMU06112440000000001",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 = "Thousands of persons",
      title = "EMPLOYMENT: Total Nonfarm in Anaheim-Santa Ana-Irvine, CA ", 
      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()

All Employees: Manufacturing: Durable Goods: Computer and Electronic Product Manufacturing in Anaheim-Santa Ana-Irvine, CA (SMU06112443133400001)

series_ls <-fredr_series_observations(series_id = "SMU06112443133400001",observation_start = as.Date("2018-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",
      title = "EMPLOYMENT: Computer and Electronic Product Manufacturing \nin Anaheim-Santa Ana-Irvine, CA", 
      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()

All Employees: Machinery Manufacturing in Anaheim-Santa Ana-Irvine, CA

(SMU06112443133300001)

series_ls <-fredr_series_observations(series_id = "SMU06112443133300001",observation_start = as.Date("2018-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",
      title = "EMPLOYMENT: Machinery Manufacturing in \nAnaheim-Santa Ana-Irvine, CA", 
      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()

All Employees: Durable Goods: Semiconductor and Other Electronic Component Manufacturing in Anaheim-Santa Ana-Irvine, CA (SMU06112443133440001)

series_ls <-fredr_series_observations(series_id = "SMU06112443133440001",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 = "Thousands of persons",
      title = "EMPLOYMENT: Semiconductor and Other Electronic Component Manufacturing \nin Anaheim-Santa Ana-Irvine, CA", 
      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()

All Employees: Construction in Anaheim-Santa Ana-Irvine, CA (SMU06112442000000001)

series_ls <-fredr_series_observations(series_id = "SMU06112442000000001",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 = "Thousands of persons",
      title = "Employment: Construction in Anaheim-Santa Ana-Irvine, CA", 
      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()

All Employees: Retail Trade: Grocery Stores in Anaheim-Santa Ana-Irvine, CA (SMU06112444244510001)

series_ls <-fredr_series_observations(series_id = "SMU06112444244510001",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 = "Thousands of persons",
      title = "Employment: Retail Grocery Stores in Anaheim-Santa Ana-Irvine, CA", 
      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()

All Employees: Retail Trade: Clothing and Clothing Accessories Stores in Anaheim-Santa Ana-Irvine, CA (SMU06112444244800001)

series_ls <-fredr_series_observations(series_id = "SMU06112444244800001",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 = "Thousands of persons",
      title = "Employment: Retail Clothing and Clothing Accessories Stores \nin Anaheim-Santa Ana-Irvine, CA", 
      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()

All Employees: Finance and Insurance in Anaheim-Santa Ana-Irvine, CA (SMU06112445552000001)

series_ls <-fredr_series_observations(series_id = "SMU06112445552000001",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 = "Thousands of persons",
      title = "Employment: Finance and Insurance Industries \nin Anaheim-Santa Ana-Irvine, CA", 
      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()