次のRプロットの `pngファイル 'の余白を排除するとはどういう意味ですか？

Question

私はこのプロットのPNGファイルをどのように取得して、プロットがすべての画像を塗りつぶすようにするのですか？いいえmarginが残っていますか？

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からの同僚の1の助けを借りて、私の仕事：：

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() 

私はこれまでのところ成功して marと omaで遊んでいた試してみました何