2011-08-29 25 views
-1

我有执行散点图的功能,我想将结果(Jpeg图像)粘贴到D:/输出中,而是粘贴到D:/中。我希望粘贴结果在D:/输出上。 请帮帮我。粘贴在R目录中的JPEG输出

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() 
     } 
    } 
    } 
+0

你试过'jpeg('D:/output/filename.jpg');图(1); dev.off()'或类似的东西? – nullglob

+0

或者'setwd(D:/ output)'然后运行你的绘图代码。 – Chase

+0

@Chase我尝试过setwd(“D:/ output”),但它在D:/ – Dinesh

回答

2

在行

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

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