Retail Prices During 2020_2021 Pandemic

Retail Sales: Grocery Stores (MRTSSM4451USS) Source: U.S. Census Bureau Release: Monthly Retail Trade and Food Services
Units: Millions of Dollars, Seasonally Adjusted

Frequency: Monthly

Suggested Citation: U.S. Census Bureau, Retail Sales: Grocery Stores [MRTSSM4451USS], retrieved from FRED, Federal Reserve Bank of St. Louis; https://fred.stlouisfed.org/series/MRTSSM4451USS, August 24, 2020.

Retail Sales: Beer, Wine, and Liquor Stores (MRTSSM4453USS) Source: U.S. Census Bureau Release: Monthly Retail Trade and Food Services
Units: Millions of Dollars, Seasonally Adjusted

Frequency: Monthly

Information about the Monthly Retail Trade Survey can be found on the Census website at https://www.census.gov/retail/mrts/about_the_surveys.html

Suggested Citation: U.S. Census Bureau, Retail Sales: Beer, Wine, and Liquor Stores [MRTSSM4453USS], retrieved from FRED, Federal Reserve Bank of St. Louis; https://fred.stlouisfed.org/series/MRTSSM4453USS, August 24, 2020.

Retail Sales: Pharmacies and Drug Stores (MRTSSM44611USS) Source: U.S. Census Bureau Release: Monthly Retail Trade and Food Services
Units: Millions of Dollars, Seasonally Adjusted

Frequency: Monthly

Suggested Citation: U.S. Census Bureau, Retail Sales: Pharmacies and Drug Stores [MRTSSM44611USS], retrieved from FRED, Federal Reserve Bank of St. Louis; https://fred.stlouisfed.org/series/MRTSSM44611USS, August 24, 2020.

Retail Sales: Men’s Clothing Stores (MRTSSM44811USS) Source: U.S. Census Bureau Release: Monthly Retail Trade and Food Services
Units: Millions of Dollars, Seasonally Adjusted

Frequency: Monthly

Information about the Monthly Retail Trade Survey can be found on the Census website at https://www.census.gov/retail/mrts/about_the_surveys.html

Suggested Citation: U.S. Census Bureau, Retail Sales: Men’s Clothing Stores [MRTSSM44811USS], retrieved from FRED, Federal Reserve Bank of St. Louis; https://fred.stlouisfed.org/series/MRTSSM44811USS, August 24, 2020.

Retail Sales: Sporting Goods, Hobby, Book, and Music Stores (MRTSSM451USS) Source: U.S. Census Bureau Release: Monthly Retail Trade and Food Services
Units: Millions of Dollars, Seasonally Adjusted

Frequency: Monthly

The most recent month’s value of the advance estimate based on data from a subsample of firms from the larger Monthly Retail Trade Survey is available at https://fred.stlouisfed.org/series/RSSGHBMS

Information about the Monthly Retail Trade Survey can be found on the Census website at https://www.census.gov/retail/mrts/about_the_surveys.html

Suggested Citation: U.S. Census Bureau, Retail Sales: Sporting Goods, Hobby, Book, and Music Stores [MRTSSM451USS], retrieved from FRED, Federal Reserve Bank of St. Louis; https://fred.stlouisfed.org/series/MRTSSM451USS, August 24, 2020.

Retail Sales: Warehouse Clubs and Superstores (MRTSSM45291USS) Source: U.S. Census Bureau Release: Monthly Retail Trade and Food Services
Units: Millions of Dollars, Seasonally Adjusted

Frequency: Monthly

Information about the Monthly Retail Trade Survey can be found on the Census website at https://www.census.gov/retail/mrts/about_the_surveys.html

Suggested Citation: U.S. Census Bureau, Retail Sales: Warehouse Clubs and Superstores [MRTSSM45291USS], retrieved from FRED, Federal Reserve Bank of St. Louis; https://fred.stlouisfed.org/series/MRTSSM45291USS, August 24, 2020.

Retail Sales: Electronic Shopping and Mail-order Houses (MRTSSM4541USS) Source: U.S. Census Bureau Release: Monthly Retail Trade and Food Services
Units: Millions of Dollars, Seasonally Adjusted

