将图像子集到 R 中的单独文件夹中

Question

我有一个文件夹，里面有几千个文件。我想将所有这些文件子集到单独的子文件夹中，每个子文件夹有 15 个文件（不管哪些文件去哪里或子文件夹名称）。基本上，我需要在程序中处理这些文件，并且我想将它们分解为文件夹，其中包含更小、更易于管理的文件数量。

Answer 1

您需要几个函数来执行此操作。

list.files 获取所有文件名

dir.create 创建目录和

file.rename 移动文件

AllFiles = list.files("TheFolder")

## Make all of the folders
FolderNumber = floor(1:length(AllFiles)/15) + 1
FolderName = sprintf("Folder%03d", FolderNumber)
for(f in unique(FolderName)) { dir.create(f) }

## Move the files
for(i in 1:length(AllFiles)) {
    file.rename(paste("TheFolder", AllFiles[i], sep="/"),
        paste(FolderName[i], AllFiles[i], sep="/"))
}

如果您要谨慎，可以使用file.copy 而不是file.rename。这将在不删除原始文件夹的情况下复制到文件夹，以便您在删除之前检查一切是否正常。