Publications by Joe Long

Real Estate Market in Garden Grove, CA

11.08.2020

Garden Grove, CA Inventory Measure (Public) ZILLOW/C161_IMP Median Listing Price - All Homes ZILLOW/C161_MLPAH Median Rental - All Homes ZILLOW/C161_MRPAH Price To Rent Ratio - All Homes ZILLOW/C161_PRRAH Median Rental Price - Three Bedrooms ZILLOW/C161_MRP3B Median Listing Price - Three Bedrooms ZILLOW/C161_MLP3B indicator <- Quandl("ZILLO...

341 sym R (3005 sym/12 pcs) 6 img

U.S. Employment During COVID19 by Education Attainment & Gender

10.08.2020

Unemployment Rate Less Than a High School Diploma, 25 Yrs. & Over (LNU04027659) High School Graduates, No College, 25 Yrs. & Over (LNU04027660) Some College or Associate Degree, 25 Yrs. & Over (LNU04027689) College Graduates - Bachelor’s Degree, 25 years and over (CGBD25O) College Graduates - Professional Degree, 25 years and over (CGPD25O) n...

3848 sym R (5390 sym/8 pcs) 4 img

Unemployment rates in some states

16.07.2020

R Markdown ggplot(TXUR, aes(DATE, TXUR)) + #geom_point(na.rm=TRUE,color="red")+ geom_line(color="blue")+ theme_solarized()+ labs(title="Unemployment rates in Texas",x="Period",y= "Rate", subtitle = "",caption = "Data source: FRED_ St Louis FED") # Nevada ggplot(NVUR, aes(DATE, NV...

23 sym R (1575 sym/5 pcs) 5 img

2020 Food Prices during COVID19 Pandemic

20.07.2020

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) + ...

2727 sym R (12870 sym/30 pcs) 20 img

Student Population in California by Legislature's Districts

24.07.2020

Total = student population ( public and private) from pre-school to graduate/professional/vocational schools B14002_001 Estimate Total B14002_002 Estimate!!Total!!Male B14002_026 Estimate!!Total!!Female ca_education <- get_acs(geography = "congressional district", variables = "B14002_001", year = 2018, ...

3936 sym R (3864 sym/16 pcs) 5 img

Unemployment _ Demography During COVID19 Pandemic

29.07.2020

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 = "Rate",y = "Date", caption = "Illusration by @JoeLongSanDie...

700 sym R (4039 sym/6 pcs) 6 img

Food Preparation workers

31.07.2020

Extracting data from Bureau of Labor Statistics Occupational Employment Statistics One occupation for multiple geographical areas Occupation = Food preparation workers Geography = all states ## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, : ## Coercing text to numeric in B2 / R2C2: '13500' ## Warning in read_fun...

371 sym R (23464 sym/174 pcs) 3 img

2020 Employment in Texas

01.08.2020

Occupational Employment Statistics Query SystemOES OES Program Links library(tigris) ## To enable ## caching of data, set `options(tigris_use_cache = TRUE)` in your R script or .Rprofile. ## ## Attaching package: 'tigris' ## The following object is masked from 'package:graphics': ## ## plot library(rvest) ## Loading required package: x...

1151 sym R (4731 sym/21 pcs) 8 img

Industry Employments in San Diego-Carlsbad Area, CA

06.08.2020

Employed Persons in San Diego County, CA (LAUCN060730000000005) indicator <-fredr_series_observations(series_id = "LAUCN060730000000005", observation_start = as.Date("2019-01-01")) # plotting data indicator %>% ggplot() + geom_line(mapping = aes(x=date,y=value), color = "maroon",size=.8) + labs(titl...

9156 sym R (11774 sym/32 pcs) 17 img

U.S. Employment During COVID19 by Demographics: Age & Race & Gender

10.08.2020

Unemployment Rate Black or African American (LNS14000006) Hispanic or Latino (LNS14000009) White (LNS14000003) Asian (LNU04032183) black <-fredr_series_observations(series_id = "LNS14000006", observation_start = as.Date("2019-01-01")) hispanic <-fredr_series_observations(series_id = "LNS14000009", observation_start = as.Date...

6817 sym R (9383 sym/14 pcs) 6 img