Nevada Employment Indicators

Unemployment Rate in Nevada (NVURN)

indicator <-fredr_series_observations(series_id = "NVURN",
        observation_start = as.Date("2018-01-01")) 

# plotting data
ggplot(indicator)+ 
   geom_rect(aes(xmin= dmy('01-01-2020'),xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "blue4") +

  labs(title = "Unemployment Rate in Nevada (NVURN)", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       y="percent\nNot seasonnaly adjusted", x="Monthly",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

Initial Unemployment Claims in Nevada (NVICLAIMS)

indicator <-fredr_series_observations(series_id = "NVICLAIMS",
        observation_start = as.Date("2018-01-01")) 

# plotting data
ggplot(indicator)+ 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "blue4") +
 
  labs(title = "Initial Unemployment Claims in Nevada (NVICLAIMS)", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Weekly\nNot seasonnaly adjusted", y="Number",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

Continued Claims (Insured Unemployment) in NEVADA (NVCCLAIMS)

indicator <-fredr_series_observations(series_id = "NVCCLAIMS",
        observation_start = as.Date("2018-01-01")) 

# plotting data
ggplot(indicator)+ 
   geom_rect(aes(xmin= dmy('01-01-2020'),xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "blue4") +

  labs(title = "Continued Claims (Insured Unemployment) in NEVADA (NVCCLAIMS)", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Weekly", y="Number",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

Labor Force Participation Rate for Nevada (LBSNSA32)

indicator <-fredr_series_observations(series_id = "LBSNSA32",
        observation_start = as.Date("2015-01-01")) 

# plotting data
ggplot(indicator)+ 
   geom_rect(aes(xmin= dmy('01-01-2020'),xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "blue4") +

  labs(title = "Labor Force Participation Rate for Nevada (LBSNSA32)", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Percent", y="Monthly",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego\nhttps://rpubs.com/Data_Panoramic")+
    theme_economist()

All Employees: Leisure and Hospitality in Nevada (NVLEIHN)

indicator <-fredr_series_observations(series_id = "NVLEIHN",
        observation_start = as.Date("2015-01-01")) 

# plotting data
ggplot(indicator) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "red4") +
 
  labs(title = "All Employees: Leisure and Hospitality in Nevada (NVLEIHN)", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of persons\nNot Seasonally Adjusted",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego\nhttps://rpubs.com/Data_Panoramic")+
    theme_economist()

All Employees: Leisure and Hospitality: Gambling Industries in Nevada (SMU32000007071320001)

indicator <-fredr_series_observations(series_id = "SMU32000007071320001",
        observation_start = as.Date("2015-01-01")) 

# plotting data
ggplot(indicator) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "red4") +

  labs(title = "All Employees: Leisure and Hospitality: Gambling Industries in Nevada", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of persons\nNot Seasonally Adjusted",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego\nhttps://rpubs.com/Data_Panoramic")+
    theme_economist()

All Employees: Leisure and Hospitality: Accommodation in Nevada (SMU32000007072100001)

indicator <-fredr_series_observations(series_id = "SMU32000007072100001",
        observation_start = as.Date("2015-01-01")) 

# plotting data
ggplot(indicator) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "red4") +
  
  labs(title = "All Employees: Leisure and Hospitality: Accommodation in Nevada ", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of persons\nNot Seasonally Adjusted",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego\nhttps://rpubs.com/Data_Panoramic")+
    theme_economist()

All Employees: Leisure and Hospitality: Food Services and Drinking Places in Nevada (SMU32000007072200001)

indicator <-fredr_series_observations(series_id = "SMU32000007072200001",
        observation_start = as.Date("2015-01-01")) 

# plotting data
ggplot(indicator) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "red4") +
  
  labs(title = "All Employees: Leisure and Hospitality: Food Services and Drinking Places in Nevada", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of persons\nNot Seasonally Adjusted",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego\nhttps://rpubs.com/Data_Panoramic")+
    theme_economist()

All Employees: Leisure and Hospitality: Limited-Service Restaurants and Other Eating Places in Nevada (SMU32000007072259001)

indicator <-fredr_series_observations(series_id = "SMU32000007072259001",
        observation_start = as.Date("2015-01-01")) 

# plotting data
ggplot(indicator) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "red4") +
 
  labs(title = "All Employees: Limited-Service Restaurants and Other Eating Places in Nevada", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of persons\nNot Seasonally Adjusted",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego\nhttps://rpubs.com/Data_Panoramic")+
    theme_economist()

