R匹配2个以上条件并返回响应值

您好，我有两个数据集，其中第一个是一组索引：

ind1<-rep(c("E","W"), times=20)
ind2<-sample(100:150, 40)
y<-c(1:40)
index<-data.frame(cbind(ind1, ind2, y))

第二个数据集是需要索引的数据集。

x1<-sample(c("E","W","N"), 40, replace=TRUE)
x2<-sample(100:150, 40)
x3<-rep(0, times=40)
data<-data.frame(cbind(x1,x2,x3))

我想指出x3哪里的x1 and x2 in data与ind1 and ind2 in index分别并返回对应的y.

index1<-split(index, index$ind1)
data1<-split(data, data$x1)
data1$E$x3<-match(data1$E$x2, index1$E$ind2)
data1$W$x3<-match(data1$W$x2, index1$W$ind2)

它有点符合我想要的方式，但没有返回y正确。我哪部分做错了？ 谢谢。

另外，有没有更快/更智能的方法？因为我可能还有更多的条件可以匹配。最初我尝试了 if else 语句，但没有成功。

merge(data, index, by.x=c("ind1", "ind2"), by.y=c("x1", "x2"), all.x=TRUE, all.y=FALSE)

会给你x and y每个匹配组合的值ind1 and ind2, and x1 and x2。所有组合x1 and x2将被保留（即使该组合ind1 and ind2不发生在index，但是组合ind1 and ind2不会发生在data将被丢弃。正如所写，解决方案将保留x3 and y值，但如果你想放弃y您可以使用的值merge(data[ ,-3], ...根据@Ferdinand.kraft 的建议。