Combining Variable Columns with Same Values into a New Variable Using Vectors, Apply(), and Lapply in R