我有40幅大小为480 * 640(jpeg IMAGES)的图像,对于每个图像,我需要将整个矩阵放在一行......所以对于40幅图像,我需要40行观察。
filenames <- list.files("C:/Users/Desktop/PatternRecognition/texture/T1",
pattern = "*.jpg", full.names = TRUE)
result={}
for (i in 1:length(filenames)){
x <- readJPEG(filenames[i])
y <- getChannels(x)
y <- as.vector(y)
result <- rbind(result,y)
}
x=matrix(x)
x
在上面的代码中getChannels
无效。
答案 0 :(得分:0)
您没有提供可重现的示例,也没有给出您的输出,但我的想法是使用as.vector(t(DATA_FRAME))
将df放在一行中。
所以我想你的代码是:
for (i in 1:length(filenames)){
x <- readJPEG(filenames[i])
y <- as.vector(t(y))
result <- rbind(result,y)
}