读取JPEG图像并将它们附加到数组中

Question

我需要从目录中读取所有JPG图像并制作图像矩阵。每行应该是图像。每行的列都是图像中的所有像素。在我的情况下是24列，因为图像是6x4像素

这是我到目前为止所拥有的。但是，我将 list_of_images_bw_resized 转换为所述尺寸的矩阵吗？

files <- list.files(path = "./data/", pattern = ".JPG", all.files = TRUE, full.names = TRUE) 
list_of_images <- lapply(files, load.image) 
list_of_images_bw <- lapply(list_of_images, grayscale)
list_of_images_bw_resized <- lapply(list_of_images_bw, resize, size_x = 6, size_y = 4 )

Answer 1

试试这个：

m <- matrix(data = unlist(list_of_images_bw_resized),
            nrow = nimages, ncol = 24, byrow = TRUE)

其中nimages是列表中的图片数量或length的{​​{1}}。