0

我有一个带有日期的 data.table（作为因子变量）。我从这些中得到滞后值。我怎样才能告诉 R 只为半最后的观察结果运行获取滞后值？在这种情况下，这将是start == "01.01.2015"？

示例数据：

ID <- rep("A5", 15)
product <- rep(c("prod1","prod2","prod3", "prod55", "prod4", "prod9", "prod83"),3)
start <- c(rep("01.01.2016", 3), rep("01.01.2015", 3), rep("01.01.2014",3),
           rep("01.01.2013",3), rep("01.01.2012",3))
prodID <- c(3,1,2,3,1,2,3,1,2,3,2,1,3,1,2)
mydata <- cbind(ID, product[1:15], start, prodID)
mydata <- as.data.table(mydata)

mydata[, (nameCols) := shift(.SD, 3, fill = "NA", "lead"), .SDcols= c("start", "V2"), by = "prodID"]

现在我用它来得到我的结果：

mydata[start == "01.01.2015"]

问题是半最后日期并不总是相同的日期。我将多次重复此过程，我想避免手动指定。有任何想法吗？

4

1 回答 1

0

将数据转换为日期对象并sort选择半最后日期。 

library(data.table)

mydata[, start := as.IDate(start, '%d.%m.%Y')]
mydata[start == sort(unique(start), decreasing = TRUE)[2]]


#   ID     V2      start prodID
#1: A5 prod55 2015-01-01      3
#2: A5  prod4 2015-01-01      1
#3: A5  prod9 2015-01-01      2
于 2020-05-20T03:15:12.177 回答