r - 根据 R 中的日期(年度)创建排名

Question

我们将从以下数据表开始:

    id       date
 1:  1 2015-12-31
 2:  1 2014-12-31
 3:  1 2013-12-31
 4:  1 2012-12-31
 5:  1 2011-12-31
 6:  2 2015-12-31
 7:  2 2014-12-31
 8:  2 2014-01-25
 9:  2 2013-01-25
10:  2 2012-01-25

library(data.table)
DT <- data.table(c(1, 1, 1, 1, 1, 2, 2, 2, 2, 2),
                 as.IDate(c("2015-12-31", "2014-12-31", "2013-12-31", "2012-12-31", 
                            "2011-12-31", "2015-12-31", "2014-12-31", "2014-01-25",
                            "2013-01-25", "2012-01-25")))
setnames(DT, c("id", "date"))

我想为每个唯一 ID 创建一个排名。特定 ID 的最新日期的排名应为 0。之后我应该从该日期删除一年以获得排名 -1。如果月份与排名0的日期不同，我们应该停止排名。例如，在第 8 行，对于 id=2，由于月份不是十二月，我们应该停止排名。

我们会得到如下结果:

    id       date rank_year
 1:  1 2015-12-31         0
 2:  1 2014-12-31        -1
 3:  1 2013-12-31        -2
 4:  1 2012-12-31        -3
 5:  1 2011-12-31        -4
 6:  2 2015-12-31         0
 7:  2 2014-12-31        -1
 8:  2 2014-01-25        NA
 9:  2 2013-01-25        NA
10:  2 2012-01-25        NA

到目前为止我有以下代码(由@Frank 和@akrun 提供):

DT <- DT[order(id, -date)]
DT <- DT[,rank_year := { z = month(date) + year(date)*12
                         as.integer( (z - z[1L])/12) # 12 months
                       }, by = id]

    id       date rank_year
 1:  1 2015-12-31         0
 2:  1 2014-12-31        -1
 3:  1 2013-12-31        -2
 4:  1 2012-12-31        -3
 5:  1 2011-12-31        -4
 6:  2 2015-12-31         0
 7:  2 2014-12-31        -1
 8:  2 2014-01-25        -1
 9:  2 2013-01-25        -2
10:  2 2012-01-25        -3

Answer 1

好吧，我想我会这样做

DT[, rank_year := replace(
    year(date) - year(date)[1L],  
    month(date) != month(date[1L]), 
    NA_integer_
), by=id]

    id       date rank_year
 1:  1 2015-12-31         0
 2:  1 2014-12-31        -1
 3:  1 2013-12-31        -2
 4:  1 2012-12-31        -3
 5:  1 2011-12-31        -4
 6:  2 2015-12-31         0
 7:  2 2014-12-31        -1
 8:  2 2014-01-25        NA
 9:  2 2013-01-25        NA
10:  2 2012-01-25        NA

请参阅 ?replace 了解其工作原理的详细信息。

---

扩展旧答案的一种方法是

DT[, r := {
   z = month(date) + year(date)*12
   res = (z - z[1L])/12
   as.integer( replace(res, res %% 1 != 0, NA) ) 
}, by=id]