滯後面板數據data.table

Question

我目前落後於下述方式使用data.table面板數據：

require(data.table) 
x <- data.table(id=1:10, t=rep(1:10, each=10), v=1:100) 
setkey(x, id, t) #so that things are in increasing order 
x[,lag_v:=c(NA, v[1:(length(v)-1)]),by=id] 

我想知道是否有更好的方法來做到這一點？我在網上發現了一些關於交叉連接的內容，這很有道理。但是，交叉連接會爲大數據集生成一個相當大的data.table，所以我很猶豫要使用它。

Answer 1

我不知道這是多從你的方法不同，但你可以使用x由id

x[J(1:10), lag_v := c(NA,head(v, -1)) ] 

鍵我沒有測試過這是否是快於by，特別是如果事實它已經被鎖定。

或者，使用的事實，t（不使用的功能變量名稱！）是時間ID

x <- data.table(id=1:10, t=rep(1:10, each=10), v=1:100) 
setkey(x, t) 
replacing <- J(setdiff(x[, unique(t)],1)) 
x[replacing, lag_v := x[replacing, v][,v]] 

但同樣，使用雙連接在這裏似乎低效