0

で識別されるいくつかのイベントがありますid, var1, var2 and date。

dif_time の目的の出力は次のとおりです。

  id var1 var2      date1      date2 dif_time
  1  120    1 2014-06-03 2014-06-30       26
  1  120    1 2014-06-04 2014-06-30       26
  1  120    4 2014-06-05 2014-06-30       25
  2  220    1 2014-06-05 2014-06-30       23
  2  220    1 2014-06-07 2014-06-30       23
  3  120    2 2014-06-10 2014-06-30       15
  3  120    2 2014-06-12 2014-06-30       15
  3  120    1 2014-06-15 2014-06-30       15
  5  220    3 2014-06-20 2014-06-30       10

date1 (イベント日) と制御日 date2 の間の dif_time を日数で計算する必要があります。制約は次のとおりです。

event (id,var1,var2)私はlast.date1を見つけて計算する必要があります：

dif_time(days) = date2 - last.date1、各イベントについて、イベントの結果を報告します。

を修正する方法が見つかりませんでしたlast.date1。ご協力をお願いします。

4

1 に答える 1

1

あなたはこれを行うことができます

dd<-data.frame(
    id = c(1L, 1L, 1L, 2L, 2L, 3L, 3L, 3L, 5L),
    var1 = c(120L, 120L, 120L, 220L, 220L, 120L, 120L, 120L, 220L), 
    var2 = c(1L, 1L, 4L, 1L, 1L, 2L, 2L, 1L, 3L), 
    date1 = structure(c(16224, 16225, 16226, 16226, 16228, 16231, 16233, 16236, 16241), class = "Date"), 
    date2 = structure(c(16251, 16251, 16251, 16251, 16251, 16251, 16251, 16251, 16251), class = "Date")
)

last.date1<-with(dd, ave(date1, id, var1, var2, FUN=max, drop=T))
dd$date2-last.date1

dd$diff_time <- dd$date2-last.date1
于 2014-05-06T01:53:05.320 に答える