Publications by Joe Long
Texas Employment Indicators
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('01-07-2021'), ymin = -Inf, ymax = Inf), fill = "lightyellow", alpha = 0...
1860 sym R (12028 sym/16 pcs) 16 img
Korean Population in California by Census 2010 and 2019
knitr::opts_chunk$set(echo = T) library(tidyverse); library(tidycensus); library(sf); library(raster) ## -- Attaching packages --------------------------------------- tidyverse 1.3.1 -- ## v ggplot2 3.3.3 v purrr 0.3.4 ## v tibble 3.1.1 v dplyr 1.0.6 ## v tidyr 1.1.3 v stringr 1.4.0 ## v readr 1.4.0 v forcats 0.5.1 ##...
322 sym R (5978 sym/52 pcs) 4 tbl
2021 Average retail food prices
Consumer Sentiment as general trends. UMCSENT: University of Michigan Consumer Sentiment. Index 1966:Q1=100,Not Seasonally Adjusted ## Registered S3 method overwritten by 'tune': ## method from ## required_pkgs.model_spec parsnip Retail Sales: Retail and Food Services, Total (MRTSSM44X72USS) Millions of Dollars, Sea...
2484 sym R (2637 sym/5 pcs) 18 img
African American Populations in California by Municipal Districts
Extracting data from 2010 & 2019 Census with designated variable 2010 B02001_003 black 2019 B02001_003 black ## Getting data from the 2015-2019 5-year ACS ## Getting data from the 2006-2010 5-year ACS 2019 Black population in U.S. States NAME year2019 year2010 change Texas 3428211 2864666 563545 Florida 3359031 2900412 ...
331 sym R (360 sym/8 pcs) 5 img 6 tbl
Vietnamese American populations in California
knitr::opts_chunk$set(echo = T) library(tidyverse); library(tidycensus); library(sf); library(raster) ## -- Attaching packages --------------------------------------- tidyverse 1.3.1 -- ## v ggplot2 3.3.3 v purrr 0.3.4 ## v tibble 3.1.1 v dplyr 1.0.6 ## v tidyr 1.1.3 v stringr 1.4.0 ## v readr 1.4.0 v forcats 0.5.1 ##...
845 sym R (7849 sym/59 pcs) 9 tbl
Vietnamese Population in California by Census 2010 and 2019
knitr::opts_chunk$set(echo = F) library(tidyverse); library(tidycensus); library(sf); library(raster) ## -- Attaching packages --------------------------------------- tidyverse 1.3.1 -- ## v ggplot2 3.3.3 v purrr 0.3.4 ## v tibble 3.1.1 v dplyr 1.0.6 ## v tidyr 1.1.3 v stringr 1.4.0 ## v readr 1.4.0 v forcats 0.5.1 ##...
288 sym R (2328 sym/40 pcs) 4 tbl
U.S. Manufacturing Capacity and Employment
Manufacturers’ New Orders: Total Manufacturing (AMTMNO) All Employees, Manufacturing (MANEMP) Manufacturers’ New Orders: Consumer Durable Goods (ACDGNO) Manufacturers’ New Orders: Durable Goods (UMDMNO) Capacity Utilization: Manufacturing (NAICS) (MCUMFN) Manufacturers: Inventories to Sales Ratio (MNFCTRIRSA) Industrial Production: Ma...
850 sym 13 img
Employment by industry sectors in California
All Employees: Total Nonfarm in California (CANAN) indicator <- fredr(series_id = "CANAN", observation_start = as.Date("2015-01-01")) ggplot(data = indicator, mapping = aes(x = date, y = value)) + geom_rect(aes(xmin= dmy('01-01-2020'), xmax=dmy('01-05-2021'), ymin = -Inf, ymax = Inf), fill = "lightyellow", alpha = 0.02)+...
3440 sym R (11687 sym/16 pcs) 16 img
Crime Analysis _ 2020 Los Angeles
data <- read.csv("C:/Users/Joe/Downloads/LA_2020_to_Present.csv") data$DATE.OCC <- as.POSIXlt(data$DATE.OCC, format="%m/%d/%Y %H:%M:%S %p") data$Year <- year(data$DATE.OCC) data$Month <- month.abb[month(data$DATE.OCC)] data$weekday <- wday(data$DATE.OCC) data$Hour <- floor(data$TIME.OCC/100)*100 Top crime categories y2020 <- data %>% fi...
350 sym R (8833 sym/47 pcs) 9 img 14 tbl
Texas Employment Indicators
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('01-06-2021'), ymin = -Inf, ymax = Inf), fill = "lightyellow", alpha = 0...
1925 sym R (12766 sym/17 pcs) 17 img