Вложено для циклов Применить

Question

Я борюсь с такими циклами for, потому что информационный фрейм довольно большой (250 000 строк) и занимает много времени, и я не знаю, как добавить в него функцию apply.Не могли бы вы помочь мне ??

for(j in 1:nrow(df) ){
  if(is.na(df[j, 5]) == FALSE ) {
    for (k in 1:nrow(d)f){
      if(d[df,1] == df[j,1] && is.na(df[k,5]) == TRUE ){
        df[k,5] = df[j,5]
      }
    }
  } 
}

Большое вам спасибо!