我正在尝试将多个黑白图像从文件夹导入到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总像素)。
由于
答案 0 :(得分:2)
要获取列表中的图像,我会使用lapply
:
list_of_images = lapply(files, readImage)
并将其转换为矩阵:
image_matrix = do.call('cbind', lapply(list_of_images, as.numeric))