Publications by Joe Long
2020 Personal Income during COVID19 Pandemic
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) + ...
2520 sym R (4902 sym/11 pcs) 9 img
U.S. Automobile Sales during COVID 19 Pandemic
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...
1101 sym R (17633 sym/26 pcs) 17 img 6 tbl
Health insurance coverage for full-time workers in California
Under the ACA, employers with 50 or more full-time employees (or the equivalent in part-time employees) must provide health insurance to 95% of their full-time employees or pay a penalty; However, the penalty has been repealed. Health Insurance Coverage as a Voluntary Benefit Many smaller companies offer health insurance as a benefit, even if the...
1083 sym R (4598 sym/17 pcs) 4 img 4 tbl
Median Contract Rent _ 2018 California
B25058_001 Median Contract Rent (Dollars) ## c(Median household Income, Median Housing Value) ca_rent <- get_acs(geography = "congressional district", variables = "B25058_001", year = 2018, survey = "acs5", state = "06") ## Getting data from the 2014-2018 5-year ACS...
158 sym R (30303 sym/18 pcs) 5 img 3 tbl
Unemployment in California _ COVID19 Pandemic
National Unemployment Rate (UNRATE) usa_claims <- "UNRATE" %>% tq_get(get = "economic.data", from = "2019-01-01") %>% rename(claims = price) usa_claims %>% ggplot(aes(x = date, y = claims)) + geom_line(color = "blue",size=1) + labs( x = "", y = "", title = "New Unemployment Claims ...
623 sym R (8281 sym/19 pcs) 16 img 1 tbl
2020 U.S. Real Estate Economy under COVID19 Pandemic
General trends University of Michigan Consumer Sentiment UMCSENT senti <- "UMCSENT" %>% tq_get(get = "economic.data", from = "2019-06-01") %>% rename(count = price) senti %>% ggplot(aes(x = date, y = count)) + geom_line(color = "firebrick4",size=.8) + labs( x = "", y = "", title = "Consumer S...
693 sym R (4951 sym/10 pcs) 10 img
2018 Unemployment rates in California
Unemployment rates using different congressional district boundaries B23025_005E Unemployed Estimate In Civilian labor force B23025_003E Total Estimate In Civilian labor force B23025_004E Employed Estimate In Civilian labor force v18 <- load_variables(2018, "acs5", cache = TRUE) # B25064_001 Estimate!!Median gross rent View(v18) Var<-c...
494 sym R (32744 sym/28 pcs) 4 img 3 tbl
Housing Values ,using different geometric boundaries
Median housing values using different geographical boundaries Census variable = “B25077_001” Var<-c("B19013_001","B25077_001") ## c(Median household Income, Median Housing Value) ca_df <- get_acs(geography = "county", variables = Var, year = 2017, survey = "acs5", ...
141 sym R (35838 sym/38 pcs) 7 img 6 tbl
Median Household Income in California
Household income using different geographical boundaries Census variable for median household income = “B19013_001” ca <- get_acs(geography = "county", variables = "B19013_001", state = "CA",year = 2017) ## Getting data from the 2013-2017 5-year ACS ca_cd <- get_acs(geography = "congressional district", variables = "B19013_001", state = "CA"...
131 sym R (5323 sym/22 pcs) 6 img 6 tbl
Employment: Food and Drinking Sector During COVID19
All Employees: Food Services and Drinking in California (SMU06000007072200001) indicator <-fredr_series_observations(series_id = "SMU06000007072200001", observation_start = as.Date("2019-01-01")) indicator[,c(1,3)] %>% kable() %>% kable_styling(bootstrap_options = c("striped", "hover", "condensed")) date value 2019-01-01 142...
806 sym R (11440 sym/28 pcs) 8 img 8 tbl