尝试删除所有边距，以便绘图区域包含整个图形

Question

我试图删除 R 中绘图的所有边距和“图形区域”，以便绘图区域包含整个图形设备。我认为下面的代码可以做到这一点，但我的图周围仍然有一个边框（左侧/底部较宽，顶部/右侧较细）。谢谢

par(oma=c(0, 0, 0, 0))
par(mar=c(0, 0, 0, 0))
par(plt=c(0, 1, 0, 1))

我想我会添加一张图片来显示我的进步。 xaxs 和 yaxs 几乎删除了顶部和右侧的所有边框 - 左侧和底部仍然有边框。

我的脚本的相关部分如下。

png("Test.png", 
     width = 256, height = 256,
     units = "px", pointsize = 6.4, 
     bg = "black", res = NA)

par(mar=c(0, 0, 0, 0), xaxs='i', yaxs='i')


smoothScatter(lhb$px, lhb$pz, nrpoints=0, xlim=c(-3,3), ylim=c(0,5), 
    main="", xlab="", ylab="", axes=FALSE, 
    colramp=colorRampPalette(c("black", "#202020", "#736AFF", "cyan", "yellow", "#F87431", "#FF7F00", "red", "#7E2217"))
    )

segments(.83, 1.597, .83, 3.436, col = par("fg"), lty = par("lty"), lwd = par("lwd"))
segments(-.83, 1.597, -.83, 3.436, col = par("fg"), lty = par("lty"), lwd = par("lwd"))
segments(-.83, 3.436, .83, 3.436, col = par("fg"), lty = par("lty"), lwd = par("lwd"))
segments(-.83, 1.597, .83, 1.597, col = par("fg"), lty = par("lty"), lwd = par("lwd"))


dev.off()

Answer 1

一个问题是从根本上无法理解 plt 的作用。从 ?par 我们可以得到：

 ‘plt’ A vector of the form ‘c(x1, x2, y1, y2)’ giving the
      coordinates of the plot region as fractions of the current
      figure region.

因此，如果您执行 par(plt=c(1, 1, 1, 1))，那么您的绘图区域的大小为零，因此不会似乎不是要走的路。这是因为图形区域包含绘图区域。

该图似乎覆盖了整个区域，没有任何边距：

op <- par(mar = rep(0, 4))
plot(1:10)
par(op)

它覆盖得很好，您看不到轴或框：

这假定默认值为 0 外边距 (oma)。这是您要找的吗？

我们可以看到，只需调整绘图边距，如上所述，我们还更改了 plt 参数作为副作用：

> par("plt")
[1] 0.1173174 0.9399106 0.1457273 0.8828467
> op <- par(mar = rep(0, 4))
> par("plt")
[1] 0 1 0 1
> par(op)
> par("plt")
[1] 0.1173174 0.9399106 0.1457273 0.8828467

表明简单地设置绘图边距足以获得包含整个绘图/图形区域设备。

当然，仍然有一些内部填充，以确保轴的范围略大于 x 和 y 坐标中的数据范围。但是您可以使用 xaxs 和 yaxs 来控制它 --- 请参阅 ?par

更新： 正如OP所示他们试图在没有边距的情况下生成这种数字，我可以提供一个可重现的示例：

set.seed(1)
dat <- matrix(rnorm(100*100), ncol = 100, nrow = 100)

layout(matrix(1:2, ncol = 2))
image(dat)
op <- par(mar = rep(0, 4))
image(dat)
par(op)
layout(1)

它给出了比较：

和仅显示完整绘图区域：

Answer 2

尝试将剪辑区域参数“xpd”设置为 NA（剪辑到设备）。

par(xpd = NA)