在两个R数据框中基于ID匹配取值并用于公式（无需合并）

最适合你需求的方法是使用R内置的match()函数，它可以直接返回df$ID中每个元素在Ref$ID中的位置，不存在的元素会返回NA，完美匹配你的需求，而且不需要合并数据框。

具体步骤与代码示例 #

首先构造测试数据模拟你的场景：

# 构造参考数据框Ref
Ref <- data.frame(
  ID = c("A001", "B002", "C003"),
  code = c(1.5, 2.3, 0.8)
)

# 构造待处理数据框df
df <- data.frame(
  ID = c("A001", "D004", "B002", "C003", "E005"),
  param = c(10, 20, 15, 5, 25) # 用于计算的其他参数
)

接下来用match()获取匹配的code值，再进行计算：

# 匹配每个df$ID对应的code，不存在则为NA
df$code <- Ref$code[match(df$ID, Ref$ID)]

# 执行公式计算，比如Zn = code * param
df$Zn <- df$code * df$param

运行后df的结果会是：

ID param code   Zn
1 A001    10  1.5 15.0
2 D004    20   NA   NA
3 B002    15  2.3 34.5
4 C003     5  0.8  4.0
5 E005    25   NA   NA

为什么你之前的ifelse+which方法容易出错 #

which(Ref$ID == df$ID)这种写法在向量操作时，会返回所有匹配的位置索引，但当df$ID有多个元素时，它无法一一对应每个元素的位置；而match()是专为这种逐元素匹配设计的，每个df$ID元素都会得到唯一对应的位置（或NA），更适合你的场景。

内容的提问来源于stack exchange，提问作者Amélia