Texas Employment Indicators

Initial Unemployment Claims in Texas (TXICLAIMS)

indicator <-fredr_series_observations(series_id = "TXICLAIMS",
        observation_start = as.Date("2018-01-01")) 

# plotting data
ggplot(indicator)+ 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('31-12-2020'), ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "blue4") +
 
  labs(title = "Initial Claims in Texas (TXICLAIMS)", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Weekly\nNot seasonnaly adjusted", y="Number",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

Continued Claims (Insured Unemployment) in Texas (TXCCLAIMS)

indicator <-fredr_series_observations(series_id = "TXCCLAIMS",
        observation_start = as.Date("2018-01-01")) 

# plotting data
ggplot(indicator)+ 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('31-12-2020'), ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "blue4") +

  labs(title = "Continued Claims (Insured Unemployment) in Texas (TXCCLAIMS)", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Weekly\nNot seasonnaly adjusted", y="Number",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

Total Gross Domestic Product by Industry for Texas (TXNQGSP)

indicator <-fredr_series_observations(series_id = "TXNQGSP",
        observation_start = as.Date("2015-01-01")) 

# plotting data
ggplot(indicator)+ 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('01-12-2020'), ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "blue4") +
   labs(title = "Total Gross Domestic Product by Industry for Texas (TXNQGSP)", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Quarterly", y="Millions of Dollars",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

New Private Housing Units Authorized by Building Permits: 1-Unit Structures for Texas (TXBP1FHSA)

indicator <-fredr_series_observations(series_id = "TXBP1FHSA",
        observation_start = as.Date("2015-01-01")) 

# plotting data
ggplot(indicator)+ 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('01-11-2020'), ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "blue4") +
   labs(title = "New Private SFR Housing Building Permits for Texas (TXBP1FHSA)", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Units",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

Non-Durable Goods: Petroleum and Coal Products Manufacturing Payroll Employment in Texas (TX32324000M158FRBDAL)

oil <-fredr_series_observations(series_id = "TX32324000M158FRBDAL",
        observation_start = as.Date("2019-01-01")) 

# plotting data
ggplot(oil) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('01-09-2020'), ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "red4") +
  geom_hline(yintercept = 0, color="blue")+
  labs(title = "Petroleum and Coal Products Manufacturing Payroll Employment in Texas", 
       subtitle = str_glue("Monthly from {min(oil$date)} through {max(oil$date)}"),
       x="Monthly", y="Percent Change at Annual Rate",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

Plastics and Rubber Products Manufacturing Payroll Employment in Texas (TX32326000M158FRBDAL)

indicator <-fredr_series_observations(series_id = "TX32326000M158FRBDAL",
        observation_start = as.Date("2019-01-01")) 

# plotting data
ggplot(indicator) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('01-09-2020'), ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "red4") +
  geom_hline(yintercept = 0, color="blue")+
  labs(title = "Plastics and Rubber Products Manufacturing Payroll Employment in Texas", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Percent Change at Annual Rate",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

Pharmaceutical and Medicine Manufacturing Payroll Employment in Texas (TX32325400M158FRBDAL)

indicator <-fredr_series_observations(series_id = "TX32325400M158FRBDAL",
        observation_start = as.Date("2019-01-01")) 

# plotting data
ggplot(indicator) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('01-09-2020'), ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "red4") +
  geom_hline(yintercept = 0, color="blue")+
  labs(title = "Pharmaceutical and Medicine Manufacturing Payroll Employment in Texas", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Percent Change at Annual Rate",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

Manufacturing: Non-Durable Goods Payroll Employment in Texas (TX32000000M158FRBDAL)

indicator <-fredr_series_observations(series_id = "TX32000000M158FRBDAL",
        observation_start = as.Date("2019-01-01")) 

# plotting data
ggplot(indicator) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('15-09-2020'), ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "red4") +
 geom_hline(yintercept = 0, color="blue")+
  labs(title = "Manufacturing: Non-Durable Goods Payroll Employment in Texas", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Percent Change at Annual Rate",
       caption = "Data source: FRED Federal Reserve.\nIllustration by @JoeLongSanDiego")+
    theme_economist()

