如何摆脱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

将class MyCarbon extends Carbon\Carbon { public function fr($format) { $replacements = [ 'Monday' => 'lundi', 'Tuesday' => 'mardi', 'Wednesday' => 'mercredi', 'Thursday' => 'jeudi', 'Friday' => 'vendredi', 'Saturday' => 'samedi', 'Sunday' => 'dimanche', 'January' => 'janvier', 'February' => 'février', 'March' => 'mars', 'April' => 'avril', 'May' => 'mai', 'June' => 'juin', 'July' => 'juillet', 'August' => 'août', 'September' => 'septembre', 'October' => 'octobre', 'November' => 'novembre', 'December' => 'décembre', ]; $from = array_keys($replacements); $to = array_values($replacements); return str_replace($from, $to, $this->format($format)); } } 添加到您的xaxs = "i"来电。

它已记录在persp帮助页面上。默认设置为?par，其中＆＃34; ...每端将数据范围扩展4％......＆＃34;设置xaxs = "r"会阻止扩展数据范围。