基于向量键合并数据框

我是一个绝对的初学者，希望有人能够帮助我解决合并问题，我今晚大部分时间都在解决这个问题，并且迄今为止无法成功地将解决方案应用于此特定示例的类似问题。

我制作了一个虚拟数据框和向量来帮助说明我的问题：

dumdata <- data.frame(id=c(1:5), pcode=c(1234,9876,4477,2734,3999), vlo=c(100,450,1000,1325,1500), vhi=c(300,950,1100,1450,1700))

id pcode  vlo  vhi
 1  1234  100  300
 2  9876  450  950
 3  4477 1000 1100
 4  2734 1325 1450
 5  3999 1500 1700


vkey <- c(105,290,513,1399,1572,1683)

我想在 vkey 的值落在变量 vlo 和 vhi 之间的情况下输出一个包含 dumdata 数据的新数据帧。实际上，vkey 的值将始终落在 vlo-vhi 范围之间，并且这些范围始终是离散的。

所需的输出如下所示：

id   pcode   vlo   vhi  vkey
 1    1234   100   300   105
 1    1234   100   300   290
 2    9876   450   950   513
 4    2734  1325  1450  1399
 5    3999  1500  1700  1572
 5    3999  1500  1700  1683

而不是使用for循环，您可以一次性构建整个索引向量sapply.

ind <- sapply(vkey, function(x) which(dumdata$vlo < x & x < dumdata$vhi))
data.frame(dumdata[ind,], vkey)

    id pcode  vlo  vhi vkey
1    1  1234  100  300  105
1.1  1  1234  100  300  290
2    2  9876  450  950  513
4    4  2734 1325 1450 1399
5    5  3999 1500 1700 1572
5.1  5  3999 1500 1700 1683

如果有任何值vkey匹配多行dumdata但它变得更难看，因为你需要使用lapply而不是 sapply 然后做

data.frame(dumdata[unlist(ind),], rep(vkey, sapply(vkey, length)))

返回所有匹配项，但我从示例中得知它不会发生。

Edit:

为了完整起见，我将添加您可以使用mapply也是如此，但这主要适用于当您需要与多个变量进行比较时的情况（例如，如果您有vkey1 and vkey2需要一起满足一个条件）。

ind <- mapply(function(x, y) which(dumdata$vlo < x & y < dumdata$vhi),
              vkey1, vkey2)