Una forma bien sencilla usando código base es la siguiente: # Para esta solución conviene que los valores sean vectores no data.tables personas <- c("Luis","Pedro","Mar") año <- "2018" mes <-"05" dia <- "23" # Acá agregamos un blanco a la lista de días dia2 <- c("lunes","martes","miercoles","jueves","Viernes", "") cbind(do.call(paste0, expand.grid(paste0(año, mes, dia), personas, dia2, "&"))) [,1] [1,] "20180523Luislunes&" [2,] "20180523Pedrolunes&" [3,] "20180523Marlunes&" [4,] "20180523Luismartes&" [5,] "20180523Pedromartes&" [6,] "20180523Marmartes&" [7,] "20180523Luismiercoles&" [8,] "20180523Pedromiercoles&" [9,] "20180523Marmiercoles&" [10,] "20180523Luisjueves&" [11,] "20180523Pedrojueves&" [12,] "20180523Marjueves&" [13,] "20180523LuisViernes&" [14,] "20180523PedroViernes&" [15,] "20180523MarViernes&" [16,] "20180523Luis&" [17,] "20180523Pedro&" [18,] "20180523Mar&" + Usamos [`expand.grid()`][1] que nos genera la combinación de todos los valores pasados como parámetros + Luego con [`do.call()`][2] ejecutamos un `paste0` de las columnas + Por último, con [`cbind()`][3] convertimos todo en una matriz de una sola columna Nota, si aún necesitas usar los `data.table` te recomiendo hacer un `unlist()`de los mismos antes de pasarlos como parámetro a [`expand.grid()`][1]: cbind(do.call(paste0, expand.grid(unlist(personas), paste0(año, mes, dia), unlist(dia2), "&"))) ### Si es importante el Orden Para ordenar por Fecha, Persona y Día de la semana: personas <- c("Luis","Pedro","Mar") año <- "2018" mes <-"05" dia <- "23" dia2 <- factor(c("", "lunes","martes","miercoles","jueves","Viernes"), ordered=T) m <- expand.grid(paste0(año, mes, dia), as.character(personas), as.character(dia2), "&") cbind(do.call(paste0, m[order(m$Var1,m$Var2,m$Var3),])) [1]: https://stat.ethz.ch/R-manual/R-devel/library/base/html/expand.grid.html [2]: http://stat.ethz.ch/R-manual/R-devel/library/base/html/do.call.html [3]: http://stat.ethz.ch/R-manual/R-devel/library/base/html/cbind.html