使用loop或lapply将数据帧子集存储到R中的不同变量

# 创建一个包含多个数据框的列表
data_list <- list(data1 = data.frame(x = 1:5, y = 6:10),
                  data2 = data.frame(x = 11:15, y = 16:20),
                  data3 = data.frame(x = 21:25, y = 26:30))

# 创建空的环境，用于存储子集变量
new_env <- new.env()

# 使用loop函数将数据框子集存储到不同变量中
for (i in seq_along(data_list)) {
  assign(paste0("subset", i), data_list[[i]], envir = new_env)
}

# 查看存储的子集变量
ls(envir = new_env)

# 创建一个包含多个数据框的列表
data_list <- list(data1 = data.frame(x = 1:5, y = 6:10),
                  data2 = data.frame(x = 11:15, y = 16:20),
                  data3 = data.frame(x = 21:25, y = 26:30))

# 使用lapply函数将数据框子集存储到不同变量中
new_env <- lapply(seq_along(data_list), function(i) {
  assign(paste0("subset", i), data_list[[i]], envir = new_env)
})

# 查看存储的子集变量
ls(envir = new_env)