R 中的嵌套匹配函数

Question

这是对如何在 R 中查找和求和多个列的后续操作：

我有3个数据框：

团体：

P1          P2          P3          P4      
"Joe"       "Sally"     "A.J."      "Mary"  
"Cory"      "Joe"       "Sally"     "Katy"

名称：

ID      NAME
123     "Joe"
213     "Sally"
312     "A.J."
231     "Mary"
345     "Cory"
567     "Katy"

个人_结果：

ID      SCORE
123     23
213     12
312     11
231     19
345     10
567     22

我的目标是在Groups中创建一个新列，其中SCORE列是组中每个结果的总和

P1          P2          P3          P4          SCORE
"Joe"       "Sally"     "A.J."      "Mary"      65

按照上面引用的问题中的答案示例，我尝试了以下操作

groups$score = apply(groups, 1, function(x){
    sum(Individual_Results$SCORE[match(match(x, Names$Name), Individual_Results$ID)])
    })

不幸的是，结果是创建新列，但每个分数的结果都是NA 。

如果我了解如何正确使用apply和match ，我要做的是apply function 应用到每一行，将x （ Name ）作为参数传递给第一个match function 以获取ID ，然后将返回的ID与第二个匹配项match以获得分数 - 将每行的所有分数相加。

我想我非常接近，但并不完全在那里。 感谢任何帮助！

Answer 1

这会成功的。

请注意，您不需要data.table 。 我只是用它来使示例可重现

require(data.table)

Groups <- data.frame(fread('"P1","P2","P3","P4"
"Joe","Sally","A.J.","Mary"
"Cory","Joe","Sally","Katy"'))

Names <- data.frame(fread('ID,NAME
123,"Joe"
213,"Sally"
312,"A.J."
231,"Mary"
345,"Cory"
567,"Katy"'))

Individual_Results <- data.frame(fread('ID,SCORE
123,23
213,12
312,11
231,19
345,10
567,22'))


Groups$SCORE <- apply(Groups, 1, function(x){
  sum(Individual_Results$SCORE[match(Names$ID[match(x, Names$NAME)], Individual_Results$ID)])
})


# Inspect groups:
Groups
#      P1    P2    P3   P4 SCORE
# 1  Joe Sally  A.J. Mary    65
# 2 Cory   Joe Sally Katy    67