Sales

Iris Naing

library(tidyverse)
library(readxl)

sales <- read_excel("data-raw/sales.xlsx", skip = 3, col_names = c("id", "n"))

sales %>%
  mutate(
    is_brand_name = str_detect(id, "Brand"),
    brand = if_else(is_brand_name, id, NULL)
  ) %>%
  fill(brand) %>%
  filter(!is_brand_name) %>%
  select(brand, id, n)

## # A tibble: 7 × 3
##   brand   id    n    
##   <chr>   <chr> <chr>
## 1 Brand 1 1234  8    
## 2 Brand 1 8721  2    
## 3 Brand 1 1822  3    
## 4 Brand 2 3333  1    
## 5 Brand 2 2156  3    
## 6 Brand 2 3987  6    
## 7 Brand 2 3216  5