Question

我有执行散点图的功能，我想将结果（Jpeg图像）粘贴到D：/输出中，而是粘贴在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。

粘贴R中目录中的Jpeg输出

1 个答案: