从文件夹中子集图像

【问题标题】：Subsetting Images out of a Folder从文件夹中子集图像
【发布时间】：2018-05-10 14:07:24
【问题描述】：

我们有一个包含 4000 张图片的文件夹。我们想将一组图像子集到一个新文件夹中。我们有一个文本文件，其中列出了我们想要子集化的所有图像。在 Windows 或 R 中是否有一种简单的方法可以做到这一点？

【问题讨论】：

标签： r

【解决方案1】：

假设您有一个 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 包。

【讨论】：

【解决方案2】：

这应该与n 样本大小一起工作（未经测试）：

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

另请参阅 this answer 移动文件

【讨论】：