Black Friday to New Year’s 2021 in Washington’s CCRS Era

A First Look at Sales Behavior at Year-End Holiday Season

CCRS

Cannabis

Sales

Holiday

Published

January 31, 2022

When Washington’s Cannabis Central Reporting System (CCRS) went live in December 2021, the transition marked the first statewide attempt to standardize traceability after BioTrack’s phase-out. To understand how licensees were performing during those pivotal early weeks, we analyzed nearly 12 thousand transactions covering the Black Friday–Christmas–New Year’s 2021 period.

The dataset captures point-of-sale activity reported by a handful of early CCRS adopters—primarily the Lucid retail group and Green Lady Lacey—and offers a snapshot of how products, pricing, and discounting behaved across inventory types covering nearly 12 thousand transactions covering the Black Friday–Christmas–New Year’s 2021 period.

Top Product Types by Revenue

Revenue vs Units Sold by Type See if some product types sell lots of units but earn less (or vice versa):

Daily Sales Trend by Product Type

Group by BusinessName and InventoryType This answers questions like: Who sold the most usable cannabis? Which stores had the most revenue from pre-rolls?

Normalize Revenue by UnitWeightGrams This gives you revenue per gram — useful for comparing product efficiency, price compression, or margin trends.

Analyze Discount Behavior by Product Type This identifies which products get discounted most — helps you spot pricing pressure, clearance items, or strategic promotions.

Goal 2: Compute Total Revenue per Licensee This answers: Who made the most money during Black Friday → New Year’s Eve 2021?

# Clean and prepare the dataset
sales_licensee_summary <- sales_blackfriday_xmas_nye_2021 %>%
  filter(Revenue > 0) %>%
  group_by(LicenseeId, BusinessName) %>%
  summarise(
    TotalRevenue = sum(Revenue, na.rm = TRUE),
    Transactions = n(),
    .groups = "drop"
  ) %>%
  arrange(desc(TotalRevenue))

# View the number of unique licensees
n_licensees <- n_distinct(sales_licensee_summary$LicenseeId)
cat("✅ Number of unique licensees:", n_licensees, "\n")

✅ Number of unique licensees: 3

library(kableExtra)
kable(sales_licensee_summary)

LicenseeId	BusinessName	TotalRevenue	Transactions
1031	LUCID	11931.12	3548
2105	LUCID AUBURN, 21+ CANNABIS, 21+ MARIJUANA	11150.52	762
1031	GREEN LADY LACEY	5965.56	1774
39	LUCID PUYALLUP	5911.68	420

Join the discussion

You can sign in with Google, GitHub, or email to comment.