Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/69.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/url/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 读取JPEG图像并将其附加到数组中_R_Lapply - Fatal编程技术网

R 读取JPEG图像并将其附加到数组中

R 读取JPEG图像并将其附加到数组中,r,lapply,R,Lapply,我需要从一个目录中读取所有JPG图像,并制作一个图像矩阵。每一行都应该是图像。每行的列都是图像中的所有像素。在我的例子中是24列,因为图像是6x4像素 这是我到目前为止所拥有的。但是,我是否要将调整大小的图像列表转换为上述维度的矩阵 files <- list.files(path = "./data/", pattern = ".JPG", all.files = TRUE, full.names = TRUE) list_of_images <- lapply(files, l

我需要从一个目录中读取所有JPG图像,并制作一个图像矩阵。每一行都应该是图像。每行的列都是图像中的所有像素。在我的例子中是24列,因为图像是6x4像素

这是我到目前为止所拥有的。但是,我是否要将调整大小的图像列表转换为上述维度的矩阵

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 )
文件尝试以下操作:

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

m您使用的是什么软件包?你想要的结果是什么样的?