如何用R语言将含特定元数据标签的文件复制到新文件夹？

1. 准备工作：安装并加载所需包 #

需要用到exifr包读取图片元数据，先完成安装和加载：

# 安装包（仅首次运行需要）
install.packages("exifr")
# 加载包
library(exifr)

2. 定义关键路径 #

设置原始图片根文件夹和目标文件夹的路径，同时确保目标文件夹存在：

# 替换为你的原始图片根文件夹路径
source_dir <- "/path/to/your/source/images"
# 替换为你要保存筛选后图片的目标文件夹路径
target_dir <- "/path/to/your/target/folder"

# 如果目标文件夹不存在，自动创建
if (!dir.exists(target_dir)) {
  dir.create(target_dir, recursive = TRUE)
}

3. 获取所有图片文件路径 #

递归遍历原始文件夹下的常见格式图片（可根据需求调整格式）：

# 获取jpg、png格式的图片路径，recursive=TRUE表示遍历所有子文件夹
image_files <- list.files(
  path = source_dir,
  pattern = "\\.(jpg|jpeg|png)$",
  full.names = TRUE,
  recursive = TRUE,
  ignore.case = TRUE
)

4. 初始化存储目标文件的向量 #

files_to_copy <- c()

5. 遍历文件筛选符合条件的图片 #

整合你已写的逻辑，加入错误处理避免个别文件读取失败中断程序：

for (file in image_files) {
  tryCatch({
    metadata <- read_exif(file)
    
    # 检查是否存在Tags字段，且包含"detection"标签
    if ("Tags" %in% names(metadata) && "detection" %in% metadata$Tags) {
      files_to_copy <- c(files_to_copy, file)
    }
  }, error = function(e) {
    # 打印读取失败的文件路径，方便排查问题
    message(paste("无法读取文件元数据：", file))
  })
}

6. 复制筛选后的文件到目标文件夹 #

如果找到符合条件的文件，批量复制：

if (length(files_to_copy) > 0) {
  # 复制文件，overwrite=TRUE表示覆盖目标文件夹中的同名文件
  file.copy(from = files_to_copy, to = target_dir, overwrite = TRUE)
  message(paste("已成功复制", length(files_to_copy), "个符合条件的图片到目标文件夹"))
} else {
  message("未找到带有\"detection\"标签的图片")
}

内容的提问来源于stack exchange，提问作者TRS6