非等值连接一步添加 data.table 中范围表的所有列

我确信我忽略了显而易见的事情，但我找不到一种方法来连接“查找”表的所有列data.table非等值连接一步到位.

我看了阿伦的演讲（https://github.com/Rdatatable/data.table/wiki/talks/ArunSrinivasanSatRdaysBudapest2016.pdf https://github.com/Rdatatable/data.table/wiki/talks/ArunSrinivasanSatRdaysBudapest2016.pdf）和多个 SO 问题，但几乎所有问题都只涉及更新单个列，而不是连接多个列。

假设我有2个data.tablesa and b:

library(data.table)
a <- data.table(Company_ID = c(1,1,1,1),
            salary = c(2000, 3000, 4000, 5000))

#   Company_ID salary
# 1:          1   2000
# 2:          1   3000
# 3:          1   4000
# 4:          1   5000

b <- data.table(cat = c(1,2),
            LB = c(0, 3000),
            UB = c(3000,5000),
            rep = c("Bob","Alice"))

#    cat   LB   UB   rep
# 1:   1    0 3000   Bob
# 2:   2 3000 5000 Alice

我最终想要的是匹配 cat、LB、UB、rep（中的所有列）b) 到表a:

#    Company_ID salary cat   LB   UB   rep
# 1:          1   2000   1    0 3000   Bob
# 2:          1   3000   2 3000 5000 Alice
# 3:          1   4000   2 3000 5000 Alice

目前，我设法做到这一点的唯一方法是使用以下两行：

a <- a[b, on = .(salary >= LB, salary < UB), cat := cat]
a[b, on = .(cat == cat)]

它输出所需的表，但看起来很麻烦，而且根本不像data.table方法。任何帮助将不胜感激！

因为您想要每一行的结果a，你应该像这样加入b[a, ...]:

b[a, on=.(LB <= salary, UB > salary), nomatch=0, 
  .(Company_ID, salary, cat, LB = x.LB, UB = x.UB, rep)]

   Company_ID salary cat   LB   UB   rep
1:          1   2000   1    0 3000   Bob
2:          1   3000   2 3000 5000 Alice
3:          1   4000   2 3000 5000 Alice

• nomatch=0意味着我们将删除行a是无与伦比的b.
• 我们需要明确提及UB and LB列来自b使用x.*前缀（来自?data.table文档，其中参数的命名方式如下x[i]).

关于奇怪的默认列，有一个未解决的问题可以改变这种行为：#1615 https://github.com/Rdatatable/data.table/issues/1615.

(下面提到的问题 #1989 现已修复——请参阅 Uwe 的回答。)

交替...一种应该有效并避免显式列出所有列的方法：添加a的列b，然后子集b:

b[a, on=.(LB <= salary, UB > salary), names(a) := mget(paste0("i.", names(a)))] 
b[b[a, on=.(LB <= salary, UB > salary), which=TRUE, nomatch=0]]

这有两个问题。首先，有一个错误会导致非等值连接在遇到以下情况时中断：mget (#1989 https://github.com/Rdatatable/data.table/issues/1989）。临时解决方法是枚举a的专栏：

b[a, on=.(LB <= salary, UB > salary), `:=`(Company_ID = i.Company_ID, salary = i.salary)] 
b[b[a, on=.(LB <= salary, UB > salary), which=TRUE, nomatch=0]]

其次，执行两次此连接的效率很低（一次用于:=和第二次which），但我看不到任何解决办法...也许可以证明功能请求允许两者j and which?