code.R

library(dplyr)
library(plyr)

models <- c("Adidas-Yeezy-Boost-350", "Nike-Air-Max-90", "Nike-Air-Presto", "Air-Jordan-1-Retro-High", "Nike-Air-Force-1-Low", "Nike-Air-Max-90", "Nike-Air-Max-97", "Nike-Air-Presto", "Nike-Air-VaporMax", "Nike-Blazer-Mid", "Nike-React-Hyperdunk-2017-Flyknit", "Nike-Zoom-Fly", "Nike-Zoom-Fly-Mercurial", "adidas-Yeezy-Boost-350-V2")

csv$Sneaker.Name.String <- as.character(csv$Sneaker.Name)

addModel <- function(model) {
  df <- filter(csv, startsWith(csv$Sneaker.Name.String, model))
  df$Sneaker.Model <- model
  df
}

addModels <- merge(lapply(models, addModel))

stockx1 <- str(ldply(models, addModel))