R语言使用imager包导入JPEG异常旋转如何批量解决

问题根因 #

这个旋转问题是JPEG的EXIF方向元数据没有被正确处理导致的：

• 拍摄设备生成的JPEG会根据拍摄姿态在EXIF中写入方向标签，本地常用的图像查看工具会自动读取该标签调整显示方向，所以本地打开图像是正常的
• Imgur这类图床在接收图片时会自动根据EXIF方向修正像素的存储顺序，同时抹除原始EXIF信息，所以下载imgur存储的版本不会出现旋转问题
• imager包的load.image()函数默认只读取原始像素存储顺序，不会适配EXIF方向标签，因此保留了EXIF信息的原始图读取后就会出现旋转

解决方案 #

你可以通过封装自动适配EXIF方向的读图函数，实现批量自动修正，不需要单独处理每一张图片：

方案1：基于imager+readexif封装自定义读取函数 #

先安装依赖包：

install.packages(c("imager", "readexif"))

封装自动修正方向的读图函数：

library(imager)
library(readexif)

load_image_auto_orient <- function(file_path) {
  # 读取原始图像
  raw_img <- load.image(file_path)
  # 读取EXIF方向参数，无EXIF时默认方向为1
  exif_info <- tryCatch(read_exif(file_path), error = function(e) list(Orientation = 1))
  orient_val <- ifelse(is.null(exif_info$Orientation), 1, exif_info$Orientation)
  
  # 按EXIF方向标准调整图像
  adjusted_img <- switch(as.character(orient_val),
    "1" = raw_img, # 正常方向无需调整
    "2" = mirror(raw_img, "x"), # 水平翻转
    "3" = imager::rotate(raw_img, 180), # 旋转180度
    "4" = mirror(raw_img, "y"), # 垂直翻转
    "5" = t(mirror(raw_img, "x")), # 水平翻转后顺时针转90度
    "6" = imager::rotate(raw_img, -90), # 顺时针转90度
    "7" = t(mirror(raw_img, "y")), # 垂直翻转后顺时针转90度
    "8" = imager::rotate(raw_img, 90) # 逆时针转90度
  )
  return(adjusted_img)
}

后续读取图片直接调用该函数即可：

# 示例读取
download.file("https://raw.githubusercontent.com/MrFlick/readexif/main/inst/extdata/LookUp.jpg", "sample.jpg", mode="wb")
img <- load_image_auto_orient("sample.jpg")
plot(img)

方案2：使用magick包（更简便） #

magick包默认会自动处理EXIF方向，无需额外写适配逻辑：

install.packages("magick")
library(magick)

# 直接读取就是正确方向
img <- image_read("sample.jpg")
# 如果需要转成imager的cimg格式继续后续处理
img_cimg <- as.cimg(img)
plot(img_cimg)

两种方案都可以实现批量自动修正，批量读取时统一调用对应函数即可。

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