Creating subgroups from categorical data by using lapply in R: A Better Approach Using model.matrix