Publications by Joe Long
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
Leisure and Hospitality sectors in California during COVID_19
All Employees: Leisure and Hospitality in California (CALEIH) indicator <- fredr(series_id = "CALEIH", 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 = "lightyellow", al...
2800 sym R (14958 sym/20 pcs) 10 img
Manufacturing rates in Texas _ Economy
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, y...
1176 sym R (8351 sym/11 pcs) 11 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
Case-Shiller U.S. National Home Price Index (CSUSHPINSA)
S&P/Case-Shiller U.S. National Home Price Index (CSUSHPINSA) Units: Index Jan 2000=100, Not Seasonally Adjusted Frequency: Monthly For more information regarding the index, please visit Standard & Poor’s. There is more information about home price sales pairs in the Methodology section. Copyright, 2016, Standard & Poor’s Financial Services LL...
616 sym R (2031 sym/3 pcs) 2 img
Personal Income and Expenditures
Consumer Sentiment as general trends. UMCSENT: University of Michigan Consumer Sentiment. Index 1966:Q1=100,Not Seasonally Adjusted senti <- "UMCSENT" %>% tq_get(get = "economic.data", from = "2015-01-01") %>% rename(count = price) senti %>% ggplot(aes(x = date, y = count)) + geom_line(color = "firebrick2",size=.8) + ...
3323 sym R (7890 sym/17 pcs) 11 img
Restaurant Industries in California During Covid19
All Employees: Leisure and Hospitality in California (CALEIH) indicator <- fredr(series_id = "CALEIH", 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('25-12-2020'), ymin = -Inf, ymax = Inf), fill = "lightyellow", al...
2793 sym R (14910 sym/20 pcs) 10 img
Stock Charting
getSymbols("JACK",from="2015-01-01") ## '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. ## ##...
134 sym R (4195 sym/22 pcs) 5 img
U.S. International Trade in Goods and Services
U.S. International Trade Balance: Goods and Services, Balance of Payments Basis (BOPGSTB) Trade Balance: Goods, Balance of Payments Basis (BOPGTB) Trade Balance: Service, Balance of Payments Basis (BOPSTB) U.S. Exports of Services: Telecommunications, Computer, and Information Services (ITXTCIM133S) U.S. Exports of Services: Transport (ITXTRA...
829 sym 13 img
Industry Revenues during the COVID_19 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...
3115 sym R (13732 sym/26 pcs) 17 img