从r中的其他向量自动生成变量列表

vector1 <- c(1, 2, 3)
vector2 <- c(4, 5, 6)
variable_list <- list()

for (i in 1:length(vector1)) {
  new_variable <- vector1[i] + vector2[i]
  variable_list[[i]] <- new_variable
}

vector1 <- c(1, 2, 3)
vector2 <- c(4, 5, 6)

variable_list <- lapply(1:length(vector1), function(i) {
  new_variable <- vector1[i] + vector2[i]
  return(new_variable)
})

library(purrr)

vector1 <- c(1, 2, 3)
vector2 <- c(4, 5, 6)

variable_list <- map2(vector1, vector2, ~ .x + .y)