r - 在 R 中保存 png() 和 jpeg() 结果不一致

Question

我在 R 程序中保存了一些复杂的图形，其中包括 plot() , lines() , points()和 abline()函数调用并尝试同时使用 png()和 jpeg() ，但两者都呈现非常不一致的结果。在一次运行中，网格将保存在后台，下一次则不会。在一次运行中，点将添加到正确的 lwd ，在另一个它们将是巨大的，或者可能根本不添加。在另一次运行中，将添加一行，然后在我再次运行时消失。我循环了数百次迭代，几乎每次运行都得到不同的结果。

png(paste("/someFilePlace/pics/", propIn, ".png", sep = "")) 

plot(plotDat$yhat, col = "white", ylim = c(0,max(plotDat$yhat)*1.1),xaxt='n') 
fairlylightgray <- rgb(204/255, 204/255, 204/255, alpha=0.4) 
abline(v=(seq(0,1700,100)), col=fairlylightgray, lty="dotted") 
abline(h=(seq(0,10,0.5)), col=fairlylightgray, lty="dotted") 
points(plotDat$y, cex = '*', lwd = 3, col= "gray") 
lines(plotDat$yhat, col = "#08519C") 
axis(1, at = c(1,500,1000,1500), 
     labels = c(plotDat$dt[1],plotDat$dt[500],plotDat$dt[1000],plotDat$dt[1500])) 

dev.off()

Answer 1

恭喜，我想你可能已经发现了一个晦涩的几乎是错误的(至少，未能拦截用户错误)。尝试更换 cex="*"在您的代码中包含一些合理的内容(它应该是一个数字——或者您的意思是 pch="*" )。

我能够在不同的 PNG 中获得不同的结果，如下所示(如果我在 X11 窗口中绘图，我可以在调整窗口大小时发生有趣的事情)。

for (i in 1:10) { 
    png(paste("tmp",i,"png", sep="."))
    plot(1:10,1:10,cex="*"); 
    dev.off() 
}