根据第二个数据框按组创建一个数据框中的日期序列

Question

我有两个共享分组ID的数据帧。我希望根据另一个设置的条件在其中创建一个日期序列。MRE如下：

jdates <- structure(list(Group.1 = c(8, 9), x = structure(c(16674, 16661), class = "Date")), .Names = c("Group.1", "x"), row.names = c(NA, -2L), class = c("data.table", "data.frame"))

jtrying <- structure(list(id = c(8, 8, 8, 9, 9, 9), values1 = 1:6, values2 = 7:12), .Names = c("id", "values1", "values2"), row.names = c(NA, -6L), class = c("data.table", "data.frame"))

在这个例子中，我想在 jtrying 中创建一列日期，从 jdates 中的下一个日期开始（每个组 - 组中的 Group.1 在 jdates 中，id 在 jtrying 中）。

具有数据。表中，这些（可怕的）方法都不起作用：

jtrying[ , date := seq(jdates$x + 1, length.out=3, by = 1), by = jdates$Group.1]

jtrying[ , date := seq(jdates$x + 1, length.out=3, by = 1), by = id]

jtrying[ , date := lapply(.SD,(seq(jdates$x + 1, length.out=3, by = 1))), by = id]

jtrying[ , date := lapply(.SD,function(x) seq(jdates$x + 1, length.out=3, by = 1)), by = id]

我一直在尝试数据。表方法，因为它们被认为更快（而且实际数据相当大），但实际上，任何（合理的）方法都可以。

我的预期结果是一个看起来像这样的 data.frame：

 jtrying
   id values1 values2       date
1:  8       1       7 2015-08-28
2:  8       2       8 2015-08-29
3:  8       3       9 2015-08-30
4:  9       4      10 2015-08-15
5:  9       5      11 2015-08-16
6:  9       6      12 2015-08-17

Answer 1

这是我会做的

jtrying[jdates, 
  date := seq(from=x+1, by=1, length.out=.N)
, on=c(id="Group.1"), by=.EACHI]

此语法X[Y， newcols：=...， on=c（Xcols=Ycols）， by=. EACHI]工作原理如下：

< li> X与< code>on中标识的列上的< code>Y合并。 < li> X为合并列的每个值单独构建其< code>newcol(即< code>by=)。每个)。