r - 将一个文件夹(包含图像)拆分为两个并将图像移动到新文件夹

Question

我有一个文件夹，名为 火车 ，其中包含两个子文件夹 hot_dog 和 not_hot_dog .出第一个文件夹火车我想从两个子文件夹中随机选择图像 hot_dog 和 not_hot_dog 并将它们放入一个名为 的新文件夹中验证 .此验证文件夹又包含两个子文件夹，名为 hot_dog 和 not_hot_dog .随机选择的图像数量应该是大约。原始图像数量的 20%。那些随机选择保存在新文件夹下的图片验证 , 应该在原文件夹中删除火车 .

当前文件夹结构如下所示:



文件夹结构的最终结果应如下所示:

Answer 1

首先，将当前工作目录设置为文件夹train所在的路径位于 setwd() .然后运行以下代码:

# setwd("path/to/folder/train")
path1 <- file.path("train", c("hot_dog", "not_hot_dog"))
path2 <- file.path("validation", c("hot_dog", "not_hot_dog"))
dir.create("validation")
lapply(path2, dir.create)
Map(function(x, y){
  file <- dir(x) ; n <- length(file)
  file_selected <- file.path(x, sample(file, ceiling(n * 0.2)))
  file.copy(file_selected, y)
  file.remove(file_selected)
}, path1, path2)