如何以标签形式加载/修改图片元数据？用R结合exiftool实现

1. 准备工作 #

• 确认电脑已安装ExifTool：在终端输入exiftool -ver验证，未安装则自行下载对应系统版本安装。
• 在R中读取CSV文件：用基础函数read.csv()或readr::read_csv()加载你的标签映射文件，确保文件名和标签列被正确识别。

2. 批量处理脚本实现 #

核心逻辑是遍历CSV的每一行，调用ExifTool命令给对应图片写入标签。ExifTool的Keywords字段是Digikam等软件可识别的标准标签字段，命令格式为exiftool -Keywords="标签内容" "图片文件名"。

示例代码：

# 读取CSV文件，假设文件名为image_tags.csv，列名分别为filename（图片名）、tags（标签）
image_tags <- read.csv("image_tags.csv", stringsAsFactors = FALSE)

# 逐行处理图片
for (row in 1:nrow(image_tags)) {
  img_file <- image_tags$filename[row]
  tag_content <- image_tags$tags[row]
  
  # 构造ExifTool命令
  cmd <- sprintf('exiftool -Keywords="%s" "%s"', tag_content, img_file)
  
  # 执行命令
  system(cmd)
  
  # 可选：打印处理进度
  cat(sprintf("已完成：%s\n", img_file))
}

3. 特殊场景处理 #

• 若标签含空格、引号等特殊字符，用shQuote()函数自动转义：

  cmd <- sprintf('exiftool -Keywords=%s %s', shQuote(tag_content), shQuote(img_file))
  

• 不想保留原图片备份（ExifTool默认生成_original后缀的备份），添加-overwrite_original参数：

  cmd <- sprintf('exiftool -overwrite_original -Keywords="%s" "%s"', tag_content, img_file)
  

• 确保图片路径正确：若CSV中是相对路径，需保证R工作目录与图片所在目录一致，或直接使用绝对路径。

4. 验证标签有效性 #

用ExifTool命令查看已添加的标签：

exiftool -Keywords "目标图片文件名"

也可直接在Digikam中导入图片，查看元数据标签是否正常显示。

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