如何在R中导入多个JPEG图像

Question

我希望将一个文件夹中的多张黑白图片导入到R中。这些文件名没有统一的规律。

我尝试了几种方法：

files <- list.files(path="C:\\images", pattern=".jpeg",all.files=T, full.names=F, no.. = T) 

并且

x = readImage(system.file(images, *.png, package=EBImage))

没有成功。

最终我希望导入这些图像，并创建一个矩阵，每行代表一幅图像，每列代表一个像素编号，范围从像素0到像素783（这些是28x28像素的图像，因此总共有786个像素）。

谢谢。

- Andrew Brown

---

你收到了什么错误信息？ - JasonAizkalns

Answer 1

为了得到一组图像，我会使用 lapply 函数：

list_of_images = lapply(files, readImage) 

将其转换为矩阵：

image_matrix = do.call('cbind', lapply(list_of_images, as.numeric))

- Paul Hiemstra