在 R 中：将类似文件放在具有相同前缀的文件夹中

Question

我有一个文件夹，其中包含为部分人群创建的文件。每个种群创建了 3 个包含数据的不同文件，每个文件以 XXX_ 开头以表示种群，然后在“_”之后指示文件类型（全部后跟 .txt）。 例如： AAA_dat1.txt AAA_dat2.txt AAA_dat3.txt BBB_dat1.txt BBB_dat2.txt BBB_dat3.txt

我已经连续为从我的数据集中提取的每个人口创建了新文件夹（因此在本示例中，我有文件夹 AAA 和 BBB）。我现在希望仅将 AAA_dat1.txt 和 AAA_dat2.txt 移动到文件夹 AAA 和 BBB_dat1.txt 和 BBB_dat2.txt 到文件夹 BBB，将 AAA_dat3.txt 和 BBB_dat3.txt 留在当前文件夹中。由于我将拥有具有不同人口数量的数据集，因此我正在寻找一种不必每次都手动移动每个人口的文件的方法。有没有办法做到这一点？

这就是我创建希望将文件移动到的新文件夹的方法：

newfolders <- c(pops) #pops is the list of populations directly from the dataset

for (j in 1:length(newfolders)){
folder<-dir.create(paste0("~/pathhere/",newfolders[j]))
}

谢谢。

Answer 1

这是一个镜头：

filenames <- c(
  "AAA_dat1.txt", "AAA_dat2.txt", "AAA_dat3.txt",
  "BBB_dat1.txt", "BBB_dat2.txt", "BBB_dat3.txt"
)

dirs <- gsub("_.*", "", basename(filenames))
dirs
# [1] "AAA" "AAA" "AAA" "BBB" "BBB" "BBB"

虽然为此生成data.frame 不是绝对必要的，但它使索引和查看内容变得更容易：

moves <- data.frame(
  origpath = filenames, # not basename'd
  newpath = file.path(dirs, basename(filenames))
)[ !grepl("dat3", basename(filenames)), ]
moves
#       origpath          newpath
# 1 AAA_dat1.txt AAA/AAA_dat1.txt
# 2 AAA_dat2.txt AAA/AAA_dat2.txt
# 4 BBB_dat1.txt BBB/BBB_dat1.txt
# 5 BBB_dat2.txt BBB/BBB_dat2.txt

请注意，dat3 文件不在其中。这个框架的目的是重命名（移动）文件，因为我们没有移动它们，所以在这个上下文中我们不需要对它们做任何事情。

我们可以一举移动它们：

file.rename(moves$origpath, moves$newpath)

---

顺便说一句：上面使用basename 是为了处理以下情况：（1）原始文件不在当前目录中，或者（2）您使用了list.files(..., full.names=TRUE)（这样可能会包含完整路径） ）。当它们都在当前目录中或其他情况下，它工作得很好，例如

filenames <- c(
  "path1/AAA_dat1.txt", "path1/AAA_dat2.txt", "path99/AAA_dat3.txt",
  "path2/BBB_dat1.txt", "path1/BBB_dat2.txt", "somepath/BBB_dat3.txt"
)
dirs  # derived as above
# [1] "AAA" "AAA" "AAA" "BBB" "BBB" "BBB"
moves # derived as above
#             origpath          newpath
# 1 path1/AAA_dat1.txt AAA/AAA_dat1.txt
# 2 path1/AAA_dat2.txt AAA/AAA_dat2.txt
# 4 path2/BBB_dat1.txt BBB/BBB_dat1.txt
# 5 path1/BBB_dat2.txt BBB/BBB_dat2.txt