在不规则间隔内 reshape 和汇总数据

Question

我有以下格式的数据集:

 person surveyDate value
      a       2006    35
      a       2009    44
      b       2005    24
      b       2007    38
      c       2006    51
      c       2007    52
      c       2009    49

...我想将其 reshape 为如下所示:

person dateDiff valueDiff
     a        3         9
     b        2        14
     c        3        -2 

...其中 dateDiff 是每个人最早和最新 surveyDate 之间的差异，valueDiff 是每个人最早和最新值之间的差异。请注意，有些人接受的调查比其他人多，调查之间的时间也不同。

我一直在尝试使用 data.table(和 melt/dcast)来执行此操作，但尝试使用分配新的列值:= in j 让我完全难住了。欢迎使用其他方法。速度不是一个大问题，因为数据集不是很大。

Answer 1

你可以做到

DT[, .SD[.N] - .SD[1], by = person]

#    person surveyDate value
# 1:      a          3     9
# 2:      b          2    14
# 3:      c          3    -2

如果一个组只有 .N==1 观察值，差异将显示为零。

或者，...

DT[, lapply(.SD, function(x) x[.N]-x[1]), by = person]

OP 报告的速度要快得多。