向量化For循环

Question

使用需求数据框以及最大批处理器和最大拣配器数的值，我创建了一个For循环以创建Objective函数变量。下面提到的for循环为我提供了一个结果，但是由于需求数据帧以及最大批处理和最大选择器值很大，因此运行时间很长。

我想向量化for循环操作以减少运行时间，并且需要一些输入吗？ 下面是For循环及其值。

max_batch = 10

max_picker = 12

ncol（df_demand）= 30，nrow（df_demand）= 30

hold <- 'Minimize \n \nobj:' 

   for(k in 1:max_batch)  {
   for(q in 1:(ncol(df_demand)-1)) {
    for(i in 1:nrow(df_demand)) { 
      for(e in 1:max_pickers) {
        test <- paste0(hold,'Labelset(',i,')(',q,')(',k,')(',e,')',' ','Earlytime(',i,')(',q,') + ')
      }
    }
  }