Frequency: Monthly

Information about the Monthly Retail Trade Survey can be found on the Census website at https://www.census.gov/retail/mrts/about_the_surveys.html

Suggested Citation: U.S. Census Bureau, Retail Sales: Electronic Shopping and Mail-order Houses [MRTSSM4541USS], retrieved from FRED, Federal Reserve Bank of St. Louis; https://fred.stlouisfed.org/series/MRTSSM4541USS, August 24, 2020.

Most recently updated on July 28, 2021

enddate <- dmy('01-07-2021')

# Retail Sales: Gasoline Stations (MRTSSM447USN)
indicator <-fredr_series_observations(series_id = "MRTSSM447USN", 
      observation_start = as.Date("2015-01-01"))

indicator %>% ggplot() + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "grey", alpha = 0.03)+
  geom_line(mapping = aes(x=date,y=value),color="red",size=1)  +
      labs(title = "Gasoline Retail Stations", 
          subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Millions of Dollars",
       caption = "Data source: FRED Federal Reserve \n Illustration by @JoeLongSanDiego")+
    theme_economist()

# Retail Sales: Department Stores (MRTSSM4521EUSN)
indicator <-fredr_series_observations(series_id = "MRTSSM4521EUSN", 
      observation_start = as.Date("2015-01-01"))

indicator %>% ggplot() + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "grey", alpha = 0.03)+
  geom_line(mapping = aes(x=date,y=value),color="red",size=1)  +
      labs(title = " Department Stores _ Retail sales", 
          subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Millions of Dollars",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

#  Retail Sales: New Car Dealers (MRTSSM44111USN)
indicator <-fredr_series_observations(series_id = "MRTSSM44111USN", 
      observation_start = as.Date("2015-01-01"))

indicator %>% ggplot() + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "grey", alpha = 0.03)+
  geom_line(mapping = aes(x=date,y=value),color="red",size=1)  +
      labs(title = "New car sales at dealerships", 
          subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Millions of Dollars",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

# Retail Sales: Used Car Dealers (MRTSSM44112USN)
indicator <-fredr_series_observations(series_id = "MRTSSM44112USN", 
      observation_start = as.Date("2015-01-01"))

indicator %>% ggplot() + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "grey", alpha = 0.03)+
  geom_line(mapping = aes(x=date,y=value),color="red",size=1)  +
      labs(title = "Used car sales at dealerships", 
          subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Millions of Dollars",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

# Retail Sales: Retail and Food Services, Total (MRTSSM44X72USS)

indicator <-fredr_series_observations(series_id = "MRTSSM44X72USS", 
      observation_start = as.Date("2015-01-01"))
indicator %>% ggplot() + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "grey", alpha = 0.03)+

  geom_line(mapping = aes(x=date,y=value),color="red",size=1)  +
      labs(title = "Retail and Food Services", 
          subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Millions of Dollars",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

# Retail Sales: Beer, Wine, and Liquor Stores (MRTSSM4453USN)


indicator <-fredr_series_observations(series_id = "MRTSSM4453USN", 
      observation_start = as.Date("2015-01-01"))
indicator %>% ggplot() + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "grey", alpha = 0.03)+

  geom_line(mapping = aes(x=date,y=value),color="red",size=1)  +
      labs(title = "Beer, Wine, and Liquor Stores", 
          subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Millions of Dollars",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

# Retail Sales: Restaurants and Other Eating Places (MRTSSM7225USN)


indicator <-fredr_series_observations(series_id = "MRTSSM7225USN", 
      observation_start = as.Date("2015-01-01"))
indicator %>% ggplot() + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "grey", alpha = 0.03)+

  geom_line(mapping = aes(x=date,y=value),color="red",size=1)  +
      labs(title = "Restaurants and Other Eating Places", 
          subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Millions of Dollars",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

# Retail Sales: Grocery Stores (MRTSSM4451USS)


indicator <-fredr_series_observations(series_id = "MRTSSM4451USS", 
      observation_start = as.Date("2015-01-01"))
indicator %>% ggplot() + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "grey", alpha = 0.03)+
  geom_line(mapping = aes(x=date,y=value),color="red",size=1)  +
      labs(title = "Grocery Stores", 
          subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Millions of Dollars",
       caption = "Data source: FRED Federal Reserve \nIllustration by @JoeLongSanDiego")+
    theme_economist()

