У меня есть датафрейм со столбцом т. Я хочу создать n столбцов с задержками, которые имеют имена, такие как t-1, t-2 и т. Д.

  year      t  t-1 t-2
19620101    1   NA  NA
19630102    2   1   NA
19640103    3   2   1
19650104    4   3   2
19650104    5   4   3
19650104    6   5   4

Моя идея состоит в том, что я сделаю это в четыре шага:

Цикл для имен столбцов с использованием «вставить»Цикл для временных кадров данных для столбцов с задержкой, использующих «вставку»Цикл для создания отстающих столбцовсвязать их.

Но я не могу продолжить с кодом. Что-то грубое

df_final<-lagged(df="odd",n=3)

lagged<-function(df,n){
   df<-zoo(df)
   lags<-paste("A", 1:n, sep ="_")
   for (i in 1:5) {
     odd<-as.data.frame(lag(odd$OBS_Q,-1*i,na.pad =  TRUE))

   #Cbind here
   } 

Я застрял в написании этой функции. Не могли бы вы показать, как? Или другой, более простой способ сделать это ....

Ссылка:Базовое отставание в R вектор / датафрейм

Приложение:

Реальные данные:

x<-structure(list(DATE = 19630101:19630104, PRECIP = c(0, 0, 0,0), 
               OBS_Q = c(1.61, 1.48, 1.4, 1.33), swb = c(1.75, 1.73, 1.7,1.67), 
               gr4j = c(1.9, 1.77, 1.67, 1.58), isba = c(0.83, 0.83,0.83, 0.83), 
               noah = c(1.31, 1.19, 1.24, 1.31), sac = c(1.99,1.8, 1.66, 1.57), 
               swap = c(1.1, 1.05, 1.08, 0.99), vic.mm.day. = c(2.1,1.75, 1.55, 1.43)), 
          .Names = c("DATE", "PRECIP", "OBS_Q", "swb","gr4j", "isba", "noah", "sac", "swap", "vic.mm.day."), 
          class = c("data.table","data.frame"), row.names = c(NA, -4L))

Отмечаемый столбец - OBS_Q.