卷加入使NA在data.table

数据卷加入使NA在data.table

Usage <- structure(list(feature = c("M11", "M11", "M11", "M11", "M11", "M11", "M11"), 
         startDate = structure(c(17130, 17130, 17130, 17130,17155, 17155, 17155), class = "Date"), 
         cc = c("X6", "X6", "X6", "X6", "X6", "X6", "X6"), vendor = c("Z1", "Z1", "Z1", "Z1", "Z1","Z1", "Z1")), .Names = c("feature", "startDate", "cc", "vendor"), 
        row.names = c(NA,-7L), class = c("data.table", "data.frame")) 


Limits <- structure(list(vendorId = c("Z1", "Z1", "Z1", "Z1", "Z1", "Z1"), 
         featureId = c("M11", "M11", "M11", "M11", "M11", "M11"), 
         costcenter = c("X6", "X6", "X6", "X6", "X6", "X6"), 
         oldLimit = c(1L,2L, 3L, 4L, 5L, 6L), date = structure(c(17135, 17105, 17074, 17044, 17149, 17119), class = "Date")), 
        .Names = c("vendorId", "featureId","costcenter",  "oldLimit", "date"), row.names = c(NA, -6L), class = "data.frame") 

    setDT(Usage) 
    setDT(Limits)

荫试图通过看“限制” DT列“限制” DT添加到“用法”。这是为了找出在其相应使用时该“功能”，“成本中心”，“供应商”组合的限制。

但是，当我尝试使用下面的代码进行roll-join时，我得到了奇怪的结果。我为我的数据获得了大量的NAs，因此如上创建了示例数据。以下是我的roll-join代码。

Usage[Limits, limitAtStartDate:= i.oldLimit, on=c(cc="costcenter",feature="featureId", 
            vendor="vendorId", startDate="date"), roll=T,verbose=T] 

> Usage 
    feature startDate cc vendor limitAtStartDate 
1:  M11 2016-11-25 X6  Z1    6 
2:  M11 2016-11-25 X6  Z1    NA 
3:  M11 2016-11-25 X6  Z1    NA 
4:  M11 2016-11-25 X6  Z1    NA 
5:  M11 2016-12-20 X6  Z1    5 
6:  M11 2016-12-20 X6  Z1    NA 
7:  M11 2016-12-20 X6  Z1    NA

为什么是“5” &“6”是为一个记录“limitAtStartDate”？

我期待着5对所有行与日期2016年12月20日和6只全部设置2016年11月25日。请让我知道我要多多错了。我现在用data.table版本1.10.0。

来源

2017-02-09 pauljeba

我想你是这样做的。尝试'限制[usage，oldLimit，on =。（costcenter = cc，featureId = feature，vendorId = vendor，date = startDate），roll = TRUE]'另外，请不要忘记'setDT（Usage）; setDT（限制）' –

@DavidArenburg感谢你。用适当的setDT（）更新问题和结果。但我不想加入其他方式，因为之后我不会得到正确的DT结构。 – pauljeba

我给你你需要的价值。你可以把它们放回'Usage'表中。例如。 'Usage [，limitAtStartDate：=限制[usage，oldLimit，on =。（costcenter = cc，featureId = feature，vendorId = vendor，date = startDate），roll = TRUE]] –

当执行X[Y]在data.table加入你基本上在做Y是每个价值你是试图在X中找到一个值。因此，最终的连接将会是Y s表。在你的情况下，你试图找到Limits中的值为Usage中的每个值并获得7长度的向量。因此，你应该加入周围的其他方式，然后将它存回Limits

Limits[Usage, 
     oldLimit, 
     on = .(costcenter = cc, featureId = feature, vendorId = vendor, date = startDate), 
     roll = TRUE] 
## [1] 6 6 6 6 5 5 5

作为一个侧面说明，非常（有的时候不那么）简单的情况下，你可以只使用findInterval。

setorder(Limits, date)[findInterval(Usage$startDate, date), oldLimit] 
## [1] 6 6 6 6 5 5 5

它虽然

您需要先排序的间隔矢量有一些需要注意的一个非常有效的功能。
您不能设置滚动间隔容易，你会在data.table做（例如roll = 2，而不是仅仅roll = TRUE）
也可能是最大的缺点是，这将是棘手的执行滚动一次几个变量加入（不涉及循环），因为你很容易做到这一点data.table

来源

2017-02-12 12:32:38

卷加入使NA在data.table

回答

相关问题