# Retail Sales: Furniture and Home Furnishings Stores (MRTSSM442USN)


indicator <-fredr_series_observations(series_id = "MRTSSM442USN", 
      observation_start = as.Date("2015-01-01"))
indicator %>% ggplot() + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "grey", alpha = 0.03)+
  geom_line(mapping = aes(x=date,y=value),color="red",size=1)  +
      labs(title = "Furniture and Home Furnishings Stores", 
          subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Millions of Dollars",
       caption = "Data source: FRED Federal Reserve \nIllustration by @JoeLongSanDiego")+
    theme_economist()

# Retail Sales: Clothing Stores (MRTSSM4481USN)


indicator <-fredr_series_observations(series_id = "MRTSSM4481USN", 
      observation_start = as.Date("2015-01-01"))
indicator %>% ggplot() + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "grey", alpha = 0.03)+
  geom_line(mapping = aes(x=date,y=value),color="red",size=1)  +
      labs(title = "Clothing Stores", 
          subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Millions of Dollars",
       caption = "Data source: FRED Federal Reserve \nIllustration by @JoeLongSanDiego")+
    theme_economist()

# Retail Sales: Sporting Goods Stores (MRTSSM45111USN)


indicator <-fredr_series_observations(series_id = "MRTSSM45111USN", 
      observation_start = as.Date("2015-01-01"))
indicator %>% ggplot() + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "grey", alpha = 0.03)+
  geom_line(mapping = aes(x=date,y=value),color="red",size=1)  +
      labs(title = "Sporting Goods Retrail Stores", 
          subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Millions of Dollars",
       caption = "Data source: FRED Federal Reserve \nIllustration by @JoeLongSanDiego")+
    theme_economist()

# Retail Sales: Food Services and Drinking Places (MRTSSM722USN)

indicator <-fredr_series_observations(series_id = "MRTSSM45111USN", 
      observation_start = as.Date("2015-01-01"))
indicator %>% ggplot() + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "grey", alpha = 0.03)+
  geom_line(mapping = aes(x=date,y=value),color="red",size=1)  +
      labs(title = "Sporting Goods Retrail Stores", 
          subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Millions of Dollars",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

# Retail Sales: Limited Service Eating Places (MRTSSM7222USN)

indicator <-fredr_series_observations(series_id = "MRTSSM45111USN", 
      observation_start = as.Date("2015-01-01"))
indicator %>% ggplot() + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "grey", alpha = 0.03)+
  geom_line(mapping = aes(x=date,y=value),color="red",size=1)  +
      labs(title = "Sporting Goods Retail Stores", 
          subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Millions of Dollars",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

# Retail Sales: Supermarkets and Other Grocery (Except Convenience) Stores (MRTSSM44511USN)

indicator <-fredr_series_observations(series_id = "MRTSSM44511USN", 
      observation_start = as.Date("2015-01-01"))
indicator %>% ggplot() + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "grey", alpha = 0.03)+
  geom_line(mapping = aes(x=date,y=value),color="red",size=1)  +
      labs(title = "Supermarkets and Other Grocery (Except Convenience)", 
          subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Millions of Dollars",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()

# Retail Sales: Building Materials, Garden Equipment and Supplies Dealers (MRTSSM444USN)


indicator <-fredr_series_observations(series_id = "MRTSSM444USN", 
      observation_start = as.Date("2015-01-01"))
indicator %>% ggplot() + 
   geom_rect(aes(xmin= dmy('01-01-2020'), xmax=enddate, ymin = -Inf, ymax = Inf),
                   fill = "grey", alpha = 0.03)+
  geom_line(mapping = aes(x=date,y=value),color="red",size=1)  +
      labs(title = "Building Materials, Garden Equipment and Supplies Dealers", 
          subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Monthly", y="Millions of Dollars",
       caption = "Data source: FRED Federal Reserve\nIllustration by @JoeLongSanDiego")+
    theme_economist()