为以下 R 图消除 `png 文件` 中的边距的标准是什么？

Question

我想知道给定下图的 R 代码，如何获得该图的 png 文件，以便该图用 no [=11 填充所有图像=] 离开了吗？

到目前为止我尝试过 mar 和 oma 但没有成功：

N = 20 ; df = N-1  
par(oma = rep(0, 4), mar = rep(0, 4))  

 png("plot.png", width = 4, height = 5, units = "in", res = 500)

BB = curve( dt(x*sqrt(N), df)*sqrt(N), -1, 1, n = 1e4, xlab = "d", 
                   ylab = NA, font = 2, font.lab = 2, type = "n", yaxt = "n", bty = "n", mgp = c(2, 1, -.5))

 polygon(BB, col = rgb(1, 0, 0, .4), border = NA)

 dev.off()

Answer 1

最后，在 SO 的一位同事的帮助下，以下内容对我有用：

 N = 20 ; df = N-1  
 par(oma = rep(0, 4), mar = c(2.5, .01, 0, .01), mgp = c(1.5, .3, 0), xpd = NA)  

  BB = curve( dt(x*sqrt(N), df)*sqrt(N), -1, 1, n = 1e4, xlab = "d", 
        ylab = NA, font = 2, font.lab = 4, type = "n", yaxt = "n", 
        bty = "n", cex.axis = .7, cex.lab = .9)

    polygon(BB, col = rgb(1, 0, 0, .4), border = NA)

    dev.copy(png, "plot.png", width = 2, height = 3, units = "in", res = 500)
    dev.off()
    dev.off()

为以下 R 图消除 `png 文件` 中的边距的标准是什么？

What pars to eliminate margin in a `png file` for the following R plot?

plot

png

r

function