R语言循环按序号命名批量保存随机森林模型RDS文件的方法

两个错误写法都踩了R字符串处理的常见坑：

• 第一种写法直接把文件名写为固定字符串"model_i.RDS"，R不会自动解析字符串里的i为循环变量，5次循环都在反复覆盖同一个同名文件，最后只会留下第5次训练的单个模型文件。
• 第二种写法有两个问题：一是给变量wd加了引号，R会把"wd"识别为普通文本而非你之前存储工作目录的变量；二是路径拼接没有加分隔符，就算变量识别正确也会把路径和文件名粘成无效路径，本质还是每次写入的路径没有随循环索引变化，导致文件覆盖。

如果要保存到系统「我的文档」目录，不要硬编码路径，用R自带的环境变量获取兼容Windows/macOS的文档路径，循环时动态拼接带索引的文件名即可：

library(randomForest)

# 复现用示例数据
test_set = data.frame( class = as.factor(sample(c(0,1), replace=TRUE, size=100)), height = rnorm(100,100,100), weight = rnorm(100,100,100), salary = rnorm(100,100,100)) 
train_data_1 = data.frame( class = as.factor(sample(c(0,1), replace=TRUE, size=100)), height = rnorm(100,100,100), weight = rnorm(100,100,100), salary = rnorm(100,100,100)) 
train_data_2 = data.frame( class = as.factor(sample(c(0,1), replace=TRUE, size=100)), height = rnorm(100,100,100), weight = rnorm(100,100,100), salary = rnorm(100,100,100)) 
train_data_3 = data.frame( class = as.factor(sample(c(0,1), replace=TRUE, size=100)), height = rnorm(100,100,100), weight = rnorm(100,100,100), salary = rnorm(100,100,100)) 
train_data_4 = data.frame( class = as.factor(sample(c(0,1), replace=TRUE, size=100)), height = rnorm(100,100,100), weight = rnorm(100,100,100), salary = rnorm(100,100,100)) 
train_data_5 = data.frame( class = as.factor(sample(c(0,1), replace=TRUE, size=100)), height = rnorm(100,100,100), weight = rnorm(100,100,100), salary = rnorm(100,100,100)) 
X = list(train_data_1, train_data_2, train_data_3, train_data_4, train_data_5)   

# 获取系统默认「我的文档」路径，若识别失败可手动替换为自己的目标路径，例如Windows下写 "C:/Users/你的用户名/Documents"
target_dir <- Sys.getenv("R_USER")

results_1 <- list()
results_2 <- list()

for (i in 1:5){
  model_i <- randomForest(class ~  height + weight + salary, data = X[[i]])

  # 用file.path自动拼接路径和文件名，自动适配不同系统的路径分隔符，避免拼接错误
  save_file <- file.path(target_dir, paste0("model_", i, ".RDS"))
  saveRDS(model_i, save_file)

  predict_i <- data.frame(predict(model_i , test_set ,type="prob"))
  predict_i$id = 1:nrow(predict_i)
  
  results_1[[i]] <- model_i
  results_2[[i]] <- predict_i 
}

• 所有需要随循环变化的内容，不能直接写在固定引号字符串里，必须用paste0()/paste()把固定文本和循环变量拼接成动态值。
• 引用自定义变量时不要给变量名加引号，加引号就会变成普通文本，不会读取变量里存储的值。
• 拼接文件路径优先用file.path()，不要手动用paste0拼斜杠，避免跨系统路径不兼容、漏写分隔符的问题。
• 代码运行后即可在目标目录看到model_1.RDS到model_5.RDS共5个独立模型文件，不会出现覆盖问题。

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