如何将指定R代码循环执行500次并存储生成的数据？

方法一：使用for循环（直观易懂） #

把固定参数放在循环外避免重复计算，初始化空列表存储每次生成的数据集，再通过循环完成批量生成：

library(MASS)

# 固定参数设置（仅需执行一次）
set.seed(98989)  # 可选，用于结果复现
sample_size <- 200                                       
sample_meanvector <- c(3, 4)                                   
sample_covariance_matrix <- matrix(c(2, 1, 1, 2), ncol = 2)

# 初始化空列表，预留500个位置存储数据集
data_list <- vector("list", length = 500)

# 执行500次循环生成数据
for (i in 1:500) {
  # 生成二元正态分布数据
  sample_distribution <- mvrnorm(n = sample_size,
                                 mu = sample_meanvector, 
                                 Sigma = sample_covariance_matrix)
  # 转换为数据框并存入列表对应位置
  data_list[[i]] <- as.data.frame(sample_distribution)
  # 可选：给每个数据集命名，方便后续调用（比如第1次生成的叫data_1）
  names(data_list)[i] <- paste0("data_", i)
}

方法二：使用lapply（更简洁的R风格写法） #

R中推荐用向量化操作替代传统循环，lapply可以更简洁地完成批量生成任务：

library(MASS)

# 固定参数设置
set.seed(98989)
sample_size <- 200                                       
sample_meanvector <- c(3, 4)                                   
sample_covariance_matrix <- matrix(c(2, 1, 1, 2), ncol = 2)

# 用lapply批量生成并存储500次数据
data_list <- lapply(1:500, function(i) {
  sample_distribution <- mvrnorm(n = sample_size,
                                 mu = sample_meanvector, 
                                 Sigma = sample_covariance_matrix)
  as.data.frame(sample_distribution)
})

# 可选：给列表元素命名
names(data_list) <- paste0("data_", 1:500)

后续使用说明 #

• 调用第k次生成的数据集：data_list[[k]] 或者 data_list[["data_k"]]（已设置命名时可用）
• 若需合并所有数据集为一个带批次标识的大框，可使用dplyr::bind_rows(data_list, .id = "batch")（需先安装加载dplyr包）

内容的提问来源于stack exchange，提问作者Renee