Manufacturing rates in Texas
Joe Long
9/20/2020
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 = "green4") +
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 = "goldenrod4") +
labs(title = "All Employees: Retail Trade in Texas",
subtitle = str_glue("Monthly from {min(retail$date)} through {max(retail$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('15-09-2020'), ymin = -Inf, ymax = Inf),
fill = "lightyellow", alpha = 0.02)+
geom_line(mapping = aes(x=date,y=value), color = "gold4") +
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 = "lightyellow", alpha = 0.02)+
geom_line(mapping = aes(x=date,y=value), color = "gold4") +
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()
## Initial Claims in Texas (TXICLAIMS)
indicator <-fredr_series_observations(series_id = "TXICLAIMS",
observation_start = as.Date("2019-01-01"))
# plotting data
ggplot(indicator) +
geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('20-09-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)",
x="Weekly", y="Number of workers",
caption = "Data source: FRED St. Louis Federal Reserve\nIllustration by @JoeLongSanDiego",
subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"))+
theme_economist()