如何去除persp（）绘图的边距？

无论我尝试做什么，我都无法摆脱左右边距。在我看来，以下代码（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()

库（“光栅”）
r将
xaxs=“i”
添加到您的
persp
呼叫中

它记录在
？par
帮助页面上。默认设置为
xaxs=“r”
，它“…在每一端将数据范围扩展4%”设置
xaxs=“i”
可防止扩展数据范围
 是的，
xaxs=“i”
成功了。非常感谢。这应该是一个答案