基于 R 中的值进行迭代和分配的函数

我正在编写一个函数，该函数迭代一个帐户列表，每个帐户都有一个关联的值，并为该帐户分配名称列表中的一个名称。名称列表将具有关联的值，我希望分配的名称是具有最小值的名称。

name    totalvalue
Jeff    54
Christy 43
Matt    29
Jessica 19


accounts   value   name
acc1       8
acc2       7
acc3       7
acc4       7
acc5       6
acc6       6
acc7       5
acc8       3

我想要的是遍历帐户列表并查看姓名列表。首先查看 acc1，将其分配给名称列表的 min(totalvalue)。 acc1 的名称变为 Jessica，并且 Jessica 的总值会增加 acc1 值。杰西卡变成 27，然后 acc2 再次找到杰西卡，使杰西卡变成 35，然后 acc3 找到现在是最小值的马特，并相应地分配它，依此类推。

到目前为止我所拥有的：

F <- function(listofnames, listofaccounts){
        for (account in listofaccounts){
            name <- min(listofnames$totalvalue)
            listofaccounts$name <- name
           }

我知道由于多种原因，这还很遥远。我也在考虑做一个 while 循环..

F <- function(listofnames, listofaccounts){
        count <- 8
        while (count > 0){
           for (account in listofaccounts){
               name <- min(listofnames$totalvalue)
               listofaccounts$name <- name
               count <- count - 1 
           }
        }
     }

请帮忙！非常感谢你 ：）

这不是超级快，但它应该可以工作：

myfunc <-function(names, vals){
  for(i in 1:nrow(vals)){ #for each row
    idx <- which.min(names$totalvalue) #we find the index of the current min
    names$totalvalue[idx] <- names$totalvalue[idx] + vals$value[i] #add to the current min the current number
    vals$names[i] <- as.character(names$name[idx]) #add to the name list, the name of the current min
  }
  return(list(names, vals)) #return a list of the two outputs
}
myfunc(x,y)

[[1]]
     name totalvalue
1    Jeff         54
2 Christy         46
3    Matt         47
4 Jessica         47

[[2]]
  accounts value   names
1     acc1     8 Jessica
2     acc2     7 Jessica
3     acc3     7    Matt
4     acc4     7 Jessica
5     acc5     6    Matt
6     acc6     6 Jessica
7     acc7     5    Matt
8     acc8     3 Christy