Publications by Joe Long
U.S. Vehicle Sales During Covid-19 Pandemic 2020
General Population trend Total Vehicle Sales (TOTALNSA) ## Error in curl::curl_fetch_memory(url, handle = handle): Timeout was reached: [api.stlouisfed.org] Resolving timed out after 10000 milliseconds ## Request failed [ERROR]. Retrying in 1 seconds... ## Error in curl::curl_fetch_memory(url, handle = handle): Timeout was reached: [api.stlouis...
5208 sym R (956 sym/5 pcs) 9 img
FRED Financial Measures during COIVD19
Total Nonrevolving Credit Owned and Securitized, Outstanding (NONREVSL) Total revolving Credit Owned and Securitized, Outstanding (REVOLSL) Total Consumer Credit Owned and Securitized, Outstanding (TOTALSL) symbol1 <-fredr_series_observations(series_id = "NONREVSL", observation_start = as.Date("2019-01-01")) indicator1 <-as.data.frame(...
6553 sym R (8627 sym/19 pcs) 7 img
Housing Market
General market trend before 2020 House Price Index for the United States (USSTHPI) Index 1980:Q1=100,Not Seasonally Adjusted symbol <-fredr_series_observations(series_id = "USSTHPI", observation_start = as.Date("2000-01-01")) indicator <-as.data.frame(symbol)[,c(1,3)] tail(indicator) %>% kable() %>% kable_styling(bootstrap_optio...
4182 sym R (9972 sym/24 pcs) 11 img
Stock charts
## 'getSymbols' currently uses auto.assign=TRUE by default, but will ## use auto.assign=FALSE in 0.5-0. You will still be able to use ## 'loadSymbols' to automatically load data. getOption("getSymbols.env") ## and getOption("getSymbols.auto.assign") will still be checked for ## alternate defaults. ## ## This message is shown once per sessi...
12 sym R (720 sym/6 pcs) 19 img
Leisure and Hospitality Industries During Covid19
All Employees: All Employees, Leisure and Hospitality (CEU7000000001) indicator <- fredr(series_id = "CEU7000000001", observation_start = as.Date("2019-01-01")) ggplot(data = indicator, mapping = aes(x = date, y = value)) + geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('01-09-2020'), ymin = -Inf, ymax = Inf), fill = "l...
791 sym R (13675 sym/18 pcs) 9 img
Industrial and Manufacturing sectors 2020
Industrial Production: Total Index (IPB50001N) Date of data release : October 16, 2020 by FRED St. Louis Federal Reserve symbol <-fredr_series_observations(series_id = "IPB50001N", observation_start = as.Date("2019-01-01")) indicator <-as.data.frame(symbol)[,c(1,3)] indicator %>% kable() %>% kable_styling(bootstrap_options = c("s...
6927 sym R (12083 sym/26 pcs) 13 img
Employment During COVID19 Pandemic in Riverside County, CA
All Employees: Retail Trade in Riverside-San Bernardino-Ontario, CA (MSA) (SMU06401404200000001) indicator <-fredr_series_observations(series_id = "SMU06401404200000001", observation_start = as.Date("2019-01-01")) indicator[,c(1,3)] %>% kable() %>% kable_styling(bootstrap_options = c("striped", "hover", "condensed")) date value ...
9661 sym R (16126 sym/30 pcs) 15 img
U.S. Manufacturing Capacity and Employment
Chicago Fed Survey of Business Conditions: Activity Index (CFSBCACTIVITY) indicator <-fredr_series_observations(series_id = "CFSBCACTIVITY", observation_start = as.Date("2015-01-01")) # plotting data indicator %>% ggplot() + geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf), fill ...
670 sym R (13009 sym/20 pcs) 10 img
U.S. Transportation
Moving 12-Month Total Vehicle Miles Traveled (M12MTVUSM227NFWA) indicator <-fredr_series_observations(series_id = "M12MTVUSM227NFWA", observation_start = as.Date("2015-01-01")) colnames(indicator) <- c("date","series","miles") indicator[,c(1,3)] %>% slice_sample(n = 10)%>% arrange(date)%>% kable() %>% kable_styling(bootstrap_opti...
2950 sym R (7099 sym/16 pcs) 10 img
2020 U.S. Manufacturing Capacity and Employment
All Employees, Manufacturing (MANEMP) indicator <-fredr_series_observations(series_id = "CALEIH", observation_start = as.Date("2019-01-01")) # plotting data indicator %>% ggplot() + geom_line(mapping = aes(x=date,y=value), color = "red4") + labs(title = "National Employment, Manufacturing", ...
501 sym R (10154 sym/20 pcs) 8 img