-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],pch='.'
,text (maximum-2,minimum+0.5
,labels=paste("R = ",correlation,sep=""),pos=4,offset=0))
dev.off()
}
}
}
你试过'jpeg('D:/output/filename.jpg');图(1); dev.off()'或类似的东西? – nullglob
或者'setwd(D:/ output)'然后运行你的绘图代码。 – Chase
@Chase我尝试过setwd(“D:/ output”),但它在D:/ – Dinesh