Mining: Oil and Gas Extraction Payroll Employment in Texas (TX10211000M158FRBDAL)

• Thousands of Persons, Not Seasonally Adjusted
• Monthly

indicator <-fredr_series_observations(series_id = "TX10211000M158FRBDAL",
        observation_start = as.Date("2019-01-01")) 

# plotting data
ggplot(indicator) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('15-09-2020'), ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "red4") +
  geom_hline(yintercept = 0, color="blue")+
  labs(title = "Oil and Gas Extraction Payroll Employment in Texas", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Percent Change at Annual Rate",
       caption = "Data source: FRED Federal Reserve.\nIllustration by @JoeLongSanDiego")+
    theme_economist()

Durable Goods: Electrical Equipment, Appliance, and Component Manufacturing Payroll Employment (TX31335000M158FRBDAL)

indicator <-fredr_series_observations(series_id = "TX31335000M158FRBDAL",
        observation_start = as.Date("2019-01-01")) 

# plotting data
ggplot(indicator) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('15-09-2020'), ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "red4") +
 geom_hline(yintercept = 0, color="blue")+
  labs(title = "Durable Goods: Electrical Equipment, Appliance, and Component Manufacturing", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Percent Change at Annual Rate",
       caption = "Data source: FRED Federal Reserve.\nIllustration by @JoeLongSanDiego")+
    theme_economist()

All Employees: Manufacturing in Texas (TXMFGN)

• Thousands of Persons, Not Seasonally Adjusted

manufacturing <-fredr_series_observations(series_id = "TXMFGN", observation_start = as.Date("2019-01-01")) 

# plotting data
ggplot(manufacturing) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('15-09-2020'), ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "blue4") +
  labs(title = "All Employees: Manufacturing in Texas (TXMFG)", 
        subtitle = str_glue("Monthly from {min(manufacturing$date)} through {max(manufacturing$date)}"), 
       x="Monthly", y="Thousands of workers",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
  theme_economist()

All Employees: Retail Trade in Texas (SMS48000004200000001)

retail <-fredr_series_observations(series_id = "SMS48000004200000001",
        observation_start = as.Date("2019-01-01")) 

# plotting data

ggplot(retail) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('15-09-2020'), ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "blue4") +
  labs(title = "All Employees: Retail Trade in Texas (SMS48000004200000001)", 
        subtitle = str_glue("Monthly from {min(manufacturing$date)} through {max(manufacturing$date)}"), 
       x="Monthly", y="Thousands of workers",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
  theme_economist()

All Employees: Durable Goods: Motor Vehicle Manufacturing in Texas (SMU48000003133610001)

• Thousands of Persons, Not Seasonally Adjusted

car <-fredr_series_observations(series_id = "SMU48000003133610001",
        observation_start = as.Date("2019-01-01")) 

# plotting data
ggplot(car) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('01-11-2020'), ymin = -Inf, ymax = Inf),
                   fill = "white", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), color = "blue4") +
  labs(title = "All Employees: Car Manufacturing in Texas", 
        x="Monthly", y="Thousands of workers",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego",
   subtitle = str_glue("Monthly from {min(car$date)} through {max(car$date)}"))+
  theme_economist()

All Employees: Durable Goods: Semiconductor and Other Electronic Component Manufacturing in Texas (SMU48000003133440001)

• Thousands of Persons, Not Seasonally Adjusted

indicator <-fredr_series_observations(series_id = "SMU48000003133440001",
        observation_start = as.Date("2019-01-01")) 

# plotting data
ggplot(indicator) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('01-09-2020'), ymin = -Inf, ymax = Inf),
                   fill = "white", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), color = "blue4") +
  labs(title = "All Employees: Semiconductor & Electronic Manufacturing in Texas", 
        x="Monthly", y="Thousands of workers",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego",
   subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"))+
  theme_economist()