将 Jpeg 输出粘贴到 R 的目录中

Question

我有执行散点图的函数，我想将结果（Jpeg 图像）粘贴到 D:/output 中，但它粘贴到 D:/ 中。我希望将结果粘贴到 D:/output 中。 请帮助我。

setwd("D:/output") 
IDs <- colnames(raw.expression) 
for (i in 1:(dim(raw.expression)[2]-1)) 
  { for( j in i:(dim(raw.expression)[2]) ) 
    { if (i != j) 
      { jpeg(file=paste("/",IDs[i],"gegen",IDs[j],".jpg",sep="")) 
        correlation <- round(cor(raw.expression[,i],raw.expression[,j]),2)
        maximum <- max(log2(raw.expression[,i])) 
        minimum <- min(log2(raw.expression[,i]))  
        plot(log2(raw.expression[,i]),log2(raw.expression[,j])
          ,xlab=IDs[i],ylab=IDs[j],p‌​ch='.'
          ,text (maximum-2,minimum+0.5
          ,labels=paste("R = ",correlation,sep=""),pos=4,offset=0)) 
        dev.off() 
      } 
    } 
  }

Answer 1

在该行中，

jpeg(file=paste("/",IDs[i],"gegen",IDs[j],".jpg",sep="")) 

您在文件名前面加上“/”，这表明这是一个绝对路径，从文件结构的顶部开始。我猜测在 Windows 上，这将是当前驱动器号的顶部，因此它将进入 D:而不是当前工作目录 D:/output。