从文件夹中对图像进行子集

Question

我们有一个包含4000张图片的文件夹。我们希望将一组图像分组到一个新文件夹中。我们有一个文本文件，其中列出了我们想要分组的所有图像。有没有一种简单的方法在Windows或R中执行此操作？

Answer 1

使用n样本大小

时，这应该有效（未经测试）

n=100
newdir <- "C:\\Documents\\R\\wd\\text"
myfiles <- list.files()
mysample <- sample(myfiles,n)
file.copy(mysample,newdir)

另请参阅移动文件的this answer

Answer 2

假设您有一个images.txt文件，其中包含您要分组的图像的文件名（每个都在新行上），然后您可以使用

导入列表

images <- readLines("images.txt")

并制作新导演并使用

复制您的子集

dir.create("subset")
for (i in seq_along(images)) {
  file.copy(images[i], paste0("subset/", images[i]))
}

假设您的工作目录是包含图像的文件夹，例如使用setwd()或使用here包。