如何在R中不加载文件到内存即可快速读取图片的像素宽高

核心采用ImageMagick工具包的identify命令实现需求：该命令仅读取图片文件头的元数据，不会加载全图到内存，天然兼容jpg、jpeg、png等主流图片格式，无需自行适配不同格式的输出解析规则。

前置依赖 #

• Debian/Ubuntu 系统安装命令：sudo apt install imagemagick
• CentOS/RHEL 系统安装命令：sudo yum install ImageMagick

R 代码实现 #

单个图片宽高读取函数 #

# 输入：图片文件路径
# 输出：整数向量，第一个元素为宽度，第二个为高度
get_image_dims <- function(img_path) {
  dim_str <- system(
    sprintf("identify -format '%%w %%h' %s", shQuote(img_path)),
    intern = TRUE
  )
  as.integer(unlist(strsplit(dim_str, " ")))
}

# 调用示例
path_to_file <- 'img/13600061.jpg'
img_dims <- get_image_dims(path_to_file)
width <- img_dims[1]
height <- img_dims[2]

shQuote用于处理文件路径包含空格、特殊字符的场景，避免命令执行出错。

批量读取示例 #

如果需要批量读取目录下所有jpg、jpeg、png文件的宽高，可直接用lapply遍历：

# 遍历目标目录下所有符合格式的图片
img_list <- list.files(
  path = "img/",
  pattern = "\\.(jpg|jpeg|png)$",
  full.names = TRUE,
  ignore.case = TRUE
)

# 批量获取宽高，输出为数据框
dims_df <- do.call(rbind, lapply(img_list, function(p) {
  d <- get_image_dims(p)
  data.frame(path = p, width = d[1], height = d[2])
}))

性能说明 #

单张图片读取耗时在毫秒级，数千张图片通常可在数秒内完成处理，全程内存占用可忽略。如果需要同时返回图片格式，可将命令的format参数改为'%%m %%w %%h'，返回值的第一个元素即为图片格式标识。

内容的提问来源于stack exchange，提问作者Valentin_Ștefan