m <- c("accelerator", "gear", "coolant", "brakes", "airbags")
k <- sample(m, 500, replace=TRUE)

e <- seq(as.Date("2010/1/1"), as.Date("2011/1/1"), by="days")
l <- sample(e, 500, replace=TRUE)

test <- list(k, l)
t2   <- as.data.frame(test)
names(t2) <- c("carparts", "date")
head(t2)