您可以使用jpeg软件包。代码应该相当自我解释:require(jpeg) img <- readJPEG("myimage.jpg") dim(img) [1] 700 700 3 同一位作者(Simon Urbanek)还提供了 png 和 tiff 包,其函数具有类似的语法(readPNG 和 readTIFF)。
exif
或imagemagick进行更加可靠的操作。例如:as.numeric(system(sprintf("file %s | cut -d ',' -f 11 | cut -d 'x' -f 1", <my_file_name>), intern = TRUE))
- bcarlsen