我很难带领或滞后于整个数据帧。我能做的是通过以下尝试来移动单个列，但不能进行全部操作：
require('DataCombine')
df_l <- slide(df, Var = var1, slideBy = -1)
使用colnames（x_ret_mon）作为Var不起作用，我被告知在数据框中找不到变量名。
这种尝试将列向右移而不是向下移：
df_l<- dplyr::lag(df)
这只会为滞后变量创建新变量，但是我不知道如何有效删除旧的非滞后值：
df_l<-shift(df, n=1L, fill=NA, type=c("lead"), give.names=FALSE)