R - 避免基于矩阵索引的循环

Question

我想知道是否可以使用 smoehow apply 来避免 for 循环，但我不知道在这种情况下如何使用 max(i-4,1)

x <- matrix(seq_len(100),10,10)
x[,1] <- letters[1:10] 
y <- x
for (i in 1:nrow(x)) {
  for (j in 2:ncol(x)) {
    y[i,j] <- x[max(i-4,1),j]
  }
}

Answer 1

如果您想要一个简单的滞后函数，这里是一个适用于 data.tables 和数据框的函数。我确定您可以编辑以使用矩阵。

#data table version
lagging<-
function (data, var, time) 
{
    return(c(rep(NA, time), head(data[, eval(as.name(var))], 
        (length(data[, eval(as.name(var))]) - time))))
}

#data frame version
lagging<-
function (data, var, time) 
{
    return(c(rep(NA, time), head(data[, var], 
        (length(data[, var]) - time))))
}