R语言嵌套Match函数问题：为Groups数据框添加分组得分列

咱们先拆解你代码里的核心问题，再一步步修复：

原代码的关键错误 #

你的嵌套match逻辑搞反了对应关系：

match(match(x, Names$Name), Individual_Results$ID)

第一个match(x, Names$Name)返回的是Names数据框里的行索引（比如第3行），而不是对应的ID值。你用这个行索引去匹配Individual_Results$ID（实际是用户的ID编号，比如1001），自然找不到匹配项，全部返回NA，求和后结果就是NA。

修复方案（两种思路） #

先明确假设的常规数据结构（如果你的结构不同，可以调整）：

• Names：包含Name（姓名）和ID（用户唯一标识）两列
• Individual_Results：包含ID和SCORE（个人得分）两列
• Groups：每行代表一个组，列是组内成员的姓名（可能包含组名列）

思路1：先构建姓名-得分映射表（更简洁） #

先把Names和Individual_Results合并，直接得到姓名到得分的对应关系，避免多次嵌套匹配：

# 合并得到姓名与得分的映射
name_score_map <- merge(Names, Individual_Results, by = "ID", all.x = TRUE)

# 为Groups新增SCORE列，计算每行成员得分总和
# 假设Groups第1列是组名，后面的列是成员姓名，若所有列都是成员则去掉[, -1]
Groups$SCORE <- apply(Groups[, -1], 1, function(members) {
  # 匹配成员姓名对应的得分，忽略不存在的成员（na.rm=TRUE）
  sum(name_score_map$SCORE[match(members, name_score_map$Name)], na.rm = TRUE)
})

思路2：修正原代码的匹配逻辑 #

如果你想沿用原代码的结构，需要把行索引转为实际的ID值：

Groups$score <- apply(Groups, 1, function(x){ 
  # 先通过姓名匹配到Names里的行，再提取对应的ID
  member_ids <- Names$ID[match(x, Names$Name)]
  # 用ID匹配到Individual_Results里的得分，求和时忽略NA
  sum(Individual_Results$SCORE[match(member_ids, Individual_Results$ID)], na.rm = TRUE) 
})

额外排查点 #

如果修复后仍有NA，建议检查：

• 姓名拼写一致性：Groups里的姓名和Names$Name是否完全一致（大小写、空格、特殊字符都会导致匹配失败）
• ID匹配情况：Names里的ID是否都能在Individual_Results$ID中找到
• 可以用table(is.na(Names$ID[match(Groups, Names$Name)]))查看有多少姓名匹配失败，用table(is.na(match(Names$ID, Individual_Results$ID)))查看ID匹配失败的数量

内容的提问来源于stack exchange，提问作者FloatingFish