Publications by Joe Long
Labor Participation _ unemployment from FRED St. Louse Fed Reserve
National Initial Unemployment 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('01-11-2020'), ymin = -Inf, ymax = Inf), ...
515 sym R (6858 sym/9 pcs) 9 img
Unemployment during COVID19 _ California & Texas & Nevada & New York
California Unemployment date claims 2020-09-05 243404 2020-09-12 226004 2020-09-19 226179 2020-09-26 171220 2020-10-03 148213 2020-10-10 176083 2020-10-17 159876 2020-10-24 152176 2020-10-31 152480 2020-11-07 157773 2020-11-14 158825 2020-11-21 168186 ## `summarise()` regrouping output by 'year...
4166 sym R (790 sym/10 pcs) 27 img
Unemployment during COVID19 _ California counties
California Unemployment Getting economic data from tidyquant package ca_claims <- "CAICLAIMS" %>% tq_get(get = "economic.data", from = "2019-01-01") %>% rename(claims = price) ca_claims %>% ggplot(aes(x = date, y = claims)) + geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('01-10-2020'), ymin = -Inf, ymax =...
982 sym R (11277 sym/23 pcs) 15 img
Entertainment Industries during 2020 Covid19 Pandemic
Total Admissions Revenue for Amusement Parks and Arcades, Establishments Subject to Federal Income Tax (ADM7131TAXABL144QNSA) symbol <-fredr_series_observations(series_id = "ADM7131TAXABL144QNSA", observation_start = as.Date("2000-01-01")) indicator <-as.data.frame(symbol)[,c(1,3)] tail(indicator) %>% kable() %>% kable_styling(boot...
1730 sym R (6577 sym/15 pcs) 10 img
Weekly Economic Index (Lewis-Mertens-Stock) (WEI)
Weekly Economic Index (Lewis-Mertens-Stock) (WEI) The WEI is an index of real economic activity using timely and relevant high-frequency data. It represents the common component of ten different daily and weekly series covering consumer behavior, the labor market, and production. The WEI is scaled to the four-quarter GDP growth rate; for example,...
2152 sym R (2033 sym/3 pcs) 2 img
Housing Market _ September 2020 Update
As of September 22, 2020 by FRED St. Louis Federal Reserve Median Sales Price for New Houses Sold in the United States (MSPNHSUS) indicator <-fredr_series_observations(series_id = "MSPNHSUS", observation_start = as.Date("2010-01-01")) tail(indicator[,c(1,3)],n=13) %>% kable() %>% kable_styling(bootstrap_options = c("striped", "ho...
5703 sym R (16242 sym/41 pcs) 16 img
LA Dodgers verses LA Angels _ Google Search Trends
my_theme <- function() { theme_bw() + theme(panel.background = element_blank()) + theme(plot.background = element_rect(fill = "seashell")) + theme(panel.border = element_blank()) + # facet border theme(strip.background = element_blank()) + # facet title background theme(plot.margin...
11 sym R (8185 sym/13 pcs) 6 img
Unemployment_California September 2020
Initial Claims (ICNSA) indicator <-fredr_series_observations(series_id = "ICNSA", 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 = ...
1461 sym R (14083 sym/21 pcs) 18 img
Retail Sales During COVID19
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...
4734 sym R (12299 sym/17 pcs) 16 img
Air Travel During COVID_19
Available Seat Miles (ASMs) A common industry measurement of airline output that refers to one aircraft seat flown one mile, whether occupied or not. An aircraft with 100 passenger seats, flown a distance of 100 miles, generates 10,000 available seat miles. # Domestic Available Seat Miles (ASMs), Scheduled Passenger Flights (ASMDD11) indicator <...
553 sym R (2828 sym/4 pcs) 4 img