如何在R中处理多个Jpeg图像

时间:2017-04-07 11:11:29

标签: r

我刚开始使用RStudio,因为用于分析我的图像的可用包在R中。我只想分析存储在文件夹中的大约50个图像。如何读取每个图像(通过形成循环),对每个图像执行一些操作并将输出(我的输出是一个列表)保存为矢量?

更新:

我刚写了一段代码如下:

folder <- "F:/F_diff/1_d/glass/New folder/"      # path to folder that holds multiple .jpg files
file_list <- list.files(path=folder, pattern="*.jpg") # create list of all .jpg files in folder

for (i in 1:length(file_list)){
  assign(file_list[i],   
     #read image
     im2 <- readImage(paste(folder, file_list[i], sep=''))

     #analyze each image
     B <- matrix(im2,nrow=808,ncol=610,byrow=FALSE, dimnames=NULL)
     Haarimtest <- TOS2D(B, smooth = FALSE, nsamples = 100)
     summary(Haarimtest)

 )}

我收到以下错误:

  

错误:意外符号:   “#analyze每个图像            B”            Haarimtest&lt; - TOS2D(B,smooth = FALSE,nsamples = 100)   base :: log2(x)中的错误:数学函数的非数字参数            摘要(Haarimtest)   摘要错误(Haarimtest):找不到对象'Haarimtest'

     

)}   错误:意外')'在“)”

更新2

经过一些修补代码和大量搜索后,我能够运行它。 代码首先从文件夹导入大小为64x64像素的所有30个.tif图像,并对每个图像执行一些图像分析 更新后的代码如下:

> library(tiff) 
  library(LS2W) 
  library(LS2Wstat)
> # path to folder that holds multiple .tif files 
  path <- "C:/Users/Metaheuristics/Documents/MATLAB/diff_64 x64/2D/" 
> # create list of all .tif files in folder 
  files <- list.files(path=path, pattern="*.tif") 
> 
> #import all files  
  for(file in files) {   
  perpos <- which(strsplit(file, "")[[1]]==".")   
  assign(
> gsub(" ","",substr(file, 1, perpos-1)), 
> B<-readTIFF(paste(path,file,sep="")))
> 
  #perform image analysis on individual images   
  Haarimtest <- TOS2D(B, smooth = FALSE, nsamples = 100)            
  summary(Haarimtest)   
  }

只有一个问题,我无法保存结果。

1 个答案:

答案 0 :(得分:0)

尽管自从提出这个问题以来似乎已经有两年了。我遇到了类似的问题,并找到了解决方案。

在for循环之前, 添加:df <- NULL 在您输入以下内容之后:

Haarimtest <- TOS2D(B, smooth = FALSE, nsamples = 100)

只需添加(在循环内)

df<-rbind(df,data.frame(file,Haarimtest))