Process BC Liquor Store data
| library(dplyr) | |
| rawDataUrl <- "http://pub.data.gov.bc.ca/datasets/176284/BC_Liquor_Store_Product_Price_List.csv" | |
| bcl <- read.csv(rawDataUrl, stringsAsFactors = FALSE) | |
| products <- c("BEER", "REFRESHMENT BEVERAGE", "SPIRITS", "WINE") | |
| bcl <- dplyr::filter(bcl, PRODUCT_CLASS_NAME %in% products) %>% | |
| dplyr::select(-PRODUCT_TYPE_NAME, -PRODUCT_SKU_NO, -PRODUCT_BASE_UPC_NO, | |
| -PRODUCT_LITRES_PER_CONTAINER, -PRD_CONTAINER_PER_SELL_UNIT, | |
| -PRODUCT_SUB_CLASS_NAME) %>% | |
| rename(Type = PRODUCT_CLASS_NAME, | |
| Subtype = PRODUCT_MINOR_CLASS_NAME, | |
| Name = PRODUCT_LONG_NAME, | |
| Country = PRODUCT_COUNTRY_ORIGIN_NAME, | |
| Alcohol_Content = PRODUCT_ALCOHOL_PERCENT, | |
| Price = CURRENT_DISPLAY_PRICE, | |
| Sweetness = SWEETNESS_CODE) | |
| bcl$Type <- sub("^REFRESHMENT BEVERAGE$", "REFRESHMENT", bcl$Type) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment