Skip to main content
2 de 3
se añadieron 164 caracteres en el cuerpo
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72

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() que nos genera la combinación de todos los valores pasados como parámetros
  • Luego con do.call() ejecutamos un paste0 de las columnas
  • Por último, con cbind() 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():

cbind(do.call(paste0, expand.grid(unlist(personas), paste0(año, mes, dia), unlist(dia2), "&")))
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72