R使用for循环进行长期重组

Question

现在，这个工作循环将给定年份的主管分数粘贴到相应员工行的新列（supervisor.score1：supervisor.score4）中。它通过查看员工行i并查找第i行中列出的主管和年份的员工行来实现此目的。然后它在匹配行列表中的第一行，并将该行的分数（score1：score 4）粘贴到相应员工行的supervisor.score1：supervisor.score4一世。

employeeID year supervisor score1：score 4 supervisor.score1：supervisor.score4

for (i in (1:nrow(data))){
  matchvector <- which(data[,1] == data[i,3] & data[,2] == data[i,2])
  if (length(matchvector) > 0) {
    case <- matchvector[1]
    data[i, namevector] <- data[case, supervisor.score1:supervisor.score4]}
  if (length(matchvector[1]) < 1){
    data[i, supervisor.score1:supervisor.score4] <- NA}
}  

有没有办法将此循环转换为可以使用apply调用的函数？