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

Question

我想写一个函数，迭代通过一个帐户列表，每个帐户都有一个相关联的值，并分配该帐户与名称列表中的一个名称。名称列表将有相关联的值，我希望分配的名称是具有最小值的名称。

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，将其分配给名字列表的最小值。acc1的名字变成杰西卡，杰西卡的总价值被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 
           }
        }
     }

请帮帮忙！谢谢你亲切：）

Answer 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