Qu'est-ce qui pars pour éliminer la marge dans un `fichier png` pour le graphe R suivant?

Question

Je me demandais donné le code R pour l'intrigue ci-dessous, comment puis-je obtenir un fichier png de cette intrigue telle que l'intrigue remplit toute l'image avec pasmargin gauche?

Ce que j'ai essayé à ce jour a été de jouer avec mar et oma sans succès:

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

Enfin, ce qui suit a fonctionné pour moi avec l'aide d'un des collègues de 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()