Cannabis History

The data depicted in these datasets come from Kushy App, an open source application and data for the cannabis industry. It records and gauges the popularity of cannabis products, strains and brands. More information about the data can be found at https://github.com/kushyapp/cannabis-dataset

Additional links or sources…

Cannabis Brands

labs_bar <- labs(
  title = "Top 25 Cannabis Categories",
  x = "count", y = "category")

ggp2_bar <- ggplot(data = top_cat,
     aes(x = n, 
         y = forcats::fct_reorder(
           category, n))) + 
     geom_col(aes(fill= category), 
              show.legend = FALSE, 
              stat="count") 
ggp2_bar + 
  labs_bar

Cannabis Strains

labs_col <- labs(
  title = "Top Cannabis Flavors",
  x = "count", y = "flavor", 
  fill = "flavor")
strains_raw %>% 
  filter(!is.na(flavor)) %>% 
  count(flavor, sort= TRUE) %>%
  head(20) %>% 
 ggplot(data = ., 
       aes(x = n, 
           y = fct_reorder(
             .f = as.factor(flavor), 
             .x = n))) + 
    geom_col(aes(fill = flavor), 
             show.legend = FALSE) -> ggp2_col
ggp2_col + labs_col

Cannabis Products

labs_bar <- labs(title = "Cannabis Products",
                 x = "count",
                 y = "brand",
                 fill = "brand")
products_raw %>%
  count(brand, sort = TRUE) %>%
  head(20) %>%
  ggplot(data = .,
         aes(x = n, 
             y = fct_reorder(
               .f = as.factor(brand), 
               .x = n))) +
  geom_col(aes(fill = brand),
           show.legend = FALSE) -> ggp2_bar
ggp2_bar +
  labs_bar