如何消除 persp() 图的边距？

Question

无论我尝试做什么，我都无法摆脱左右边距。在我看来，以下代码（MWE）应该达到我的预期：

library("raster")
r <- raster(extent(0,5,0,10), res=1)
r[] <- runif(ncell(r))
pdf("r.pdf",5,7.5, colormodel = "cmyk")
par(fin=c(5,7.5))
par(mai=rep(0,4))
par(omi=rep(0,4))
persp(r, box=TRUE, axes=FALSE, scale=FALSE, col="gray", theta=250,
      phi=15, ltheta=90, lphi=45, shade=0.7, border=NA,fin=c(5,7.5))
dev.off()

相反，它给出了这个结果：

适用par(mai=rep(0,4))于任何其他情节，但不适用于使用persp. 问题是我希望图形本身的宽度恰好是 5 英寸。有什么建议么？

Answer 1

添加xaxs = "i"到您的persp通话中。

它记录在?par帮助页面上。默认设置xaxs = "r"为“...在每一端将数据范围扩展 4%...”设置xaxs = "i"可防止扩展数据范围。