R中的循环遍历变量名并创建新的滞后变量

# 创建一个空的列表来存储滞后变量
lagged_vars <- list()

# 定义要滞后的变量名
var_names <- c("var1", "var2", "var3")

# 循环遍历变量名并创建滞后变量
for (var_name in var_names) {
  # 创建滞后变量名
  lagged_var_name <- paste0(var_name, "_lag1")
  
  # 创建滞后变量
  lagged_var <- lag(df[, var_name], 1)
  
  # 将滞后变量添加到列表中
  lagged_vars[[lagged_var_name]] <- lagged_var
}

# 将滞后变量列表转换为数据框
lagged_vars_df <- as.data.frame(lagged_vars)

# 创建一个空的数据框来存储滞后变量
lagged_vars_df <- data.frame()

# 定义要滞后的变量名
var_names <- c("var1", "var2", "var3")

# 使用apply函数遍历变量名并创建滞后变量
lagged_vars_df <- apply(df[, var_names], 2, function(x) lag(x, 1))
colnames(lagged_vars_df) <- paste0(var_names, "_lag1")