Question

这是一些使用plot（）创建随机点图片然后用png（）保存的R代码。我还使用了bmp（）tiff（）和jpeg（），它们都表现出相同的不良行为（见下文）。我正在使用Windows 7

par(mar=rep(0,4),pty="s",oma=rep(0,4))
width<-512
height<-512
ndots<-500
x<-runif(ndots,min=0,max=width)
y<-runif(ndots,min=0,max=height)
png("dots.png",width=width,height=height)
plot(x,y,ann=FALSE,axes=FALSE,type='p',pch=15, cex=2,asp=1)
dev.off()

不良行为：保存的文件周围有很大的余量，即使如你所见，我没有指定外边距或内边距。 R里面的情节窗口版本看起来很好。

请建议我如何将绘图保存为没有边距的位图。我尝试了bitmap（），但我没有安装ghostscript，所以它没有用。

非常感谢您的帮助

Answer 1

解决方案是将par命令放在png命令之后。

png("dots.png",width=width,height=height)
par(mar=rep(0,4),pty="s",oma=rep(0,4))
plot(x,y,ann=FALSE,axes=FALSE,type='p',pch=15, cex=2,asp=1)
dev.off()

Answer 2

试试这个，

width<-512
height<-512
ndots<-500
x<-runif(ndots,min=0,max=width)
y<-runif(ndots,min=0,max=height)
png("dots.png",width=width,height=height)
par(mar = c(0, 0, 0, 0) + 0.1,pty="s",oma=rep(0,4))
plot(x,y,ann=FALSE,axes=FALSE,type='p',pch=15, cex=2,asp=1)
dev.off()

R保存位图中的大量不需要的边距

2 个答案: