有没有办法自动更改我的文件路径并在R中应用函数？

# 创建文件路径
path <- file.path("目录名", "子目录名", "文件名.txt")

# 在R中应用函数
data <- read.csv(path)

# 更改当前工作目录
setwd("新目录的路径")

# 在新目录中应用函数
data <- read.csv("文件名.txt")

# 创建文件路径列表
paths <- c("目录1/文件1.txt", "目录2/文件2.txt", "目录3/文件3.txt")

# 循环遍历文件路径并应用函数
for (path in paths) {
  data <- read.csv(path)
  # 其他操作
}

library(stringr)

# 创建文件路径
path <- "旧目录/旧子目录/文件.txt"

# 替换目录名
new_path <- str_replace(path, "旧目录/旧子目录", "新目录/新子目录")

# 在R中应用函数
data <- read.csv(new_path)