Skip to main content
se añadieron 433 caracteres en el cuerpo
Origen Enlace
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), "&")))

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),]))

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), "&")))

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), "&")))

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),]))
se añadieron 164 caracteres en el cuerpo
Origen Enlace
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), "&")))

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"
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&"   
  • 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), "&")))

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), "&")))
Origen Enlace
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"
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&"   
  • 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), "&")))