基于指定间隔的映射值

Question

假设我们有以下 data.table:

library(data.table)
dt <- data.table(x=c(-0.01, -0.001, 0, 0.01,0.02,0.03,1,3,4,10,20,25), value=c(rep(1,3), rep(2, 3), rep(3, 2), rep(4, 2), rep(5, 2)))

然后，我使用以下方法指定间隔：

library(Hmisc)
dt[, int:=cut2(x, cuts=c(-Inf, 0.01, 1, 4, 20, Inf))]

return,

         x value           int
 1: -0.010     1 [ -Inf, 0.01)
 2: -0.001     1 [ -Inf, 0.01)
 3:  0.000     1 [ -Inf, 0.01)
 4:  0.010     2 [ 0.01, 1.00)
 5:  0.020     2 [ 0.01, 1.00)
 6:  0.030     2 [ 0.01, 1.00)
 7:  1.000     3 [ 1.00, 4.00)
 8:  3.000     3 [ 1.00, 4.00)
 9:  4.000     4 [ 4.00,20.00)
10: 10.000     4 [ 4.00,20.00)
11: 20.000     5 [20.00,  Inf]
12: 25.000     5 [20.00,  Inf]

假设有新的data.table

dtnew <- data.table(x=c(-0.001, 0.4, 0.3, 5, 25))

        x
1: -0.001
2:  0.400
3:  0.300
4:  5.000
5: 25.000

我想要的是将值 dtnew 匹配到 dt 中的区间，以便我可以获得 dt 中的 value。预期的 return 将是

        x value           int
1: -0.001     1 [ -Inf, 0.01)
2:  0.400     2 [ 0.01, 1.00)
3:  0.300     2 [ 0.01, 1.00)
4:  5.000     4 [ 4.00,20.00)
5: 25.000     5 [20.00,  Inf]

我已尝试将间隔分配给 dtnew，以便我可以 merge(dtnew, dt, by = 'int') 使用以下内容：

dtnew[, int:=cut2(y, cuts=c(-Inf, 0.01, 1, 4, 20, Inf))] 与 dt 中使用的间隔相同。但是，第 1 行的间隔与 dt 不同，如下所示：

1: -0.001          -Inf
2:  0.400 [ 0.01, 1.00)
3:  0.300 [ 0.01, 1.00)
4:  5.000 [ 4.00,20.00)
5: 25.000 [20.00,  Inf]

你能给我一些建议吗？

Answer 1

这是一个简单的滚动连接:

dt[dtnew, on="x", roll=Inf]
#     x     value           int
# 1: -0.001     1 [ -Inf, 0.01)
# 2:  0.400     2 [ 0.01, 1.00)
# 3:  0.300     2 [ 0.01, 1.00)
# 4:  5.000     4 [ 4.00,20.00)
# 5: 25.000     5 [20.00,  Inf]

对于 dtnew 中的每一行，dt 中的匹配行是通过查找 x 找到的。如果 dtnew 中的特定值没有匹配项，而是落在间隙中，即介于 dt 中的两个值之间，则继续 last/previous价值前移。

例如，对于 dtnew$x = 0.4，它位于第 6 行 0.03 和第 7 行 1.00 之间。因此，前一行 (=6) 将作为匹配行结转。

基于指定间隔的映射值

Map Value based on Specified Intervals

r

intervals

data.table