Publications by Joe Long
Unemployment Indicators 2020
Initial Claims (ICNSA) usa_claims <- "ICNSA" %>% tq_get(get = "economic.data", from = "2019-01-01") %>% rename(claims = price) usa_claims %>% ggplot(aes(x = date, y = claims)) + geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('12-11-2020'), ymin = -Inf, ymax = Inf), fill = "white", alpha...
4556 sym R (17386 sym/27 pcs) 22 img
Retail Sales During 2020 Pandemic
Retail Sales: Grocery Stores (MRTSSM4451USS) Source: U.S. Census Bureau Release: Monthly Retail Trade and Food Services Units: Millions of Dollars, Seasonally Adjusted Frequency: Monthly Suggested Citation: U.S. Census Bureau, Retail Sales: Grocery Stores [MRTSSM4451USS], retrieved from FRED, Federal Reserve Bank of St. Louis; https://fred.stlo...
4788 sym R (12304 sym/17 pcs) 16 img
U.S. Transportation Employment
Unemployment Rate - Transportation and Material Moving Occupations (LNU04032228) indicator <-fredr_series_observations(series_id = "LNU04032228", 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(bo...
6180 sym R (15662 sym/34 pcs) 19 img
Unemployment Indicators during COVID19
Initial Claims (ICNSA) usa_claims <- "ICNSA" %>% tq_get(get = "economic.data", from = "2019-01-01") %>% rename(claims = price) usa_claims %>% ggplot(aes(x = date, y = claims)) + geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('12-11-2020'), ymin = -Inf, ymax = Inf), fill = "white", alpha...
4556 sym R (17386 sym/27 pcs) 22 img
Texas Economics
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...
1417 sym R (10624 sym/14 pcs) 14 img
U.S. Auto Sales & Employment during COVID 19 Pandemic
General trends TOTALSA : Total Vehicle Sales date value 2020-05-01 12 2020-06-01 13 2020-07-01 15 2020-08-01 16 2020-09-01 17 2020-10-01 17 DAUPSA : Domestic car production date value 2020-05-01 46 2020-06-01 138 2020-07-01 225 2020-08-01 195 2020-09-01 198 2020-10-01 188 Motor Vehicle Re...
2401 sym 17 img
U.S. International Trade
Exports of Goods and Services, Balance of Payments Basis (BOPTEXP) Imports of Goods and Services: Balance of Payments Basis (BOPTIMP) import <-fredr_series_observations(series_id = "BOPTIMP", observation_start = as.Date("2019-01-01")) ## Error in curl::curl_fetch_memory(url, handle = handle): Timeout was reached: [api.stlouisfed.org] C...
8825 sym R (18869 sym/32 pcs) 10 img
National Account During Covid19 Pandemic
M1 Money Stock (M1) date value 557 2020-08-31 5409 558 2020-09-07 5395 559 2020-09-14 5566 560 2020-09-21 5564 561 2020-09-28 5500 562 2020-10-05 5508 563 2020-10-12 5604 564 2020-10-19 5546 565 2020-10-26 5581 566 2020-11-02 5635 567 2020-11-09 5735 568 2020-11-16 5733 ...
11328 sym 13 img
U.S. Construction 2020
General Population trend Total Construction Spending (TTLCON) date value 2019-02-01 92116 2019-03-01 102631 2019-04-01 110140 2019-05-01 116885 2019-06-01 122329 2019-07-01 125821 2019-08-01 128092 2019-09-01 126732 2019-10-01 123755 2019-11-01 118357 2019-12-01 106347 2020-01-01 101121 2020-0...
5514 sym 9 img
US Auto Sales
General trends # search database for a car production series search_ls <- fredr_series_search_text("auto manufacturing employee") search_ls$title[1:40] ## [1] "All Employees: Manufacturing: Durable Goods: Motor Vehicle Manufacturing in Michigan" ## [2] "All Employees: Manufacturi...
2177 sym R (19256 sym/26 pcs) 16 img