All Employees: Transportation and Utilities: Taxi and Limousine Service in Nevada (SMU32000004348530001)

indicator <-fredr_series_observations(series_id = "SMU32000004348530001",
        observation_start = as.Date("2015-01-01")) 

# plotting data
ggplot(indicator) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "red4") +
 
  labs(title = "All Employees: Taxi and Limousine Service in Nevada", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of persons\nNot Seasonally Adjusted",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego\nhttps://rpubs.com/Data_Panoramic")+
    theme_economist()

All Employees: Retail Trade in Nevada (SMU32000004200000001)

indicator <-fredr_series_observations(series_id = "SMU32000004200000001",
        observation_start = as.Date("2015-01-01")) 

# plotting data
ggplot(indicator) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "red4") +
 
  labs(title = "All Employees: Retail Trade in Nevada (SMU32000004200000001)", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of persons\nNot Seasonally Adjusted",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego\nhttps://rpubs.com/Data_Panoramic")+
    theme_economist()

Average Weekly Hours of All Employees: Leisure and Hospitality in Nevada (SMU32000007000000002)

indicator <-fredr_series_observations(series_id = "SMU32000007000000002",
        observation_start = as.Date("2010-01-01")) 

# plotting data
ggplot(indicator) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "red4") +
 
  labs(title = "Average Weekly Hours of All Employees: Leisure and Hospitality in Nevada", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Average Weekly Hours",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego\nhttps://rpubs.com/Data_Panoramic")+
    theme_economist()

All Employees: Retail Trade: Food and Beverage Stores in Nevada (SMU32000004244500001)

indicator <-fredr_series_observations(series_id = "SMU32000004244500001",
        observation_start = as.Date("2015-01-01")) 

# plotting data
ggplot(indicator) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "red4") +
 
  labs(title = "All Employees: Retail Trade: Food and Beverage Stores in Nevada", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of persons\nNot Seasonally Adjusted",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego\nhttps://rpubs.com/Data_Panoramic")+
    theme_economist()

All Employees: Construction in Nevada (NVCONSN)

indicator <-fredr_series_observations(series_id = "NVCONSN",
        observation_start = as.Date("2015-01-01")) 

# plotting data
ggplot(indicator) + 
   geom_rect(aes(xmin= dmy('01-01-2020'),xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "red4") +
 
  labs(title = "All Employees: Construction in Nevada (NVCONSN)", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of persons",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego\nhttps://rpubs.com/Data_Panoramic")+
    theme_economist()

All Employees: Manufacturing in Nevada (NVMFGN)

indicator <-fredr_series_observations(series_id = "NVMFGN",
        observation_start = as.Date("2015-01-01")) 

# plotting data
ggplot(indicator) + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "lightyellow", alpha = 0.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "red4") +

  labs(title = "All Employees: Manufacturing in Nevada (NVMFGN)", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of persons",
       caption = "Data source: FRED Federal Reserve.\nIllustration by @JoeLongSanDiego")+
    theme_economist()

All Employees: Mining and Logging in Nevada (NVNRMNN)

• Thousands of Persons, Not Seasonally Adjusted
• Monthly

indicator <-fredr_series_observations(series_id = "NVNRMNN",
        observation_start = as.Date("2015-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.02)+
  geom_line(mapping = aes(x=date,y=value), 
                              color = "red4") +
 
  labs(title = "All Employees: Mining and Logging in Nevada (NVNRMNN)", 
       subtitle = str_glue("Monthly from {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Thousands of persons",
       caption = "Data source: FRED Federal Reserve.\nIllustration by @JoeLongSanDiego")+
    theme_economist()