能否向magick对象写入属性数据？如何更新图片GPS元数据

嘿，我明白你的问题啦——magick包在读取图片GPS信息上没问题，但要修改写入确实不是它的强项，因为它主要是用来处理图像本身的，对EXIF元数据的编辑支持很有限。我给你推荐一个专门处理EXIF/元数据的R包：exifr，用它来更新GPS坐标会顺畅很多，下面是具体步骤和代码示例：

步骤1：安装并加载exifr包 #

首先确保你安装了这个包，没安装的话执行：

install.packages("exifr")
library(exifr)

步骤2：读取单张图片的EXIF数据 #

用read_exif()函数读取图片的所有元数据，包括GPS信息：

# 替换成你的图片路径
img_path <- "path/to/your/test_image.jpg"
img_exif <- read_exif(img_path)

# 查看所有GPS相关字段
img_exif[, grep("GPS", colnames(img_exif))]

步骤3：修改GPS坐标信息 #

GPS坐标在EXIF里是以度/1, 分/1, 秒/1000的分数格式存储的，同时需要指定南北纬、东西经的参考方向：

# 设置新的纬度（示例：70°14'6.655" 北纬）
img_exif$GPSLatitude <- "70/1, 14/1, 6655/1000"
img_exif$GPSLatitudeRef <- "N"  # 北纬用"N"，南纬用"S"

# 设置新的经度（示例：120°30'1.234" 东经）
img_exif$GPSLongitude <- "120/1, 30/1, 1234/1000"
img_exif$GPSLongitudeRef <- "E"  # 东经用"E"，西经用"W"

步骤4：将修改后的元数据写回图片 #

用write_exif()把更新后的EXIF数据保存回原图片（也可以指定新路径避免覆盖原文件）：

# 写回原图片（会覆盖原文件，谨慎操作）
write_exif(img_exif, img_path)

# 或者写入新文件，保留原图片
write_exif(img_exif, "path/to/updated_image.jpg")

批量处理多张图片 #

如果你有数千张图片需要处理，可以用循环批量操作，比如从CSV读取对应图片的精准GPS数据：

# 假设你有一个CSV文件，包含图片路径和对应的精准GPS信息
gps_data <- read.csv("path/to/your/gps_coords.csv")

# 遍历每一行数据
for (i in 1:nrow(gps_data)) {
  img_path <- gps_data$image_path[i]
  exif_data <- read_exif(img_path)
  
  # 从CSV读取并设置GPS坐标
  exif_data$GPSLatitude <- gps_data$latitude[i]
  exif_data$GPSLatitudeRef <- gps_data$lat_ref[i]
  exif_data$GPSLongitude <- gps_data$longitude[i]
  exif_data$GPSLongitudeRef <- gps_data$lon_ref[i]
  
  # 写回图片
  write_exif(exif_data, img_path)
}

补充说明 #

• magick包的image_attributes()函数主要用于读取图像的基础属性，并不支持修改写入EXIF元数据，所以之前的尝试会失败是正常的。
• 处理前建议先备份原图片，避免操作失误导致数据丢失。

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