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(title = "Employed Persons in San Diego County, CA", 
       subtitle = str_glue("from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="People",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

Unemployed Persons in San Diego County, CA (LAUCN060730000000004)

indicator <-fredr_series_observations(series_id = "LAUCN060730000000004",
        observation_start = as.Date("2019-01-01")) 

# plotting data
indicator %>% ggplot() + geom_line(mapping = aes(x=date,y=value), 
                              color = "maroon",size=.8) +
  labs(title = "Unemployed Persons in San Diego County, CA", 
       subtitle = str_glue("from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="People",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

All Employees: Leisure and Hospitality in San Diego-Carlsbad, CA

indicator <-fredr_series_observations(series_id = "SAND706LEIHN",
        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 195.2
2019-02-01 196.9
2019-03-01 198.9
2019-04-01 201.1
2019-05-01 203.9
2019-06-01 206.6
2019-07-01 208.9
2019-08-01 208.1
2019-09-01 203.4
2019-10-01 203.3
2019-11-01 202.4
2019-12-01 200.6
2020-01-01 197.2
2020-02-01 197.6
2020-03-01 192.9
2020-04-01 104.8
2020-05-01 114.6
2020-06-01 149.3 
# plotting data
indicator %>% ggplot() + geom_line(mapping = aes(x=date,y=value), 
                              color = "maroon",size=.8) +
  labs(title = "Employment: Leisure and Hospitality in San Diego-Carlsbad", 
       subtitle = str_glue("from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of People",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

All Employees: Retail Trade in San Diego-Carlsbad, CA (MSA) (SMU06417404200000001)

indicator <-fredr_series_observations(series_id = "SMU06417404200000001",
        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 147.5
2019-02-01 145.0
2019-03-01 143.9
2019-04-01 143.2
2019-05-01 143.4
2019-06-01 143.1
2019-07-01 144.3
2019-08-01 144.7
2019-09-01 143.6
2019-10-01 144.1
2019-11-01 149.6
2019-12-01 152.4
2020-01-01 146.1
2020-02-01 144.3
2020-03-01 141.9
2020-04-01 120.6
2020-05-01 120.8
2020-06-01 127.6 
# plotting data
indicator %>% ggplot() + geom_line(mapping = aes(x=date,y=value), 
                              color = "maroon4",size=0.8) +
  labs(title = "Employment: Retail Trade in San Diego-Carlsbad, CA", 
       subtitle = str_glue("from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of People",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

All Employees: Construction in San Diego-Carlsbad, CA (MSA) (SMU06417402000000001)

indicator <-fredr_series_observations(series_id = "SMU06417402000000001",
        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 81.7
2019-02-01 81.8
2019-03-01 82.8
2019-04-01 83.3
2019-05-01 83.9
2019-06-01 84.5
2019-07-01 85.6
2019-08-01 86.4
2019-09-01 85.8
2019-10-01 83.7
2019-11-01 84.0
2019-12-01 84.8
2020-01-01 81.8
2020-02-01 83.6
2020-03-01 80.2
2020-04-01 73.7
2020-05-01 77.3
2020-06-01 81.4 
indicator %>% ggplot() + geom_line(mapping = aes(x=date,y=value), 
                              color = "maroon3",size=0.8) +
  labs(title = "Employment: Construction in San Diego-Carlsbad, CA  ", 
       subtitle = str_glue("from {min(indicator$date)} through {max(indicator$date)} _ Seasionally Adjusted"),
       x="Monthly", y="Thousands of People",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

All Employees: Financial Activities in San Diego-Carlsbad, CA (MSA) (SAND706FIREN)

indicator <-fredr_series_observations(series_id = "SAND706FIREN",
        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 75.0
2019-02-01 75.3
2019-03-01 74.9
2019-04-01 76.0
2019-05-01 76.2
2019-06-01 76.2
2019-07-01 77.0
2019-08-01 77.3
2019-09-01 76.7
2019-10-01 77.7
2019-11-01 77.2
2019-12-01 77.5
2020-01-01 76.4
2020-02-01 76.9
2020-03-01 76.3
2020-04-01 72.2
2020-05-01 72.6
2020-06-01 73.5 
indicator %>% ggplot() + geom_line(mapping = aes(x=date,y=value), 
                              color = "maroon4",size=0.8) +
  labs(title = "Employment: Financial Activities in San Diego-Carlsbad, CA  ", 
       subtitle = str_glue("from {min(indicator$date)} through {max(indicator$date)} "),
       x="Monthly", y="Thousands of People",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

All Employees: Amusement, Gambling, and Recreation Industries in San Diego-Carlsbad, CA (MSA) (SMU06417407071300001)

indicator <-fredr_series_observations(series_id = "SMU06417407071300001",
        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 20.6
2019-02-01 20.4
2019-03-01 20.8
2019-04-01 21.2
2019-05-01 22.1
2019-06-01 23.7
2019-07-01 24.0
2019-08-01 23.3
2019-09-01 21.6
2019-10-01 21.3
2019-11-01 21.3
2019-12-01 21.5
2020-01-01 20.9
2020-02-01 20.9
2020-03-01 19.9
2020-04-01 9.1
2020-05-01 7.9
2020-06-01 12.0 
indicator %>% ggplot() + geom_line(mapping = aes(x=date,y=value), 
                              color = "maroon4",size=0.8) +
  labs(title = "Employment: Amusement, Gambling, and Recreation Industries in San Diego-Carlsbad, CA ", 
       subtitle = str_glue("from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of People",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

All Employees: Information in San Diego-Carlsbad, CA (MSA) (SAND706INFON)

indicator <-fredr_series_observations(series_id = "SAND706INFON",
        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 23.4
2019-02-01 23.6
2019-03-01 23.4
2019-04-01 23.5
2019-05-01 23.5
2019-06-01 23.3
2019-07-01 23.7
2019-08-01 23.6
2019-09-01 23.3
2019-10-01 23.4
2019-11-01 23.7
2019-12-01 23.5
2020-01-01 23.2
2020-02-01 23.4
2020-03-01 23.2
2020-04-01 19.8
2020-05-01 19.5
2020-06-01 19.7 
indicator %>% ggplot() + geom_line(mapping = aes(x=date,y=value), 
                              color = "maroon2",size=0.8) +
  labs(title = "Employment:  Information in San Diego-Carlsbad, CA ", 
       subtitle = str_glue("from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of People",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

All Employees: Transportation and Warehousing in San Diego-Carlsbad, CA (MSA) (SMU06417404340008901)

indicator <-fredr_series_observations(series_id = "SMU06417404340008901",
        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 29.6
2019-02-01 28.7
2019-03-01 28.7
2019-04-01 29.1
2019-05-01 29.2
2019-06-01 29.6
2019-07-01 29.8
2019-08-01 30.1
2019-09-01 30.0
2019-10-01 30.4
2019-11-01 30.8
2019-12-01 31.5
2020-01-01 31.0
2020-02-01 29.9
2020-03-01 29.7
2020-04-01 24.6
2020-05-01 25.9
2020-06-01 27.6 
# plotting data
indicator %>% ggplot() + geom_line(mapping = aes(x=date,y=value), 
                              color = "maroon3",size=0.8) +
  labs(title = "Employment: Transportation and Warehousing in San Diego-Carlsbad, CA ", 
       subtitle = str_glue("from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of People",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

All Employees: Local Government in San Diego-Carlsbad, CA (MSA) (SMU06417409093000001)

indicator <-fredr_series_observations(series_id = "SMU06417409093000001",
        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 151.6
2019-02-01 151.6
2019-03-01 152.6
2019-04-01 152.9
2019-05-01 154.2
2019-06-01 153.7
2019-07-01 139.6
2019-08-01 142.9
2019-09-01 148.2
2019-10-01 150.4
2019-11-01 151.1
2019-12-01 149.9
2020-01-01 148.6
2020-02-01 150.0
2020-03-01 150.7
2020-04-01 144.1
2020-05-01 140.3
2020-06-01 139.8 
# plotting data
indicator %>% ggplot() + geom_line(mapping = aes(x=date,y=value), 
                              color = "maroon1",size=1) +
  labs(title = "Employment: Local Government in San Diego-Carlsbad, CA  ", 
       subtitle = str_glue("from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of People",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

All Employees: Health Care and Social Assistance in San Diego-Carlsbad, CA (MSA) (SMU06417406562000001)

indicator <-fredr_series_observations(series_id = "SMU06417406562000001",
        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 182.3
2019-02-01 183.9
2019-03-01 185.0
2019-04-01 184.5
2019-05-01 185.3
2019-06-01 185.3
2019-07-01 185.6
2019-08-01 187.2
2019-09-01 187.2
2019-10-01 188.1
2019-11-01 188.9
2019-12-01 190.4
2020-01-01 189.4
2020-02-01 191.4
2020-03-01 189.1
2020-04-01 166.1
2020-05-01 169.3
2020-06-01 173.6 
# plotting data
indicator %>% ggplot() + geom_line(mapping = aes(x=date,y=value), 
                              color = "maroon4",size=1) +
  labs(title = "Employment: Health Care and Social Assistance in San Diego-Carlsbad, CA ", 
       subtitle = str_glue("from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of People",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

All Employees: Scientific Research and Development Services in San Diego-Carlsbad, CA (MSA) (SMU06417406054170001)

indicator <-fredr_series_observations(series_id = "SMU06417406054170001",
        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 35.0
2019-02-01 35.4
2019-03-01 35.5
2019-04-01 35.5
2019-05-01 35.7
2019-06-01 36.3
2019-07-01 36.6
2019-08-01 36.6
2019-09-01 36.4
2019-10-01 36.6
2019-11-01 36.7
2019-12-01 37.3
2020-01-01 37.0
2020-02-01 37.6
2020-03-01 37.6
2020-04-01 36.7
2020-05-01 36.6
2020-06-01 37.1 
# plotting data
indicator %>% ggplot() + geom_line(mapping = aes(x=date,y=value), 
                              color = "green4",size=1) +
  labs(title = "Employment: Scientific Research and Development Services in San Diego-Carlsbad, CA  ", 
       subtitle = str_glue("from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of People",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

All Employees: Health Care: Hospitals in San Diego-Carlsbad, CA (MSA) (SMU06417406562200001)

indicator <-fredr_series_observations(series_id = "SMU06417406562200001",
        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 22.2
2019-02-01 22.3
2019-03-01 22.5
2019-04-01 22.4
2019-05-01 22.3
2019-06-01 22.4
2019-07-01 22.3
2019-08-01 22.5
2019-09-01 22.5
2019-10-01 22.6
2019-11-01 22.9
2019-12-01 23.2
2020-01-01 23.1
2020-02-01 23.3
2020-03-01 23.3
2020-04-01 23.2
2020-05-01 23.0
2020-06-01 20.8 
# plotting data
indicator %>% ggplot() + geom_line(mapping = aes(x=date,y=value), 
                              color = "green4",size=1) +
  labs(title = "Employment: Health Care _ Hospitals in San Diego-Carlsbad, CA ", 
       subtitle = str_glue("from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of People",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

All Employees: Manufacturing in San Diego-Carlsbad, CA (MSA) (SAND706MFGN)

indicator <-fredr_series_observations(series_id = "SAND706MFGN",
        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 112.8
2019-02-01 113.5
2019-03-01 113.7
2019-04-01 113.9
2019-05-01 114.4
2019-06-01 115.4
2019-07-01 116.1
2019-08-01 116.0
2019-09-01 115.4
2019-10-01 116.0
2019-11-01 116.3
2019-12-01 117.3
2020-01-01 116.6
2020-02-01 116.5
2020-03-01 117.1
2020-04-01 106.5
2020-05-01 106.4
2020-06-01 108.3 
# plotting data
indicator %>% ggplot() + geom_line(mapping = aes(x=date,y=value), 
                              color = "green3",size=1) +
  labs(title = "Employment: Manufacturing in San Diego-Carlsbad, CA  ", 
       subtitle = str_glue("from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of People",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

All Employees: Leisure and Hospitality: Restaurants and Other Eating Places in San Diego-Carlsbad, CA (MSA) (SMU06417407072250001)

indicator <-fredr_series_observations(series_id = "SMU06417407072250001",
        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 125.3
2019-02-01 126.6
2019-03-01 127.5
2019-04-01 128.2
2019-05-01 129.5
2019-06-01 129.3
2019-07-01 130.5
2019-08-01 130.3
2019-09-01 128.9
2019-10-01 129.6
2019-11-01 129.1
2019-12-01 127.3
2020-01-01 126.1
2020-02-01 126.4
2020-03-01 123.7
2020-04-01 69.2
2020-05-01 81.3
2020-06-01 105.4 
# plotting data
indicator %>% ggplot() + geom_line(mapping = aes(x=date,y=value), 
                              color = "green4",size=1) +
  labs(title = "Employment: Restaurants and Other Eating Places in San Diego-Carlsbad, CA ", 
       subtitle = str_glue("from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of People",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

All Employees: Accommodation in San Diego-Carlsbad, CA (MSA) (SMU06417407072100001)

indicator <-fredr_series_observations(series_id = "SMU06417407072100001",
        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 31.0
2019-02-01 31.4
2019-03-01 31.2
2019-04-01 31.9
2019-05-01 32.3
2019-06-01 32.8
2019-07-01 33.2
2019-08-01 32.9
2019-09-01 32.4
2019-10-01 32.5
2019-11-01 32.0
2019-12-01 32.0
2020-01-01 31.3
2020-02-01 31.4
2020-03-01 30.2
2020-04-01 13.6
2020-05-01 12.4
2020-06-01 18.3 
# plotting data
indicator %>% ggplot() + geom_line(mapping = aes(x=date,y=value), 
                              color = "green4",size=1) +
  labs(title = "Employment: Accommodation in San Diego-Carlsbad, CA", 
       subtitle = str_glue("from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of People",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

All Employees: Leisure and Hospitality: Arts, Entertainment, and Recreation in San Diego-Carlsbad, CA (MSA) (SMU06417407071000001)

indicator <-fredr_series_observations(series_id = "SMU06417407071000001",
        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 28.8
2019-02-01 28.7
2019-03-01 29.6
2019-04-01 30.3
2019-05-01 31.2
2019-06-01 33.1
2019-07-01 33.6
2019-08-01 33.6
2019-09-01 30.7
2019-10-01 30.0
2019-11-01 29.9
2019-12-01 30.0
2020-01-01 29.3
2020-02-01 29.3
2020-03-01 28.3
2020-04-01 15.9
2020-05-01 13.8
2020-06-01 18.6 
# plotting data
indicator %>% ggplot() + geom_line(mapping = aes(x=date,y=value), 
                              color = "green4",size=1) +
  labs(title = "Employment: Arts, Entertainment, and Recreation in San Diego-Carlsbad, CA", 
       subtitle = str_glue("from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of People",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()