如何批量修改所有R文件的目录路径？R设置工作目录有何最佳实践

• 方法1：通过R脚本批量处理
  操作前先备份所有R文件，避免误改导致内容丢失。你可以直接运行以下代码完成批量替换：

  # 自定义配置参数
  old_wd <- "你旧设备里setwd写的绝对路径，例如C:/users/old/work"
  new_wd <- "新设备对应的目标绝对路径，例如D:/work/project"
  r_root <- "存放所有需要修改的R文件的根文件夹路径"
  
  # 递归读取所有.R后缀文件
  r_files <- list.files(path = r_root, pattern = "\\.R$", recursive = TRUE, full.names = TRUE)
  
  for (f in r_files) {
    content <- readLines(f, warn = FALSE)
    # 匹配替换setwd路径
    new_content <- gsub(paste0("setwd\\(\"", old_wd, "\"\\)"), paste0("setwd(\"", new_wd, "\")"), content)
    writeLines(new_content, f)
  }
  

  如果你的代码里setwd()用的是单引号包裹路径，调整上述正则里的引号格式即可。
• 方法2：用文本编辑器全局替换
  用VS Code、Sublime Text等支持全局搜索的编辑器打开R文件根目录，全局搜索setwd("旧路径")，一键批量替换为新路径即可，操作门槛更低。

• 不要在代码中硬编码绝对路径
  写死setwd()的绝对路径是跨设备、跨协作场景报错的核心原因，换设备、移动文件夹都需要重新改路径，协作时不同人的本地路径也不可能完全一致。
• 优先用*RStudio Project（.Rproj）*管理项目
  在项目根目录创建.Rproj文件，每次双击.Rproj启动项目时，RStudio会自动将工作目录设置为项目根目录，不需要额外写setwd()，所有文件读写直接用基于根目录的相对路径即可，比如读取根目录下data文件夹的文件，直接写read.csv("./data/表1.csv")。
• 用here包自动适配路径
  如果不使用RStudio，可以安装here包，它会自动定位项目根目录，路径写法为read.csv(here("data", "表1.csv"))，跨Windows、macOS、Linux系统都能自动适配，不需要手动调整路径格式。
• 统一相对路径规则
  所有项目内的文件路径都基于项目根目录编写，尽量避免使用多级向上跳转的相对路径（例如../../xx文件夹/），避免文件移动后路径失效。

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